Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

alle nicht gesperrten Zellen markieren

Forumthread: alle nicht gesperrten Zellen markieren

alle nicht gesperrten Zellen markieren
11.07.2003 12:09:21
Tanja
Hallo Profis,

ich würde gerne mit einem Klick alle nicht gesperrten Zellen in einer Tabelle markieren können, so dass ich überprüfen kann, ob in allen notwendigen Zellen die Sperrung aufgehoben ist und ich sie dann farblich vom Rest der Tabelle absetzen kann.

Ich bin leider noch blutiger Anfänger und bräuchte - wenn das notwendig ist - denn vollständigen VBA-Code... ;o)

Vielen Dank im Voraus!

Grüßle
Tanja
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: alle nicht gesperrten Zellen markieren
11.07.2003 12:12:28
Bernd Held
Hallo Tanja,

Das könntest du über die bedingte Formatierung so machen, dass alle nicht gesperrten Zellen farblich markiert werden.
Formel ist: =ZELLE("Schutz";D5)=0 dann Farbe einstellen.

Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA-Bücher mit Leseproben(PDF), VBA-Forum und VBA-Schulungen unter: http://held-office.de



Anzeige
nochmal: alle nicht gesperrten Zellen markieren
11.07.2003 12:58:25
Tanja
Hallo Bernd,

vielen Dank für deinen Tipp aber ich verstehe diesen noch nicht ganz. Muss ich so jede Zelle einzeln bearbeiten?...

Was ich erhofft habe, ist ein VBA-Code, den ich einem Icon zuordne, und somit in jedem beliebigen Tabellenblatt "per Knopfdruck" die nicht gesperrten Zellen identifizieren kann!?

Ist dies möglich?

Vielen Dank für die Hilfe!
Tanja


Anzeige
AW: nochmal: alle nicht gesperrten Zellen markieren
11.07.2003 13:29:21
Bernd Held
Hallo Tanja,

ok, dann ein MAkro:

Sub NichtGesperrteZellenEinfärben()
Dim zelle As Range
For Each zelle In ActiveSheet.UsedRange
 If zelle.Locked = False Then
 zelle.Interior.ColorIndex = 4
 Else
 zelle.Interior.ColorIndex = xlColorIndexNone
 End If
Next zelle
End Sub


Viele Grüße
Bernd
MVP für Microsoft Excel
Das VBA-Bücher mit Leseproben(PDF), VBA-Forum und Schulungen
unter http://held-office.de
     Code eingefügt mit Syntaxhighlighter 1.14




Anzeige
AW: nochmal: alle nicht gesperrten Zellen markieren
11.07.2003 15:02:17
Tanja
Hallo Bernd,

ich hoffe, ich habe dich nicht beleidigt!

Bitte entschuldige!

Würde mich auch über eine Rückmeldung freuen, wenn du aus deiner Sicht eine Lösung meiner Aufgabenstellung für grundsätzlich möglich hälst und sich also eine weitere Suche lohnen würde!?

Vielen Dank!
Tanja


Anzeige
AW: nochmal: alle nicht gesperrten Zellen markieren
11.07.2003 16:27:41
Bernd Held
Hallo Tanja,

nein, mach dir darüber keine Sorgen.

eine mögliche Lösung, die auch funktioniert, wenn nicht allzuviel Zellen gefunden werden sieht wie folgt aus:

Sub NichtGesperrteZellenMarkieren()
Dim zelle As Range
Dim s As String
Dim lArray() As String
Dim i As Integer
Dim e As Integer

i = 1
ReDim lArray(1 To 100)

For Each zelle In ActiveSheet.UsedRange
 If zelle.Locked = False Then
    lArray(i) = zelle.Address
    i = i + 1
    Else
    End If
Next zelle

For e = 1 To i
s = s & lArray(e) & ","
Next e
s = Left(s, Len(s) - 2)
Range(s).Select
End Sub
     Code eingefügt mit Syntaxhighlighter 1.14



Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA-Bücher mit Leseproben(PDF), VBA-Forum und VBA-Schulungen unter: http://held-office.de



Anzeige
ui! super - noch eine Detailfrage
11.07.2003 14:07:19
Tanja
Hi Bernd,

boah, das sieht ja schon mal suuuupi aus!
wie muss ich den obigen Code denn abändern, damit die Zellen lediglich markiert werden und nicht sofort coloriert??

