Wenn Anfangsbuchstabe in Spalte,dann Zeile kopiern
25.09.2018 19:24:03
Clancy
Ich bin wechselnd am Ausrasten und Weinen, ich check' einfach nicht, was das Problem ist und hoffe auf eure Hilfe.
Anhand eines Codes, den ich hier gefunden habe, bin ich schon recht weit, hänge jetzt aber fest.
Ausgangslage:
Tabellenblatt "ProMon" enthält viele Spalten und Zeilen.
Spalte B enthält Daten für Bereiche.
Sprich: Fängt Wert mit "C" an, gehört die ganze Zeile zum Bereich "C".
Ziel:
Wenn Anfangsbuchstabe in Spalte B in "ProMon", dann diese Zeile in Tabellenblatt für diesen Anfangsbuchstaben aka Bereich kopieren.
Problem:
Ich habe viele Posten, die z.B. mit "A" beginnen und dann noch zwei Stellen weiter spezifiziert werden.
Also z.B. "A12" oder "A9A".
Was ich schaffe:
Dass, wenn ich spezifisch sage
"strSearch = "A9A" ,
er mir diese Zeilen alle in das Tabellenblatt "A" kopiert.
Aber wenn ich einfach nur
"strSearch = "A**"
eingebe, passiert nichts.
Das ist der Code, den ich hier gefunden habe:
Sub Copy_x()
Dim i As Long, suchCol As Long
Dim strSearch As String
Dim srcWks As Worksheet, tarWks As Worksheet
'Tabellennamen anpassen
'srcWks wo gesucht werden soll
Set srcWks = Worksheets("ProMon")
'tarWks wo hinkopiert werden soll
Set tarWks = Worksheets("Ausstattung")
'8 = Spalte H
suchCol = 2
'strSearch = was gesucht werden soll
strSearch = "A**"
With srcWks
For i = 1 To .Cells(Rows.Count, suchCol).End(xlUp).Row
If .Cells(i, suchCol).Text = strSearch Then
Rows(i).Copy Destination:=tarWks.Cells(tarWks.Cells(Rows.Count, 1).End(xlUp). _
Row + 1, 1)
End If
Next i
End With
End Sub
Ich habe es schon mit "left" an verschiedenen Stellen probiert, aber da schimpft Excel dann mit mir.
Was fehlt mir? In meinem Kopf ist das so einfach, aber offenbar ist das schwieriger, als ich denke.
Danke vorab für eure Hilfe und viele Grüße!
Clancy
Anzeige