Microsoft Excel

Herbers Excel/VBA-Archiv

Löschen, wenn einer bestimmte Zelle Daten hat

Betrifft: Löschen, wenn einer bestimmte Zelle Daten hat von: Andre
Geschrieben am: 14.09.2004 14:30:52

Hallo, folgendes Problem habe ich:
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

  


Betrifft: AW: Löschen, wenn einer bestimmte Zelle Daten hat von: Marcl
Geschrieben am: 14.09.2004 14:34:58

Hallo Andre,

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


Gruß
Marcl


  


Betrifft: AW: Löschen, wenn einer bestimmte Zelle Daten hat von: Andre
Geschrieben am: 14.09.2004 15:24:06

Danke Macl, habe für meine Zwecke wie folgt umgeschrieben:

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



 

Beiträge aus den Excel-Beispielen zum Thema "Löschen, wenn einer bestimmte Zelle Daten hat"