Zeile kopieren, wenn Wert aus Zelle gefunden wird
01.03.2004 13:01:20
Jörg
Ich möchte eine Tabelle die sich ständig erweitert, nach einem bestimmten Wert durchsuchen, der in einer Zelle steht. Wenn der Wert gefunden wird soll die ganze Zeile in ein anderes Tabellenblatt kopiert werden. Bisher habe ich sowas ähnliches immer mit diesem Makro gemacht:
Dim Quellsheet As Worksheet
Dim Zielsheet As Worksheet
Dim rng As Range
Dim lngQ As Long
Dim lngz As Long
Set wksQ = Sheets("Quellsheet")
Set wksZ = Sheets("Zielsheet")
lngQ = wksQ.Range("A65536").End(xlUp).Row
lngz = wksZ.Range("A65536").End(xlUp).Row + 1
If lngz <> 1 Then lngz = 1
For Each rng In wksQ.Range(wksQ.Cells(1, 1), wksQ.Cells(lngQ, 1))
If rng.Value = Irgendetwas Then
rng.EntireRow.Copy wksZ.Cells(lngz, 1)
lngz = lngz + 1
End If
Next
Bei diesem Makro wird in Spalte A vom Quellsheet nach "Irgendetwas" gesucht. Wenn das gefunden wird, wird die ganze Zeile ins Zielsheet kopiert. Ich dachte das ich nur "Irgendetwas" durch eine Zellenangabe "Range("A1").Select" oder so ersetzen muss, aber das funktioniert nicht. Vielleicht kann mir jemand von Euch einen Tipp geben. Wenn jemand einen anderen Weg kennt, z.B. ein anderes Makro oder so, wäre ich auch dafür sehr dankbar.
MfG
Jörg