Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1212to1216
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1212to1216
1212to1216
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige