Zeilen Kopieren
28.08.2008 17:33:53
Robert
Daher brauche ich ein Makro was folgendes macht:
1. Inputbox erscheint (eine Eingabe/Anwahlmöglichkeit mit der Maus sollte möglich sein.)
2. Benutzer wählt mit der Maus eine beliebige Zelle in Tabellenblatt 1 aus.
3. Makro generiert ein neues Tabellenblatt (Name = ausgewählte Zelle)
4. Makro kopiert alle Ziel-Zeilen aus Tabellenblatt 1 in das neue Tabellenblatt
(Ziel-Zeilen sind alle Zeilen, welche in der ausgewählten Spalte den Wert der ausgewählten Zelle haben)
folgenden VBA-Code habe ich mir zusammengebastelt, aber er kopiert die Zeilen leider nicht, nach Stunden des rumprobierens finde ich keine Lösung. zudem beschränkt sich der Code auf Spalte A und ich will ein Makro welches erkennt in welcher Spalte das Suchkriterium ist.
Kann mir jemand von Euch vielleicht helfen, Vielen Dank.
Sub CopyValues()
Dim KR As Range
On Error Resume Next
Set KR = Application.InputBox(prompt:="Zelle anwählen oder für Makroende eine leere Zelle _
markieren", Title:="Tabellenblatt mit gewünschten Kriterium", Type:=8)
If KR = "" Then Exit Sub
Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = KR
Sheets("Tabelle1").Select
Dim lRow As Long, lRowL As Long, lRowT As Long
lRowL = Cells(Rows.Count, 1).End(xlUp).Row
lRowT = 1
For lRow = 2 To lRowL
If (Cells(lRow, 1)) = KR Then
lRowT = lRowT + 1
Worksheets(KR).Rows(lRowT).Value = Rows(lRow).Value
End If
Next lRow
End Sub