05.12.2016, 14:37
Hallo!
Mit diesem Code fülle ich Variablen. Nur sieht das (in meinen Augen) nicht elegant aus. Das kann man doch sicher per Schleife lösen (Schleifen sind nicht mein Fall!)? Z.B. die Variablen und die zugehörigen Parameter in jeweils ein Array packen und dann darauf die Schleife aufbauen? Aber ohne dass mehr Zeilen, oder genausoviele Zeilen wie bisher, herauskommen!?
Gruß, René
For lngMenuPos = strFrom To strTo strCaption = MenueinhaltEinlesen(strMenuPoint + CStr(lngMenuPos), "Caption", strConfigPath) strMacro = MenueinhaltEinlesen(strMenuPoint + CStr(lngMenuPos), "MacroName", strConfigPath) strButtonID = MenueinhaltEinlesen(strMenuPoint + CStr(lngMenuPos), "ButtonID", strConfigPath) strImageMSO = MenueinhaltEinlesen(strMenuPoint + CStr(lngMenuPos), "imageMSO", strConfigPath) strIsSeparator = MenueinhaltEinlesen(strMenuPoint + CStr(lngMenuPos), "isSeparator", strConfigPath) strSepName = MenueinhaltEinlesen(strMenuPoint + CStr(lngMenuPos), "separatorID", strConfigPath) strScreentip = MenueinhaltEinlesen(strMenuPoint + CStr(lngMenuPos), "screentip", strConfigPath) strSupertip = MenueinhaltEinlesen(strMenuPoint + CStr(lngMenuPos), "supertip", strConfigPath) strKeytip = MenueinhaltEinlesen(strMenuPoint + CStr(lngMenuPos), "key", strConfigPath) strTag = MenueinhaltEinlesen(strMenuPoint + CStr(lngMenuPos), "tag", strConfigPath) Next lngMenuPosVBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0
Mit diesem Code fülle ich Variablen. Nur sieht das (in meinen Augen) nicht elegant aus. Das kann man doch sicher per Schleife lösen (Schleifen sind nicht mein Fall!)? Z.B. die Variablen und die zugehörigen Parameter in jeweils ein Array packen und dann darauf die Schleife aufbauen? Aber ohne dass mehr Zeilen, oder genausoviele Zeilen wie bisher, herauskommen!?
Gruß, René