Wenn Zelle nicht leer, dann...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Makro1() Dim raBereich As Range Dim raZelle as Range Set raBereich = Worksheets("Tabelle1").Range("J5:J500") For Each raZelle In raBereich If raZelle "" Or raZelle.Offset(0, 1) "" Then With raZelle.EntireRow .Font.Color = 5287936 .Locked = True End With End If Next raZelle Worksheets("Tabelle1").Protect Password:="Hallo" End Sub

Hallo,
sehe gerade, dass ich einen Fehler drin habe. Ich habe mich da wohl verlesen. Mein Code schaut auch nach, ob in Spalte K Daten vorhanden sind.
Diese Codezeile

If raZelle  "" Or raZelle.Offset(0, 1)  "" Then

durch diese ersetzen

If raZelle  "" Then

Gruß Werner

Sub Makro1() Dim raBereich As Range Dim raZelle As Range Worksheets("Tabelle1").Unprotect Password:="Hallo" Set raBereich = Worksheets("Tabelle1").Range("J5:J500") For Each raZelle In raBereich If raZelle "" Then With raZelle.EntireRow .Font.Color = 5287936 .Locked = True End With End If Next raZelle Worksheets("Tabelle1").Protect Password:="Hallo" End Sub

Sub Gruen() Dim RNG With ActiveSheet Set RNG = .Range("J6:J500") If WorksheetFunction.CountA(RNG) > 0 Then .Unprotect Password:="abc" 'Reset With RNG.EntireRow .Locked = False .Font.ColorIndex = xlAutomatic End With With RNG.SpecialCells(xlCellTypeConstants, 3).EntireRow .Locked = True .Font.Color = -11489280 End With .Protect Password:="abc" Else MsgBox "Keine Daten vorhanden" Exit Sub End If End With End Sub

Sub Gruen() Dim RNG With ActiveSheet Set RNG = .Range("J6:J500") If WorksheetFunction.CountA(RNG) > 0 Then .Unprotect Password:="abc" 'Reset With RNG.EntireRow .Locked = False .Font.Color = -16776961 End With With RNG.SpecialCells(xlCellTypeConstants, 3).EntireRow .Locked = True .Font.Color = -11489280 End With .Protect Password:="abc" Else MsgBox "Keine Daten vorhanden" Exit Sub End If End With End Sub

Infobox zum Thema

EXCEL - VBA: Zeilen verarbeiten

Was ist VBA?

VBA (Visual Basic für Applikationen) ist die Programmiersprache von Excel und anderen Office-Anwendungen. Mit VBA kannst du Makros schreiben, um automatisierte Aufgaben in Excel zu erledigen.

Einsatzzweck

In dieser Aufgabe möchtest du:

Zeilen basierend auf dem Inhalt einer bestimmten Zelle schützen.
Die Schriftfarbe von Zeilen ändern, basierend auf dem Inhalt der gleichen Zelle.

VBA-Prozedur

Hier ist ein VBA-Makro, das genau das tut:

Sub ZeilenSchuetzenUndFaerben()

    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim passwort As String

    ' Das Arbeitsblatt setzen
    Set ws = ThisWorkbook.Sheets("DeinBlattname") 'Ändere "DeinBlattname" in den Namen deines Arbeitsblattes

    ' Den Bereich von J5 bis J500 festlegen
    Set rng = ws.Range("J5:J500")

    ' Das Passwort festlegen
    passwort = "DeinPasswort" 'Ändere "DeinPasswort" in das gewünschte Passwort

    ' Den Blattschutz aufheben
    ws.Unprotect passwort

    ' Durch den Bereich gehen
    For Each cell In rng
        If Not IsEmpty(cell) Then
            cell.EntireRow.Locked = True
            cell.EntireRow.Font.Color = vbGreen
        Else
            cell.EntireRow.Locked = False
            cell.EntireRow.Font.Color = vbBlack
        End If
    Next cell

    ' Blattschutz aktivieren
    ws.Protect passwort

End Sub

Um dieses Makro auszuführen:

Drücke ALT + F11, um den VBA-Editor zu öffnen.
Einfügen -> Modul.
Kopiere den obigen Code in das Modulfenster.
Führe das Makro aus, indem du F5 drückst, während das Makro im Editor ausgewählt ist.

Anwendungsbeispiele aus der Praxis

VBA wird in Excel häufig verwendet, um:

Daten automatisch zu sortieren und zu filtern.
Berichte basierend auf festgelegten Kriterien automatisch zu generieren.
Benutzerdefinierte Formulare und Benutzeroberflächen zu erstellen.

Tipps

Es ist immer eine gute Idee, vor dem Ausführen eines VBA-Makros eine Sicherungskopie deiner Excel-Datei zu erstellen.
Verwende immer ein Passwort, das du dir leicht merken kannst, um den Blattschutz zu aktivieren.

Zusammenfassung

Mit VBA kannst du mächtige und automatisierte Aufgaben in Excel durchführen. In dieser speziellen Aufgabe haben wir ein Makro verwendet, um Zeilen basierend auf dem Inhalt einer Zelle zu schützen und ihre Schriftfarbe zu ändern. Es ist wichtig, vor dem Ausführen von Makros immer vorsichtig zu sein und sicherzustellen, dass du eine Backup-Kopie deiner Daten hast.

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Infobox zum Thema

EXCEL - VBA: Zeilen verarbeiten

Inhaltsverzeichnis

Was ist VBA?

Einsatzzweck

VBA-Prozedur

Anwendungsbeispiele aus der Praxis

Tipps

Verwandte Funktionen

Zusammenfassung

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wenn Zelle nicht leer, dann...

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Infobox zum Thema

EXCEL - VBA: Zeilen verarbeiten

Inhaltsverzeichnis

Was ist VBA?

Einsatzzweck

VBA-Prozedur

Anwendungsbeispiele aus der Praxis

Tipps

Verwandte Funktionen

Zusammenfassung

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread