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

Alle nichtgespeerten Zellen leeren.

Forumthread: Alle nichtgespeerten Zellen leeren.

Alle nichtgespeerten Zellen leeren.
04.04.2006 14:11:35
MichaK
Hallo zusammen,
gibt es einen Befehl mit dem ich beim Öffnen einer Arbeitsmappe alle nichtgespeerten Zellen aller Tabellenblätter leeren kann?
LG
Micha
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle nichtgespeerten Zellen leeren.
04.04.2006 14:26:59
IngGi
Hallo Micha,
so zum Beispiel. Scheint mir allerdings sehr aufwendig und entsprechend langsam. Vielleicht weiß ja noch jemand was raffinierteres.

Private Sub Workbook_Open()
Dim rng As Range
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
For Each rng In wks.UsedRange.Cells
If rng.Locked = False Then rng.ClearContents
Next 'rng
Next 'wks
End Sub
Gruß Ingolf
Anzeige
AW: Alle nichtgespeerten Zellen leeren.
05.04.2006 11:44:20
MichaK
Dankeschön für die Antworten.
Leider funktionieren diese Varianten nicht bei verbundenen Zellen. Da es sich aber um ein Formular handelt, welches zwingend verbundene Zellen enthält, konnte ich das Problem noch nicht lösen.
AW: Alle nichtgespeerten Zellen leeren.
04.04.2006 14:45:15
Beate
Hallo,
lege auf die ungesperrten Zellen gleichzeitig eine unbedeutende bedingte Formatierung (z.B. =B2""), dann geht es mit diesem Workbook_Open-Makro:
Private Sub Workbook_Open()
    Dim myWorksheet As Worksheet
    For Each myWorksheet In Worksheets
        With myWorksheet
            .Activate
        End With
        ActiveCell.SpecialCells(xlCellTypeAllFormatConditions).ClearContents
    Next
End Sub
Beispielmappe anbei. Die entsperrten Zellen sind die gelben:
https://www.herber.de/bbs/user/32594.xls
Gruß,
Beate
Anzeige
AW: Alle nichtgespeerten Zellen leeren.
05.04.2006 11:53:29
MichaK
Hallo Beate Danke für die Antwort,
ich habe noch eine Frage. Was passiert wenn ich in dieser Tabelle schon andere bedingte Formatierungen verwende, diese Zellen aber gespeert sind?
LG
Micha
AW: Alle nichtgespeerten Zellen leeren.
05.04.2006 13:25:38
Beate
Hallo,
zu deiner Rückfrage:
- wenn die Zellen gesperrt sind, der Blattschutz jedoch nicht eingeschaltet ist, dann werden die Zellen ebenfalls geleert
- wenn die Zellen gesperrt sind und der Blattschutz eingeschaltet ist, dann kommt es zu einem Laufzeitfehler
Ich denke, diese Löschvariante sollte man nur einsetzen, wenn man anderweitig keine bedingte Formatierung in der Datei einsetzt.
Gruß,
Beate
Anzeige
AW: Alle nichtgespeerten Zellen leeren.
05.04.2006 13:32:51
MichaK
Danke für Deine Antwort. Die anderen bedingten Formatierungen verwende ich um Nullen auszublenden. Diese Zellen sind aber gespeert. Ich muss jedoch die nichtgespeerten Zellen irgendwie wieder leer bekommen. ;-)
AW: Alle nichtgespeerten Zellen leeren.
05.04.2006 14:24:43
Beate
Hallo Micha,
das mit den Nullwerten kannst du auch auf anderem Weg lösen, dass sie nicht angezeigt werden.
Über Menü &gt Extras &gt Optionen &gt Registerblatt Ansicht &gt Haken löschen bei Nullwerte
Damit wäre diese bedingte Formatierung dann nicht mehr nötig.
Gruß,
Beate
Anzeige
;

Forumthreads zu verwandten 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
Zelle nichtleer, dann Spalten ausblenden
kellerkind42

hallo.
Ich tue mich sehr schwer mit folgendem Wunsch:
Im Spaltenbereich A-Z:
Im Zeilenbereich 10 -20:
z.B:
Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
Kann mir bitte jemand auf die Sprünge helfen?
Gruß Reinhardt.
20.08.2008 07:29:00
Thread-ID: 1003062
6 Beiträge
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
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
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
Anzeige
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
Kopieren von Nichtleeren Zellen per Formel
Nichtleeren

Moin,
auf der Arbeit soll ich eine Tabelle anpassen:
In Tabellenblatt1 ist eine Matrix M6:P109, in einigen Zeilen (Artikelnummern in loser Reihenfolge) stehen Werte, (die Artikel, die im Bürobestand fehlen) in den meisten nicht.
Die Zeilen, in denen Werte stehen, sollen nun in Tabel...
10.01.2009 20:43:46
Thread-ID: 1038525
4 Beiträge
Kann leere Zelle nicht anwählen
Enzo

Hallo Zusammen
Von einer UF über CommandButton möchte ich auf das Blatt NBListe auf Zelle A1 öffnen.
Das heißt ich möchte beim Betätigen des Commbutton auf das Blatt kommen.
In der Zelle A1 steht nichts. Sobald ich eine beschriebene Zelle ansteuere geht es.
Warum kann ich nicht...
12.01.2009 20:46:00
Thread-ID: 1039016
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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