Fromel per VBA zuweisen
21.05.2022 12:55:55
Peter
1. Wenn ich die Formel einem Zellbereich per VBA zu weisen möchte verändert VBA die Formel von
Richtig: =WENN(ISTZAHL(SUCHEN("/";J3));LINKS(J3;SUCHEN("/";J3)+1);LINKS(J3;SUCHEN("-";J3)-1)) in
Falsch =WENN(ISTZAHL(SUCHEN(" / ";J3));LINKS(J3;SUCHEN(" / ";J3)+1);LINKS(J3;SUCHEN(" - ";J3)-1))
Dadurch kommt es natürlich auch zu falschen Ergebnissen
Wie kann ich verhindern das VBA automatisch Leerzeichen vor dem / und dem - in der Formel setzt?
2. Ich habe eine leerspalte J in der überall die Formel (siehe oben) gesetzt werden soll, wenn in der benachbarten Zelle der Spalte I ein Wert steht. Ich habe das versucht so zu lösen
Dim letzte As Long
letzte = Range("J65536").End(xlUp).Row
Range("I3:I" & letzte).FormulaLocal = "=WENN(ISTZAHL(SUCHEN(" / ";J3));LINKS(J3;SUCHEN(" / ";J3)+1);LINKS(J3;SUCHEN(" - ";J3)-1))"
End Sub
Wie gesagt, hier wird in die Formel von VBA Leerzeichen eingepflegt und zum anderen kommt es zu der Meldung "Laufzeitfehler 13 Typen unverträglich" . Ich weis nun nicht ob dieser Fehler auf den Leerzeichen beruht. Mit einer anderen Formel mit Sverweis kommt dieser Fehler nämlich nicht.
Gib es einen besseren Weg Formeln in einen dynamischen Bereich einzufügen?
Vielen Dank jetzt schon einmal
Gruß Peter