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

Verschiedene Zellen löschen

Forumthread: Verschiedene Zellen löschen

Verschiedene Zellen löschen
17.01.2005 11:32:44
Werner
Hallo Profis,
Ich habe das Problem, dass ich in einem geschützten Tabellenblatt verschiedene ungeschützte Zellen löschen möchte. Zur Zeit verwende ich die Version
Range("A1,B2,C1:C4 ..usw.").Selelect
Selection.Clear usw.
Gibt es einen Befehl für "Alle ungeschützten Zellen" löschen
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verschiedene Zellen löschen
HerbertH
hallo Werner,
das müßte so in etwa gehen:

Sub ung_Zellen_löschen()
Dim c As Range, ber As Range
Set ber = ActiveSheet.[a1:z1000]
For Each c In ber
If c.Locked = False Then
c.ClearContents
End If
Next
End Sub

gruß Herbert
AW: Verschiedene Zellen löschen
Werner
Hallo Herbert,
Bin leider nicht eher dazu gekommen.
Danke für Deine Hilfe, klappt genau so wie ich es mir gedacht habe.
Abschließend noch eine allgemeine Frage. Hat die Absatzbildung etwas zu sagen oder kann man ein Makro auch generell linksbündig schreiben.
mfg Werner
Anzeige
AW: Verschiedene Zellen löschen
HerbertH
die Absatzbildung hat nichts zu sagen,
bei größeren Makros wird Übersichtlichkeit erhöht...
gruß Herbert
;

Beliebteste Forumthreads (12 Monate)

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