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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen