ElseIf
22.11.2004 14:25:40
dirk
eigentlich müsste der Code so stimmen, aber es kommt immer eine Fehlermeldung, dass "Else ohne If"
Aber in einem anderen Beispiel bei mir funktioniert das genau auf diese Weise.
Code:
Sub Einzelmonate_raus()
Dim Zeile As Long
For Zeile = 2 To ActiveSheet.UsedRange.Rows.Count
If Cells(Zeile, 1) = "Jan" Then Cells(Zeile, 1) = "Jan"
ElseIf Cells(Zeile, 1) = "Feb" Then Cells(Zeile, 1) = ""
ElseIf Cells(Zeile, 1) = "Mär" Then Cells(Zeile, 1) = ""
ElseIf Cells(Zeile, 1) = "Apr" Then Cells(Zeile, 1) = "Apr"
ElseIf Cells(Zeile, 1) = "Mai" Then Cells(Zeile, 1) = ""
ElseIf Cells(Zeile, 1) = "Jun" Then Cells(Zeile, 1) = ""
ElseIf Cells(Zeile, 1) = "Jul" Then Cells(Zeile, 1) = "Jul"
ElseIf Cells(Zeile, 1) = "Aug" Then Cells(Zeile, 1) = ""
ElseIf Cells(Zeile, 1) = "Sep" Then Cells(Zeile, 1) = ""
ElseIf Cells(Zeile, 1) = "Okt" Then Cells(Zeile, 1) = "Okt"
ElseIf Cells(Zeile, 1) = "Nov" Then Cells(Zeile, 1) = ""
ElseIf Cells(Zeile, 1) = "Dez" Then Cells(Zeile, 1) = ""
Else: Cells(Zeile, 1) = ""
End If
Next
End Sub
Woran kann das denn liegen?
Gruss, Dirk