Wort ausschneiden, neues Sheet
30.03.2021 15:31:14
Eisi
Ich dachte mir Eurer Hilfe wäre das Problem geklärt, aber ich habe da etwas übersehen. Sorry.
Mit nachfolgendem Code kann ich in einer Tabelle bestens arbeiten. Nochmals Danke für die heutige Hilfe.
Aber das Ergebnis soll in eine andere Tabelle übertragen werden.
Wunsch:
In der Tabelle2 ab Spalte C2 bis zur letzten Zeile steht ein Text. Das erste Wort des Textes und später auch das zweite Wort soll ausgeschnitten werden.
Das erste Wort soll in Tabelle 1 ab A2 eingefügt werden und dann ab B2 das zweite Wort.
Der Code macht es, aber natürlich nur in der Zelle A2 in der Tabelle 1. Klar, weil die Zelle A3 leer ist, passiert also nichts mehr.
Ich habe schon hin und her gedacht und fühle mich gerade so:
Ich stehe im Wald und sehe nur Wüste? :-) ? Na ja.
Hat jemand bitte eine Lösung?
Vielen Dank.
VG Eisi :-)
Sub WortEinsFinden()
Dim Zeile As Long
Dim ZeileMax As Long
With tbl_Tabelle1
ZeileMax = .UsedRange.Rows.Count
.Range("A2:A" & ZeileMax).FormulaR1C1 = "=WordAusschneiden(H_Tabelle2!RC[2],1)"
End With
End Sub
Function WordAusschneiden(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
Function