Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
456to460
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
456to460
456to460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Range/Select Zelleninhalt löschen

Range/Select Zelleninhalt löschen
20.07.2004 14:32:17
Marc
Hallo,
ich möchte in allen Arbeitsblättern, außer in dem was Übersicht heißt, die Zellen E! bis E65000 löschen. Das wollte ich mit
dem folgenden Code machen, allerdings klappt das aus irgendwelchen Gründen nicht.
Es wird immer im Übersichtsblatt die Zelle E1 gelöscht.
Würde mich freuen, wenn sich das mal jemand ansehen könnte.
For Each objBlatt In ActiveWorkbook.Worksheets
If objBlatt.Name "Übersicht" Then
Range("E1, E65000").Select
Range("E1, E65000").Value = ""
End If
Next
Gruß
Marc

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range/Select Zelleninhalt löschen
Ulf
For Each objBlatt In ActiveWorkbook.Worksheets
If objBlatt.Name "Übersicht" Then
objBlatt.Range("E1, E65000").clearcontents
End If
Next
Ulf
AW: Range/Select Zelleninhalt löschen
Reinhard
Hi Marc,

For Each objBlatt In ActiveWorkbook.Worksheets
If objBlatt.Name <> "Übersicht" Then Range("E1:E65000").Clear
Next objBlatt

Gruß
Reinhard
Korrektur
Reinhard
Hi Marc,

For Each objBlatt In ActiveWorkbook.Worksheets
If objBlatt.Name <> "Übersicht" Then objBlatt.Range("E1:E65000").Clear
Next objBlatt

Gruß
Reinhard
Anzeige
AW: Korrektur
Ulf
Clear löscht aber auch Formate, das war nicht gewünscht!
Ulf
AW: Range/Select Zelleninhalt löschen
kdosi
Dim objBlatt
For Each objBlatt In ActiveWorkbook.Worksheets
If objBlatt.Name "Übersicht" Then
objBlatt.Range("E1:E65000").Clear
End If
Next
So sollte es funzen :-) Gruss kdosi, CZ
Vielen Dank an alle!
Marc
Hallo,
vielen Dank an alle. Jetzt funktioniert es.
Gruß
Pepper

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige