Excel: nicht geschützte Zellen löschen

Diskutiere mit über: Excel: nicht geschützte Zellen löschen im Office Software Forum

  1. Ruedi Schaerer

    Ruedi Schaerer Thread Starter MacUser Mitglied

    Beiträge:
    30
    Zustimmungen:
    0
    Registriert seit:
    14.10.2003
    Hallo
    Gibt es eine Möglichkeit in einem geschützten Dokument alle nicht geschützten Zellen auf einmal zu löschen?
    Vielen Dank für jede Hilfe.
    Ruedi
     
  2. Jabba

    Jabba MacUser Mitglied

    Beiträge:
    4.465
    Zustimmungen:
    109
    Registriert seit:
    21.11.2003
    Moin Rudi,
    da man bei einem geschützen Blatt nicht alles auswählen kann, wird das ohne VBA nicht klappen.
    Da ich aber ein ganz netter bin, habe ich Dir mal ein kleines VBA Modul geschrieben, welches alle nicht geschützen Zellen einfach leerlöscht.
    Das Makro nimmt einfach den benutzen Bereich der Tabelle, fragt jede Zelle ob gesperrt und wenn nicht, werden die Inhalte gelöscht.
    Das die UsedRange abgefragt wird, mach bitte nicht den Fehler, ganze Spalten oder Zeilen etc. zu markieren und zu ändern... ;)

    Code:
    Sub loe()
        ActiveSheet.UsedRange.Select
        For Each i In Selection
                If i.Locked = True Then
                Else
                i.ClearContents
            End If
           Next
    End Sub
    
    Diesen Code in ein Modul im VBA Editor einfügen, und dann bei Extras, Makros, loe ausführen starten.
    HTH
    :)
     
  3. Ruedi Schaerer

    Ruedi Schaerer Thread Starter MacUser Mitglied

    Beiträge:
    30
    Zustimmungen:
    0
    Registriert seit:
    14.10.2003
    Lieber Dr. Jabba
    Du bist wirklich ein ganz Netter. Ganz herzlichen Dank.
    Grüsse
    Ruedi
     
    Zuletzt bearbeitet: 24.02.2006
Die Seite wird geladen...
Ähnliche Themen - Excel geschützte Zellen Forum Datum
Excel 2016: Meldung "... Datei XY ist unauffindbar. Kopieren:" Office Software 18.11.2016
Excel, Word oder PP starten dauert eeewig Office Software 18.11.2016
Excel Notendurchschnitt Office Software 11.11.2016
Probleme beim Drucken von Excel-Dateien Office Software 07.11.2016
Anzahl der göffneten EXCEL Dateien Office Software 31.10.2016

Diese Seite empfehlen

Benutzerdefinierte Suche