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

Wenn Zelle nicht leer, dann...

Forumthread: Wenn Zelle nicht leer, dann...

Wenn Zelle nicht leer, dann...
26.06.2017 09:30:52
amintire
Hallo zusammen,
ich benötige Eure Hilfe, und zwar würde ich es gerne über einen VBA Code machen.
z.B.
Wenn Zelle J5 nicht leer ist, dann
1) soll die komplette Zeile 5 geschützt werden
2) die komplette Zeile 5 soll die Grüne Schriftfarbe haben.
Wenn Zelle J6 nicht leer ist, dann
1) soll die komplette Zeile 6 geschützt werden
2) die komplette Zeile 6 soll die Grüne Schriftfarbe haben.
Das ganze soll bis zur Zeile 500 gehen.
Der Blattschutz Passwort soll wenn möglich im VBA hinterlegt werden.
Vielen Dank für Eure Unterstützung.
Grüße
Amintire
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Wenn Zelle nicht leer, dann...
26.06.2017 10:08:19
Werner
Hallo,
versuch mal folgenden Code. Den Namen des Tabellenblattes mußt du an deine Bedürfnisse anpassen. 
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
Gruß Werner
Anzeige
AW: Wenn Zelle nicht leer, dann...
26.06.2017 10:30:29
Werner
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
Anzeige
AW: Wenn Zelle nicht leer, dann...
26.06.2017 11:46:45
amintire
Hallo Werner,
klappt auch super - Danke dir.
Grüße
Amintire
Gerne u. Danke für die Rückmeldung. o.w.T.
26.06.2017 12:05:17
Werner
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
26.06.2017 12:15:49
amintire
Hi Uwe,
hab noch eine Sache festgestellt.
Beim ersten Klicken auf Button funktioniert der Code.
Wenn ich aber danach weitere Zeilen bearbeite und nochmal auf den Button klicke, dann kommt eine Fehlermeldung.
Bei der Fehlermeldung wird .Font.Color = 5287936 gelb markiert.
Weißt du ggf. woran das liegt?
Grüße
Amintire
Anzeige
Liegt am Blattschutz..
26.06.2017 17:55:57
Werner
Hallo,
da muss am Anfang vom Code erst der Blattschutz raus.
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
Gruß Werner
Anzeige
AW: Wenn Zelle nicht leer, dann...
26.06.2017 10:08:47
UweD
hallo
so?
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

LG UweD
Anzeige
AW: Wenn Zelle nicht leer, dann...
26.06.2017 11:44:12
amintire
Hallo Uwe,
danke für die Hilfe - klappt soweit ganz gut.
Ich möchte allerdings anstatt die Farbe Schwarz (standart) die Farbe Rot haben.
Meine Makro Aufzeichnen sagt mir die Nummer an
-16776961
Bekomme da aber eine Fehlermeldung.
Grüße
AW: Wenn Zelle nicht leer, dann...
26.06.2017 11:54:13
UweD
dann so (ohne Index)
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

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
Wenn in Zelle folgender String, dann
mehmet

Hallo Forum,
In Spalte G4:G92 sind viele kodierte Zeichenfolgen.
Fest steht aber, dass diese zu erkennen sind, z.B.
in Zelle G4: METAR EKAH 052150Z AUTO 12005KT 9999NDV DZ OVC080/// 15/14 Q1005=
in Zelle G5: METAR ESSA 051940Z 20006KT CAVOK 11/10 Q1006 NOSIG=
und so weiter.....
06.09.2008 01:08:00
Thread-ID: 1007801
16 Beiträge
Anzeige
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
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
Textbox - wenn nicht mehr als 3 stellen dann
Patrick

Hallo,
ich habe auf einer Userform eine Textbox in welche je nach Auswahl Kürzel (z. B. BE) eingetragen werden. Es soll nun realisiert werden, dass wenn ich auf einen commandbutton drücke, geprüft wird ob in der besagten Textbox nach wie vor nur "BE" steht oder diese Textbox bearbeitet wurd...
12.11.2008 16:39:47
Thread-ID: 1023910
5 Beiträge
Anzeige
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
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 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
Wenn Ordner noch nicht existiert dann MsgBox Meld.
Josef

Hallo!
Ich möchte mit folgendem Code gleich den richtigen Ordner zum aussuchen der Dateien öffnen lassen:
Dim dokname
Dim dokname2
dokname = Range("Tabelle1!D1").Value
dokname2 = Range("Tabelle1!D2").Value
With Application.FileDialog(4)
.InitialFileName = "K:\Allg_da...
04.12.2008 06:21:22
Thread-ID: 1030007
3 Beiträge
Anzeige
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge
Anzeige

Infobox / Tutorial

VBA: Zeilen verarbeiten

Inhaltsverzeichnis

  1. Was ist VBA?
  2. Einsatzzweck
  3. VBA-Prozedur
  4. Anwendungsbeispiele aus der Praxis
  5. Tipps
  6. Verwandte Funktionen
  7. Zusammenfassung

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:

  1. Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Einfügen -> Modul.
  3. Kopiere den obigen Code in das Modulfenster.
  4. 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.

Verwandte Funktionen

  • Range: Ein Objekt in VBA, das einen Zell-, Zeilen- oder Spaltenbereich in Excel darstellt.
  • Worksheet.Protect & Worksheet.Unprotect: VBA-Methoden zum Schützen bzw. Aufheben des Schutzes eines Arbeitsblattes.

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)

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