Ich möchte durch ein Makro erreichen, dass wenn z.B.die Zelle A7 irgendeinen Wert hat, dass dann die Zellen A1:C3 nach oben gelöscht werden. Wer kann mir helfen !?
- A B C
1 d d d
2 d d d
3 d d d
4 d d d
5 d d d
6 d d d
7 d d d
Sub löschen()
' wenn A7 nicht leer
If Range("A7") <> "" Then
' A1-C3 löschen, Zellen nach oben
Range("A1:C3").Delete Shift:=xlUp
' A1-C3 Inhalt löschen
Range("A1:C3").ClearContents
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'wenn A7 nicht leer
If Range("A7") <> "" Then
'A1-C3 löschen, Zellen nach oben
Range("A1:C3").Delete Shift:=xlUp
'A1-C3 Inhalt löschen
'Range("A1:C3").ClearContents
End If
End Sub