Wortteile kopieren und in andere Tabelle
09.10.2015 13:03:31
Chuwalbu
ich hätte da mal ne Frage zu VBA. Folgende Aufgabe:
In der Tabelle 1 kommen in die Spalte A:A Daten wie A_1234, A_2351, B_8486, A_67334 usw.
Ich will jetzt mit VBA alle Werte mit dem Anfang A_ in die Tabelle 2 kopieren.
Es klappt soweit mit meinem jetzigen Code nicht ganz:
Code:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Anzahl As Long, A As Long
Dim SZelle As Range
Dim Suchwert As String
Suchwert = "A_" 'Suchbegriff
Anzahl = Application.WorksheetFunction.CountIf(Tabelle1.Range("A:A"), Suchwert)
For A = 1 To Anzahl
If A = 1 Then
Set SZelle = Tabelle1.Range("A:A").Find(Suchwert, LookAt:=xlPart)
SZelle.Copy Tabelle2.Cells(A + 3, 2) 'ganze Zeile Kopieren
Else
Set SZelle = Tabelle1.Range("A:A").FindNext(SZelle)
SZelle.Copy Tabelle2.Cells(A + 3, 2) 'ganze Zeile Kopieren
End If
Next A
End Sub
Zwar werden alle Daten mit A_ kopiert, aber wenn es nun A_4123 heisst, klappt das nicht.
Weis jemand da ne Lösung?
Mfg
Chuwalbu