Ich möchte per Buttonklick 3 untereinanderliegende Zeilen löschen, sind aber nicht die normale Zeilen im Excelblatt, sondern nur eine bestimmte Anzahl verbundener Zellen.
So funtioniert es nur, wenn der die Zellen nicht verbunden sind!
Privat
Sub CommandButton1_Click()
Range("D30").Select
For i = 1 To 3 Step 1
ActiveCell.ClearContents
ActiveCell.Offset(, 0).Selecct
Next i
End Sub
Wie muß ich dies ändern? Muß ich noch was beachten, habe einen Blattschutz gesetzt.
Gruß Micha