Ich möchte gerne über einen Button einen Bestimmten Bereich löschen. Es sollen aber nur die Inhalte entfernt werden sämmtliche Formeln sollen erhalten bleiben.
Der Bereich fängt bei A4 an und würde bisN100 gehen
Private Sub CommandButton2_Click()
Dim i As Integer
i = InputBox("zu löschende Zeilen Nummer eingeben")
Cells(i, 1).EntireRow.Delete
End Sub
Grüße Fred
Private Sub CommandButton2_Click()
Range("A4:N100").SpecialCells(xlCellTypeConstants).ClearContents
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort