Befehlszeile in VBA zu lang - wie trennen?
03.06.2005 07:27:05
Wolfgang
wieder plagt mich ein Problem und ich befrage daher erneut das Forum; die untenstehende Zeile muß ich noch um viele Felder ergänzen, so dass in VBA der Platz in einer Zeile nicht mehr reicht und mir die weiteren "Befehle" in die nächste Zeile rutschen. Nun kommt eine Fehlermeldung mit Hinweis dass entweder Then oder GoTo folgen muß. Dieses Then steht nun natürlich in der zweiten Zeile. Was muß ich machen damit beide Zeilen als zusammenhängend erkannt werden ? Wahrscheinlich muß da irgendwie eine Zeilentrennung oder so gesetzt werden - wie könnte die aussehen ? Wäre wieder sehr dankbar für Eure Mithilfe.
Gruß - Wolfgang
Hier die Zeile, die ich noch "verlängern" muß und somit nicht mehr in eine Reihe paßt.
If Trim$(Range("A2").Offset(intCount).Value) = strOldName And Trim$(Range("B2").Offset(intCount).Value) = strOldVorname And Trim$(Range("C2").Offset(intCount).Value) = strOldGebdat And Trim$(Range("D2").Offset(intCount).Value) = strOldBeruf And Trim$(Range("E2").Offset(intCount).Value) = strOldStr And Trim$(Range("F2").Offset(intCount).Value) = strOldPLZ And Trim$(Range("G2").Offset(intCount).Value) = strOldBKZ And Trim$(Range("I2").Offset(intCount).Value) = strOldDstnr And Trim$(Range("J2").Offset(intCount).Value) = strOldOrgz And Trim$(Range("K2").Offset(intCount).Value) = strOldEnr1 And Trim$(Range("L2").Offset(intCount).Value) = strOldAnrede And Trim$(Range("M2").Offset(intCount).Value) = strOldVorwahl And Trim$(Range("N2").Offset(intCount).Value) = strOldErgebnis Then