aktuell. Tabellenblatt ungeschütze Zellen leeren
Christian
ich habe eine Tabelle mit mehreren Tabellenblättern. Die Tabellenblätter enthalten jeweils ein Formular als Tabelle mit ungeschützen Zellen in die man Eingaben machen kann (gelb hinterlegt).
Über einen Button soll am alle Eingaben in den ungeschützen Zellen leeren können, aber nur im gerade aktiven Tabellenblatt. Es sind übrigens auch verbundene Zellen dabei.
Ich habe folgenden VBA-Code gefunden, der auch prima funktioniert, jedoch die Eingaben in allen Tabellenblättern in den ungeschützten Zellen löscht.
Könnte mir jemand den VBA-Code entsprechend anpassen, ich bin leider zu blöd dazu:
Option Explicit
Sub AktiveTabelleleeren()
If MsgBox("Möchtest du alle Eingaben im Formular löschen?", vbYesNo) = vbNo Then Exit
Sub Else
Dim ws As Integer
Dim src As Range, cell As Range
For ws = 1 To Worksheets.Count
Set src = Nothing
For Each cell In Worksheets(ws).UsedRange
If Not cell.Locked Then
If src Is Nothing Then
Set src = cell.MergeArea
Else
Set src = Union(src, cell.MergeArea)
End If
End If
Next cell
If Not src Is Nothing Then src.ClearContents
Next ws
End Sub
Gruß Christian
Anzeige