die nachfolgende Formel ragt wegen ihrer Länge weit über den Rand des VBA-Editors hinaus und wirkt dadurch unübersichtlich. Mir ist bekannt dass Zeilenumbrüche mit _ erzwungen werden können, aber bei dieser Formel klappt das nicht. Wenn ich ein Leerzeichen und einen Unterstrich einfüge, wird die gesamte Formel in roter Farbe angezeigt und eine Warnmeldung Erwartet: Anweisungsende erscheint.
ActiveCell.FormulaR1C1 = "=IF(LEFT(RC[-18],2)=""08"",RC[-14],IF(LEFT(RC[-17],2)=""01"",RC[-14],IF(LEFT(RC[-14],2)=""01"",RC[-14],IF(LEFT(RC[-14],1)=""0"",IF(OR(LEFT(RC[-14],3)=VLOOKUP(RC[-14],Vorwahlen,1,TRUE),LEFT(RC[-14],4)=VLOOKUP(RC[-14],Vorwahlen,1,TRUE),LEFT(RC[-14],5)=VLOOKUP(RC[-14],Vorwahlen,1,TRUE),LEFT(RC[-14],6)=VLOOKUP(RC[-14],Vorwahlen,1,TRUE)),VLOOKUP(RC[-14],Vorwahlen,1,TRUE),RC[-14])&""/""&RIGHT(RC[-14],(LEN(RC[-14])-LEN(IF(OR(LEFT(RC[-14],3)=VLOOKUP(RC[-14],Vorwahlen,1,TRUE),LEFT(RC[-14],4)=VLOOKUP(RC[-14],Vorwahlen,1,TRUE),LEFT(RC[-14],5)=VLOOKUP(RC[-14],Vorwahlen,1,TRUE),LEFT(RC[-14],6)=VLOOKUP(RC[-14],Vorwahlen,1,TRUE)),VLOOKUP(RC[-14],Vorwahlen,1,TRUE),RC[-14])))),RC[-14]))))"
Hat jemand eine Idee wie diese Formel auf Fensterbreite umgebrochen werden kann?mfg
reiner