Rng
07.02.2007 14:44:53
Gregor
Mit folgendem Befehl eruiere ich in einer Spalte, ob eine Jahreszahl steht.
Zeilen mit Jahreszahl sind zu kopieren. Dazu sollte ich die entsprechende Zeilennummer eruieren. Zeile = rng.Row geht offenbar nicht (Fehlermeldung).
Wie komme ich zum Ziel?
Dim Bereich
Dim rng
Dim intLastRow
Dim Zeile
intLastRow = Cells(Rows.Count, 11).End(xlUp).Row
Bereich = Range(Cells(5, 11), Cells(intLastRow, 11))
For Each rng In Bereich
If IsNumeric(rng) And Not IsEmpty(rng) Then
Zeile = rng.Row
Set Kopieren = Worksheets(1).Range(Cells(Zeile, 1), Cells(Zeile, 20))
'--- Zielbereich
Set Ziel = Worksheets(2).Cells(1, 1)
Kopieren.Copy Ziel
End If
Next
Vielen Dank und Gruss
Gregor