Typen unverträglich!
25.10.2004 15:52:05
Eleni
Warum erzeugt untenstehendes Makro bei der If-Anweisung die im Titel aufgeführte Fehlermeldung? Bzw. wie kann man Abhilfe schaffen?
Danke, Eleni
Sub Trennen()
ThisWorkbook.Sheets("Übersicht").Activate
Dim r, C
Set r = ThisWorkbook.Sheets("Übersicht").Columns(2)
For Each C In r
If C.Value Like "*.09.*" Then
C.Row.Copy
ThisWorkbook.Sheets("September").Activate
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Paste
End If
Next
End Sub