Funktion über Schleife
29.03.2021 18:01:31
Eisi
in einer Tabelle muss ich den Text zerlegen. Dazu füge ich 2 Spalten (D und E) ein und ab Zeile 2 führe ich die unten beschriebene Funktion aus. Mit "1" in Spalte D wird das erste Wort gefunden und mit "2" in Spalte E das zweite Wort.
Per Hand kann ich das in den Zellen alles so einstellen, aber ich möchte diesen Vorgang automatisieren, weil ich mehrmals im Jahr die Daten aktualisieren muss.
Ist es möglich diese Funktion über eine Schleife ab Zeile 2 bis letzte Zeile und über die Spalten D und E laufen zu lassen?
Oder geht das nur im Sheet?
Vielen Dank für die Hilfe.
VG Eisi :-)
Function FindeWoerter(Source As String, Position As Integer)
Dim arr() As String
Dim xCount As Integer
arr = VBA.Split(Source, " ")
xCount = UBound(arr)
If xCount xCount Or Position