Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1392to1396
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inhalt nicht gesperrter Zellen leeren

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
    Anzeige
    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

    Anzeige
    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

    317 Forumthreads zu ähnlichen Themen

    Zellen kopieren wenn Ziel nicht leer
    Tom

    Guten Morgen!
    Ich suche mittels VBA folgende Möglichkeit
    Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
    Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
    Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann...
    18.08.2008 11:18:24
    Thread-ID: 1002534
    4 Beiträge
    Anzeige
    MSGBox wenn Zelleninhalt geleert wurde?!
    Tom

    Hallo!
    Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
    Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
    Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
    26.08.2008 15:07:01
    Thread-ID: 1004826
    6 Beiträge
    Wenn Zelle leer, dann Grafik löschen
    TomTom

    Hi,
    ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
    gelöscht oder unsichtbar werden.
    Wie mache ich dies ?
    Danke mal
    Gruss
    Tom<...
    22.09.2008 08:28:10
    Thread-ID: 1011373
    3 Beiträge
    Anzeige
    Zählen wenn Zelle nicht leer
    Tim

    Hallo Forum,
    wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
    Gruß
    Tim
    20.10.2008 11:47:00
    Thread-ID: 1017617
    3 Beiträge
    Zählen nichtleerer Zellen
    Stefan

    Hallo zusammen,
    ich erbitte erneut Eure Hilfe. Es geht darum Zellen mit Inhalt einer Liste der Fuhrparkverwaltung zu zählen. In Spalte C:J habe ich jeweils die verschiedenen Fahrzeuge. In den Zeilen 7:372 trage ich dann ein, wer welches Fahrzeug belegt hat. Geht eine Fahrt über mehrere Tage...
    04.11.2008 08:20:00
    Thread-ID: 1021461
    3 Beiträge
    Leere zellen nicht leer und Zahlen keine Zahlen
    P.Mackes

    Per google bin ich zwar auf einige themen gestoßen, die sich mit diesen oder ähnlichen Probleme beschäftigen, aber so richtig gepasst hat für mich nichts oder die lösungen waren vba basiert und das kann ja nicht der stein der Weisen sein.
    https://www.herber.de/bbs/user/56887.xls
    es tre...
    18.11.2008 11:08:00
    Thread-ID: 1025551
    10 Beiträge
    wenn Spalte F nicht leer, ganze Zeile markieren
    maxx_1985

    Hallo mit'mander
    Ich hab ein kleines VBA Probelem. Naemlich das fogende:
    Wenn Zelle in Spalte F NICHT leer, dann die ganze Zeile markieren (einfach markieren, keine Farbe und nichts).
    Bin gerade dabei mit dem Recorder was zu basteln (da ich noch kein vba kann) und bin an ganau diese...
    19.11.2008 18:37:00
    Thread-ID: 1026165
    11 Beiträge
    Hinweis wenn Zellen nicht gefüllt sind
    Uwe

    Hallo an Alle,
    hab dank der Recherche mir folgendes Macro zusammen gestellt....
    Sub Uebergeben1() Dim lRow As Long lRow = Worksheets("Tabelle1").Cells(Rows.Count, 3).End(xlUp).Row + 1 Worksheets("Tabelle1").Unprotect Worksheets("Tabelle3").Range("C3, C5, C7, C9, C11, C13, C15, C17, C1...
    24.11.2008 23:09:00
    Thread-ID: 1027522
    3 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

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

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    3
    5
    5
    2
    9
    2
    2
    9
    10
    2
    3
    3
    5
    2
    7
    1
    10
    23
    23
    3
    6
    9
    7
    4
    9