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

Inhalte löschen

Forumthread: Inhalte löschen

Inhalte löschen
12.11.2004 09: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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
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
Anzeige
AW: Inhalte löschen
12.11.2004 10:03:42
Klaus
Vielen Dank für Eure schnelle Antwort. Funktioniert prima
Gruss Klaus
;

Beliebteste Forumthreads (12 Monate)

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