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

Zelle leeren

Forumthread: Zelle leeren

Zelle leeren
20.01.2006 08:27:31
serge
Hallo Leute
ich habe eine Datei mit mehreren geschützten Arbeitsblätter.
Ich möchte nun alle ungeschützten Zellen anspringen und von Inhalt befreien.
Ich sehen es in etwa so:

Sub löschen()
Sheets("General").Select
ActiveCell.Next.Activate
Selection.ClearContents
'next!!!........(Schleife bis alle Zellen leer sind!)
Sheets("Misc.").Select
'da kommt das ........hin
Sheets("General").Select
Range("A1").Select
End Sub

wer hilft mir auf die Sprünge?
Danke
Serge
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle leeren
20.01.2006 09:16:10
Matthias
Hallo Serge,
z.B. so:

Sub test()
Dim z As Range, sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
For Each z In sh.UsedRange
If z.Locked = False Then z.ClearContents
Next z
Next sh
End Sub

Gruß Matthias
Zelle leeren funkzt noch nicht
20.01.2006 09:34:20
serge
Hallo Mathias
Danke für deine Hilfe, aber irgendwie stimt es nicht.
Bei "z.ClearContents" bleibt er stehen und hat im Tabellenblatt noch keinen Wank gemacht!
Serge
Anzeige
AW: Zelle leeren funkzt noch nicht
20.01.2006 09:36:32
Matthias
Hallo Serge,
Bei "z.ClearContents" bleibt er stehen
Was kommt denn für eine Fehlermeldung?
Matthias
Laufzeitfehler 1004
20.01.2006 09:42:10
serge
Laufzeitfehler 1004
kann Teil einer verbundenen Zelle nicht ändern?
Serge
AW: Laufzeitfehler 1004
20.01.2006 09:48:08
Matthias
Hallo Serge,

Sub test()
Dim z As Range, sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
For Each z In sh.UsedRange
If z.MergeArea.Locked = False Then z.MergeArea.ClearContents
Next z
Next sh
End Sub

GRuß Matthias
Anzeige
i.O. Danke
20.01.2006 10:12:15
serge
Danke Mathias
es funktioniert bestens.
Solong
Serge
AW: Zelle leeren
20.01.2006 09:25:41
u_
Hallo,

Sub loeschen()
Dim c As Range, wks As Worksheet
For Each wks In Worksheets
For Each c In wks.UsedRange
If Not c.Locked Then c.ClearContents
Next
Next
End Sub

Gruß
Geist ist geil!
Anzeige
idem ...Zelle leeren funkzt noch nicht
20.01.2006 09:38:46
serge
Hallo U-
Danke für deine Hilfe, aber irgendwie stimt es nicht.
Bei "z.ClearContents" bleibt er stehen und hat im Tabellenblatt noch keinen Wank gemacht!
Serge
;

Beliebteste Forumthreads (12 Monate)

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