If und Cells
02.04.2003 22:00:50
Wolfgang
die folgende Anweisung wird zwar kompiliert, ich erhalte später aber eine Fehlermeldung. Was mache ich hier wieder falsch?
Bisher habe ich jede einzelne Zelle definiert und einzeln gelöscht. Jetzt versuche ich eine etwas fortschrittlichere Lösung, leider ohne durchschlagenden Erfolg.
If v = "5" Then
Sheets("KM" & rName).Range(Cells(8, 4), Cells(15, 4), Cells(22, 4), Cells(29, 4), Cells(45, 1)).ClearContents
ElseIf v = "7" Then
Sheets("KM" & rName).Range(Cells(8, 4), Cells(15, 4), Cells(22, 4), Cells(29, 4), Cells(45, 1)).ClearContents
ElseIf v = "10" Then
Sheets("KM" & rName).Range(Cells(8, 4), Cells(15, 4), Cells(22, 4), Cells(29, 4), Cells(45, 1)).ClearContents
End If
Danke für jeden Tip.
Gruß
Wolfgang