AW: Datensätze aus Blatt auslesen
02.09.2008 16:24:00
Chris
Servus,
ungetestet / probier mal aus an einer Probedatei:
Sub rüberdamit()
Dim rSuche As Range, rFinde As Range, strErste As String, Zeile As Long
Set rFinde = Sheets("Blatt2").Range("C:C")
Set rSuche = rFinde.Find(what:=Sheets("Blatt3").Range("F6"), LookAt:=xlWhole, LookIn:=xlValues)
Zeile = 14
If Not rSuche Is Nothing Then
strErste = rSuche.Address
Do
rSuche.EntireRow.Copy Sheets("Blatt3").Range("A" & Zeile)
Zeile = Zeile + 1
Set rSuche = rFinde.FindNext(rSuche)
Loop While Not rSuche Is Nothing And rSuche.Address strErste
Else
MsgBox "Keine Treffer!"
End If
End Sub
Die Blattnamen eben entsprechend anpassen.
Gruß
Chris