...du merkst, ich bin wirklich blutiger Anfänger :o(

Gracias!!
Tanja


AW: ui! super - noch eine Detailfrage
11.07.2003 16:08:33
Bernd Held
Hallo Tanja,

das ist gar nicht mal so einfach, bin gerade noch dran, dafür eine Lösung zu entwickeln.

Viele Grüße
Bernd
MVP für Microsoft Excel
Excel-Tipps, VBA-Bücher mit Leseproben(PDF), VBA-Forum und VBA-Schulungen unter: http://held-office.de



Anzeige

Forumthreads zu verwandten Themen

Anzeige

Infobox / Tutorial

Alle nicht gesperrten Zellen in Excel markieren


Schritt-für-Schritt-Anleitung

Um alle nicht gesperrten Zellen in Excel zu markieren, kannst du entweder die bedingte Formatierung oder ein VBA-Makro verwenden. Hier ist eine detaillierte Anleitung für beide Methoden:

Methode 1: Bedingte Formatierung

  1. Wähle den Zellbereich aus, den du überprüfen möchtest.
  2. Gehe zu Start > Bedingte Formatierung > Neue Regel.
  3. Wähle Formel zur Ermittlung der zu formatierenden Zellen verwenden.
  4. Gib die folgende Formel ein:
    =ZELLE("Schutz";A1)=0

    (Ersetze A1 durch die erste Zelle deines gewählten Bereichs.)

  5. Klicke auf Formatieren, wähle eine Farben und klicke auf OK.

Methode 2: VBA-Makro

  1. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Gehe zu Einfügen > Modul.

  3. Füge den folgenden Code ein:

    Sub NichtGesperrteZellenEinfärben()
       Dim zelle As Range
       For Each zelle In ActiveSheet.UsedRange
           If zelle.Locked = False Then
               zelle.Interior.ColorIndex = 4 ' Grün
           Else
               zelle.Interior.ColorIndex = xlColorIndexNone
           End If
       Next zelle
    End Sub
  4. Schließe den VBA-Editor und führe das Makro über Entwicklertools > Makros aus.


Häufige Fehler und Lösungen

  • Fehler: Die Zellen werden nicht farblich hervorgehoben.

    • Lösung: Stelle sicher, dass die Zellen tatsächlich nicht gesperrt sind. Überprüfe die Zelleigenschaften unter Format > Zellen > Schutz.
  • Fehler: Das Makro funktioniert nicht.

    • Lösung: Überprüfe, ob du die Makros in den Excel-Einstellungen aktiviert hast. Gehe dazu auf Datei > Optionen > Trustcenter > Einstellungen für das Trustcenter > Makroeinstellungen.

Alternative Methoden

Eine alternative Möglichkeit, nicht gesperrte Zellen zu markieren, ist die Verwendung von Power Query. Mit Power Query kannst du Daten importieren und transformieren, jedoch erfordert es ein gewisses Maß an Vorwissen.

Hier ist eine schnelle Übersicht:

  1. Wähle Daten > Abfragen und Verbindungen.
  2. Lade die Tabelle, die du analysieren möchtest.
  3. Verwende die Filteroptionen, um gesperrte Zellen auszublenden.

Praktische Beispiele

Beispiel 1: Wenn du eine Tabelle mit Benutzerdaten hast und sicherstellen möchtest, dass nur die nicht gesperrten Zellen bearbeitet werden können, kannst du die oben genannten Methoden verwenden, um diese Zellen hervorzuheben.

Beispiel 2: In einem Budgetplan kannst du nicht gesperrte Zellen farblich markieren, um sicherzustellen, dass die Budgetkontrolle nur in den bearbeitbaren Zellen erfolgt.


Tipps für Profis

  • Speichere deine VBA-Codes in einem Add-In, um sie in verschiedenen Arbeitsmappen wiederverwenden zu können.
  • Verwende Application.ScreenUpdating = False, um die Ausführungsgeschwindigkeit deines Makros zu erhöhen.
  • Experimentiere mit verschiedenen Farbcodes, um die Sichtbarkeit zu erhöhen.

FAQ: Häufige Fragen

1. Frage
Wie kann ich den VBA-Code anpassen, damit die Zellen nur markiert und nicht eingefärbt werden?
Antwort: Ersetze die Zeile zelle.Interior.ColorIndex = 4 durch zelle.Select, um die Zellen zu markieren, ohne sie zu färben.

2. Frage
Kann ich die bedingte Formatierung auch für mehrere Blätter anwenden?
Antwort: Ja, du musst die bedingte Formatierung auf jedem Blatt einzeln anwenden oder ein VBA-Makro schreiben, das dies für alle Blätter automatisiert.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige