Inhalte löschen

Forumthread: Inhalte löschen

Inhalte löschen

12.11.2004 10:31:42

Klaus

Hallo zusammen
Ich möchte alle Zellinhalte aus NICHT gesperrten Zellen in mehreren Tabellen löschen.
Ist das mit VBA möglich?
Gruss Klaus

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Inhalte löschen

ChrisL
AW: Inhalte löschen

Worti
AW: Inhalte löschen

12.11.2004 11:03:42

Klaus

AW: Inhalte löschen

ChrisL

Hi Klaus


Sub t()
Dim WS As Worksheet
Dim Zelle As Range
For Each WS In ThisWorkbook.Worksheets
For Each Zelle In WS.UsedRange
If Zelle.Locked = False Then Zelle.ClearContents
Next Zelle
Next WS
End Sub

Gruss
Chris

AW: Inhalte löschen

Worti

Hallo Klaus,
so gehts:

Sub DelUnlocked()

    Dim ws As Worksheet
    Dim c As Range
    For Each ws In ActiveWorkbook.Worksheets
        For Each c In ws.UsedRange
            If c.Locked = False Then
               c.ClearContents
            End If
        Next c
    Next ws

End Sub

Worti

AW: Inhalte löschen

12.11.2004 11:03:42

Klaus

Vielen Dank für Eure schnelle Antwort. Funktioniert prima
Gruss Klaus

Forumthread: Inhalte löschen

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

VBA Beispiele zu diesem und ähnlichen Themen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread