Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
548to552
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
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
AW: Verschiedene Zellen löschen
HerbertH
die Absatzbildung hat nichts zu sagen,
bei größeren Makros wird Übersichtlichkeit erhöht...
gruß Herbert
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige