prob. bei vba code
08.02.2004 21:22:29
dirk
Habe einen vba code der nicht ganz funzt.
Dieser Filtert alles die Zeilen heraus die = 0 sind
Wollte das die Auswertungszeile in ein neues Tabellenblatt geschrieben wird!
geht aber nicht!
vielleicht kann jemand helfen!!
Gruss dirk
Private Sub CommandButton1_Click()
Dim C As Range, I As Long
Range("E3:F100").ClearContents
I = 3 'Startzeile
For Each C In Range("A2:A" & Range("A65536").End(xlUp).Row)
If C.Offset(0, 1) > 0 Then
---------'mein versuch' ----------------
Sheets("Tabelle2").Cells(I, 5) = C
Cells(I, 6) = C.Offset(0, 1)
I = I + 1
End If
Next C
End Sub