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

Zellinhalt löschen

Forumthread: Zellinhalt löschen

Zellinhalt löschen
20.04.2008 22:50:03
jens
Hallo Leute
hab mal ein problem wenn in spalte b ein "A" steht dann soll in spalte "D" der zellinhalt gelöscht werden(per makro),aber die bedingte formatierung soll erhalten bleiben.
vieleicht hat ja einer ne idee.
mfg jens

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellinhalt löschen
20.04.2008 22:56:00
Jens
Hallo Jens

Sub tt()
Dim zelle As Range
For Each zelle In Range("B:B")
If zelle.Value = "A" Then
zelle.Offset(0, 2) = ""
End If
Next zelle
End Sub


Gruß aus dem Sauerland
Jens

AW: Zellinhalt löschen
20.04.2008 22:58:55
Heinz
Hi,
das mach mal in Excel 2007, die Zellen solltest du schon einschränken.
mfg Heinz

Anzeige
AW: Zellinhalt löschen
20.04.2008 23:02:01
Jens
Hi
Dazu kann ich nix sagen. Ich benutze XL2003.
Da funzt es.
Gruß aus dem Sauerland
Jens

AW: Zellinhalt löschen
20.04.2008 23:10:03
Heinz
Hi,
klar funktioniert es, bei über 1 Mio Zeilen in E 2007 dauert das aber unnötig lange,
das gilt auch für E 2003.
mfg Heinz

AW: Zellinhalt löschen
20.04.2008 23:23:00
jens
Hallo Jens,
vielen Dank. genau das habe ich gebraucht.
Funktioniert super!!!
Bis bald Jens

Anzeige
AW: Zellinhalt löschen
20.04.2008 23:27:12
Uduuh
Hallo,
sicher funktioniert das. Aber viel zu langsam.
1. wird die komplette Spalte durchsuchst
2. ist die Bildschirmaktualisierung nicht abgeschaltet.
Gruß aus’m Pott
Udo

Korrektur...
20.04.2008 23:47:39
Jens
Hi nochmal
Die Einwände sind natürlich berechtigt.
An die erheblichen Mehr-Zellen in 2007 hab ich nicht gedacht.

Sub tt()
Application.ScreenUpdating = False
Dim zelle As Range
For Each zelle In Range("B1:B" & ActiveSheet.UsedRange.Rows.Count)
If zelle.Value = "A" Then
zelle.Offset(0, 2) = ""
End If
Next zelle
Application.ScreenUpdating = True
End Sub


Gruß aus dem Sauerland
Jens

Anzeige
;

Beliebteste Forumthreads (12 Monate)

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