Rückfrage Code
13.07.2005 08:16:40
Max
Unten genannte Formel hat mir Dr. zugesandt
die auch in einer neuen Mappe einwandfrei funktioniert,
nun habe ich die beiden Tabellenblätter in eine Arbeitsmappe
übernommen mit 50 Tabellenblättern sowie 3 Userformen
bei Ausführung bringt Excel nun einen Fehler
Function oder Variable erwartet.
Kann mir bitte jemand weiterhelfen?
https://www.herber.de/bbs/user/24678.xls
Private Sub CommandButton1_Click()
Dim c As Range
i = 2
For Each c In Range("C:C")
If c = "sofort fällig" Then
Range("A" & c.Row & ":C" & c.Row).Copy Destination:=Sheets(2).Range("A" & i)
i = i + 1
End If
Next
End Sub
Gruss Max