Microsoft Excel

Herbers Excel/VBA-Archiv

VBA Suche im Platzhalter


Betrifft: VBA Suche im Platzhalter
von: FrankHB
Geschrieben am: 19.11.2019 14:16:21

Kann mir jemand von euch weiterhelfen?

Ich möchte alle Einträge die in Spalte A mit einem F beginnen in eine neue Tabelle schreiben.

hier der Code:

Sub Suche_F()

Dim i As Long, tLR As Long
Dim ZielWks As Worksheet, QuelleWks As Worksheet

Set QuelleWks = Worksheets("Reports")
Set ZielWks = Worksheets("Suchergebnis")

Worksheets("Suchergebnis").Rows("2:" & Worksheets("Suchergebnis").Rows.Count).ClearContents

With QuelleWks
For i = 2 To .Cells(.Rows.Count, 5).End(xlUp).Row

If .Cells(i, 1).Value = "F*" Then
tLR = ZielWks.Cells(Rows.Count, 1).End(xlUp).Row + 1
Debug.Print tLR
With ZielWks
.Range(.Cells(tLR, 1), .Cells(tLR, 5)).Value = QuelleWks.Range(QuelleWks.Cells(i, 1), _
QuelleWks.Cells(i, 5)).Value
End With
End If
Next i
End With

End Sub
Leider klappt das nicht

Weiß jemand von euch Rat?

  

Betrifft: AW: VBA Suche im Platzhalter
von: Luschi
Geschrieben am: 19.11.2019 14:32:03

Hallo FrankHB,

bei mir klappt: If .Cells(i, 1).Value Like "F*" Then

Gruß von Luschi
aus klein-Paris

PS: aber nur für Großbuchstabe 'F'


  

Betrifft: AW: VBA Suche im Platzhalter
von: FrankHB
Geschrieben am: 19.11.2019 14:42:57

Vielen Dank Luschi,
genau danach habe ich gesucht.

Vielen, vielen Dank

Gruß Frank


  

Betrifft: AW: VBA Suche im Platzhalter
von: Werner
Geschrieben am: 19.11.2019 14:39:45

Hallo,

warum nicht Autofilter - Textfilter - beginnt mit

Das kann man auch per Makro machen. Mit Sicherheit wesentlich schneller als in einer Schleife durch die Spalte zu laufen und die Treffer einzeln zu kopieren.

Gruß Werner