Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1212to1216
1212to1216
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen Löschen

Forumthread: Zellen Löschen

Zellen Löschen
Frisbos
Hi Forum,
Ich möchte ein Makro wie folgt anpassen.
Suche in Spalte B nach der Zelle mit dem Wert "Trüb" und lösche die 9 direkt darunter liegenden Zellen (nicht Zeilen).
Bsp.
"Trüb" steht in B35 dann soll er mir B36 bis B44 löschen.
Bin für jede Hilfe dankbar.
Anzeige

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

Betreff
Benutzer
Anzeige
AW: Zellen Löschen
27.04.2011 21:05:45
Gerd
Hallo F.,
falls nur die Werte gelöscht werden sollen, ersetze Delete durch ClearContents. 
Sub test()
Dim objCell As Range
Set objCell = Columns(2).Find(what:="Trüb", lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True)
If Not objCell Is Nothing Then objCell.Offset(1).Resize(9, 1).Delete
End Sub
Gruß Gerd
Anzeige
AW: Zellen Löschen
27.04.2011 21:39:23
Frisbos
Hallo Gerd,
Super!!!, dass klappt wie gewünscht.
Vielen Dank für Deine rasche Antwort / Hilfe.
Gruss
F
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige