Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
484to488
484to488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Löschen, wenn einer bestimmte Zelle Daten hat

Löschen, wenn einer bestimmte Zelle Daten hat
14.09.2004 14:30:52
Andre
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Löschen, wenn einer bestimmte Zelle Daten hat
Marcl
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
AW: Löschen, wenn einer bestimmte Zelle Daten hat
14.09.2004 15:24:06
Andre
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

Anzeige

249 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige