InputBox ersetzen durch Einlesen von Bereich C2-C1
06.04.2017 03:04:06
Bereich
Ich möchte jedoch die Eingabe von einzelnen Strings nicht mehr über Inputbox, sondern durch einlesen der String-Werte (über eine Schleife ?) aus range ("C2:C100") in Tabellenblatt ("Meine") vornehmen.
So war das bisherige Makro:
Sub Suche()
Dim rngZelle As Range
Dim strSuchwort As String
strSuchwort = InputBox("Welcher String?", "String eingeben")
For Each rngZelle In Worksheets("Tab2").Range("B2:B1000")
If rngZelle = strSuchwort Then
rngZelle.EntireRow.Copy _
Sheets("Tab3").Range("A" & Sheets("Tab3").Cells(Rows.Count, 2).End(xlUp).Row + 1)
Exit Sub
End If
Next rngZelle
End Sub
Könnte das vielleicht jemand erklären bzw. ergänzen, da ich totaler Anfänger bin. Danke im voraus !
Anzeige