Hallo ihr Excelperten :)
Ich habe vor kurzem Excel und VBA "Schnupperkurse" gehabt und würde jetzt gerne etwas mehr daraus machen. Nun habe ich in einem früheren Beitrag schon einen sehr nützlichen Code gefunden:
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 = Range("A1").Value Then
rng.EntireRow.Copy wksZ.Cells(lngz, 1)
lngz = lngz + 1
End If
Next
End Sub
Allerdings sind meine Kenntnisse noch nicht ausgereift genug, um daraus klug zu werden... Ich habe schon ein wenig rumproiert aber leider keinen Erfolg gehabt.
Mein Problem besteht darin, dass ich den Code soweit abwandeln möchte, dass er nach dem Wert 0 (Null) sucht in der Spalte C und wenn er ihn gefunden hat, dann soll er die gesamte Zeile in ein neues Tabellenblatt kopieren.
Also falls hier gerade jmd vorbeischaut, der ein bisschen mehr Ahnung hat, dann bitte ich doch um eine kurze Antwort. Vielen Dank, der Floh