Inhalt nicht gesperrter Zellen leeren

Forumthread: Inhalt nicht gesperrter Zellen leeren

29.11.2014 22:15:50

dani

Hallo zusammen
Ich habe eine Datei die ich Blattgeschützt habe (ohne Passwort) und in welcher nur einzelne Zellen zwecks einer Eingabe frei sind. Nun möchte ich die Inhalte dieser Zellen mittels VBA löschen lassen.
Einen Code um die Zellen einzufärben habe ich gefunden, doch wie ich anstelle des einfärbens ein löschen hinkriege übersteigt meine VBA Kenntnisse.
Hier mal der Code den ich schon selber versucht habe abzuändern:


Sub GesperrteZellenlöschen()
Dim zelle As Range
Worksheets("Unregelmässigkeit").Unprotect Password:=""
For Each zelle In ActiveSheet.UsedRange
If zelle.Locked = False Then
zelle.ClearContents   'hier bricht mir der Code mit 1004 Kann Teil einer verbundenen Zelle  _
nicht ändern.
'  zelle.Interior.ColorIndex = 4 'so ist im Forum
Else
' zelle.Interior.ColorIndex = 2 'so ist im Forum
End If
Next zelle
Worksheets("Unregelmässigkeit").Protect Password:=""
End Sub

Wie gesagt ich habe mal etwas mit meinen VBA Kenntnissen versucht, doch leider bekomme ich einen 1004 Fehler. (Siehe Code)
Es gibt auf dem Sheet mehrere verbundene Zellen, die benötigt werden.
Danke schon mal für eure Mühe im Voraus.
Gruess Dani

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Inhalt nicht gesperrter Zellen leeren

29.11.2014 23:09:17

Tino
AW: Inhalt nicht gesperrter Zellen leeren

30.11.2014 21:40:42

dani
AW: Die Frage ist nicht eindeutig!

30.11.2014 12:57:11

Gerd

AW: Inhalt nicht gesperrter Zellen leeren

29.11.2014 23:09:17

Tino

Hallo,
versuch es mal so,
Schutz muss nicht aufgehoben werden die Zellen sind ja nicht gesperrt.

Sub Test()
Dim rng As Range, sErste$, rngUnion As Range
Application.FindFormat.Clear
Application.FindFormat.Locked = False
With Worksheets("Unregelmässigkeit").UsedRange
Set rng = .Find(What:="", LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=True)
If Not rng Is Nothing Then
Set rngUnion = rng
sErste = rng.Address
Do
Set rngUnion = Union(rngUnion, rng)
'FindNext hat nicht funktioniert bei Formatsuche !!!
Set rng = .Find(What:="", After:=rng, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=True)
Loop While sErste  rng.Address
End If
If Not rngUnion Is Nothing Then
rngUnion.Value = Empty
End If
End With
End Sub

Gruß Tino

AW: Inhalt nicht gesperrter Zellen leeren

30.11.2014 21:40:42

dani

Hallo Tino
Super. Vielen Dank funktioniert perfekt. Genau das was ich wollte.
Vielen Dank
Gruess Dani

AW: Die Frage ist nicht eindeutig!

30.11.2014 12:57:11

Gerd

Hallo Dani!
Falle es wirklich nur ein paar bekannte Zellen sind u. deren Werte gelöscht werden sollen,
dann bspw. so:

With Tabelle1
Union(.Range("A3"), .Range("C4:D5"), .Range("F7")).ClearContents
End With

Gruß Gerd

Beliebteste Forumthreads (12 Monate)

Inhalt nicht gesperrter Zellen leeren

Forumthread: Inhalt nicht gesperrter Zellen leeren

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread