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.

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Zellen Löschen

Gerd
AW: Zellen Löschen

Frisbos

AW: Zellen Löschen

27.04.2011 23: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

AW: Zellen Löschen

27.04.2011 23:39:23

Frisbos

Hallo Gerd,
Super!!!, dass klappt wie gewünscht.
Vielen Dank für Deine rasche Antwort / Hilfe.
Gruss
F

Forumthread: Zellen Löschen

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

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread