Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1184to1188
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
1184to1188
1184to1188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile markieren - Bedingte Formatierung oder Makro

Zeile markieren - Bedingte Formatierung oder Makro
Robert
Hallo,
ich komme absolut nicht mehr weiter...
Ich skizziere mal kurz das Problem.
Ich schreibe mittels einem Makro Datensätze in eine Excel-Tabelle.
In 4 verschiedenen Bereichen soll Excel prüfen, ob in die erste Zelle des jeweiligen Bereiches etwas eingetragen worden ist und die anderen leeren Felder des jeweiligen Bereiches auf Inhalt prüfen und falls nur ein! Feld leer ist die ganze Zeile gelb markieren. Wenn die anderen 3 Bereiche nicht angesprochen werden bzw. die jeweiligen ersten Felder nicht ausgefüllt worden sind, soll dort auch nichts passieren.
Ich habe mir den code für einen der 4 Bereiche so zusammengebastelt, aber ich kenne leider nicht den Befehl für das Markieren der Zeile
If cells(z,1) "" then
If cells(z,2) = "" or cells(z,3) = "" or cells(z,4) = "" then
? markiere z - Zeile ?
End If
End If
Habt ihr irgendeine Idee, wie ich das relativ schlank realisieren könnte?
Vielen Dank im Voraus!!
Robert
Zeile färben: rows(z).interior.colorindex=6 oT
08.11.2010 18:11:08
jowe
AW: Zeile markieren - Bedingte Formatierung oder Makro
08.11.2010 21:01:43
Hajo_Zi
Hallo Robert,
abe 2007 würde ich
rows(z).interior.color =225 benutzen, da Du dort über 4 Mio. Farben zur Verfügung hast.
Das kannst Du selbstverständlichg auch davor benutzen.

AW: Zeile markieren - Bedingte Formatierung oder Makro
08.11.2010 22:21:07
Robert
Hey..vielen Dank erstmal für eure Antworten.
Ich habe jetzt versucht, einen Code für eine Testdatei zu schreiben, aber es will nicht so richtig funktionieren.
Private Sub Worksheet_Change(ByVal Target As Range)
Z = 1
Z = Z + 1
If Cells(Z, 1)  "" Then
If Cells(Z, 2) = "" Or Cells(Z, 3) Or Cells(Z, 4) Or Cells(Z, 5) Then
Rows(Z).Interior.Color = 8
End If
End If
End Sub
Die Prozedur soll am besten bei jedem Eintrag überprüfen, ob die Bedingungen erfüllt sind...wo füge ich die am besten ein und wie bekomme ich den Code so hin, dass er mir meine Zeile nicht schwarz anzeigt :)?
Beste Grüße
Robert
Anzeige
AW: Zeile markieren - Bedingte Formatierung oder Makro
08.11.2010 22:35:17
jowe 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Z = 2 To 5
If Cells(Z, 1)  "" Then
If Cells(Z, 2) = "" Or Cells(Z, 3) Or Cells(Z, 4) Or Cells(Z, 5) Then
Rows(Z).Interior.ColorIndex = 8
End If
End If
Next
End Sub

AW: Zeile markieren - Bedingte Formatierung oder Makro
09.11.2010 00:15:31
Robert
Danke für deine Antwort Jowe,
leider macht dein Code nicht das, was er machen soll...auch die For-Anweisung ist mir schleierhaft, da ja z der zeilenindex sein soll.
Wie schon geschrieben,
In 4 verschiedenen Bereichen soll Excel prüfen, ob in die erste Zelle des jeweiligen Bereiches etwas eingetragen worden ist und die anderen leeren Felder des jeweiligen Bereiches auf Inhalt prüfen und falls nur ein! Feld leer ist die ganze Zeile gelb markieren. Wenn die anderen 3 Bereiche nicht angesprochen werden bzw. die jeweiligen ersten Felder nicht ausgefüllt worden sind, soll dort auch nichts passieren.
Vielen Dank trotzdem
Anzeige
AW: Zeile markieren - Bedingte Formatierung oder Makro
09.11.2010 00:26:32
hary
Hallo
fehlen da nicht noch die bedingungen? 

If Cells(Z, 2) = "" Or Cells(Z, 3) Or Cells(Z, 4) Or Cells(Z, 5) Then

muesste doch heissen: 

If Cells(Z, 2) = "" Or Cells(Z, 3) = "" Or Cells(Z, 4) = "" Or Cells(Z, 5) = "" Then

oder irre ich mich?
gruss hary
AW: Zeile markieren - Bedingte Formatierung oder Makro
09.11.2010 09:04:06
Robert
Oh mann..
Danke Hary!!
Echt komisch, dass ich das übersehen habe..
Ich habe das jetzt so gelöst:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For z = 1 To 10                'zeilenindex
If Cells(z, 1)  "" Then
If Cells(z, 2) = "" Or Cells(z, 3) = "" Or Cells(z, 4) = "" Or Cells(z, 5) = "" Then
Rows(z).Interior.ColorIndex = 8
Else
Rows(z).Interior.ColorIndex = xlNone
End If
End If
Next
End Sub

Beste Grüße und vielen Dank an alle!
Anzeige

320 Forumthreads zu ähnlichen Themen

Inputbox Schriftart oder Farbe verändern
Gunter

Hallo Zusammen,
ich habe eine Inputbox, über die eine Passwortabfrage gesteuert wird. Leider ist das Passwort im Eingabefeld zu sehen. Ist es möglich den Text z.B. in der Schriftart "Wingdings" zu formatieren, oder
die Schriftfarbe in weiss, damit das Passwort nicht mehr zu sehen ist?
28.08.2008 15:32:00
Thread-ID: 1005474
7 Beiträge
Anzeige
SVerweis mit zwei Suchkriterien
Josef

Hallo1
Ich habe in Tabelle1
in der Spalte A und B Werte stehen.
In der Tabelle2 stehen ebenfalls in der Spalte A und B die gleichen Werte, jedoch in anderer Reihenfolge in der Spalte C stehen die dazugehörenden Texte.
Ich möchte nun die Werte in der Spalte C in der Tabelle 2 in...
01.09.2008 18:57:22
Thread-ID: 1006581
6 Beiträge
Zugriff auf Access-DB über DAO oder ADO
Armin

Hallo,
ich hätte eine allgemeine Frage zum Zugriff auf Access-Datenbanken.
Welche Zugriffsmethode auf eine Access-DB würdet Ihr generell empfehlen: ADO oder DAO?
Gibt es in der Praxis Vor- oder Nachteile für die eine oder andere Zugriffsweise?
Vielen Dank für Euere Meinungen und...
03.09.2008 14:28:55
Thread-ID: 1007110
2 Beiträge
Anzeige
PIVOTDATENZUORDNEN mit zwei Kriterien
Andi

Hallo Experten,
Ich versuch zurzeit eine Auswertung aus einer Pivot Tabelle zu erstellen, komm jedoch nicht weiter da ich zwei Kriterien in der X-achse und eins in der Y-achse berücksichtigen muss. Das heisst ich kann nicht einfach X-Achse und Y-achse mit der Pivot-tabelle abgleichen, sonde...
14.10.2008 12:16:00
Thread-ID: 1016295
5 Beiträge
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge
Bedingte Formatierung oder VBA?
maruseru

Hallo werte Profis
Irgendwie raff ich es heute nicht
Habe eine Spalte mit Artikel Nummern. Jeweils das erste Zeichen ist = Produkte Typ.
A976164
A980602
B181645
B491942
F199587
F215047
F224410
G224410
F232634
Ich möchte nun anhand des ersten Zeich...
27.11.2008 14:09:45
Thread-ID: 1028367
7 Beiträge
Schaltflächen oder Image Beispiele
Walter

Hallo Zusammen,
erst mal ALLEN ein gesundes neues Jahr !!!
Ich such Schaltflächen oder Image Beispiele, hatte mal in Google gesucht, leider
nichts gefunden,
vielleicht hat jemand eine Beispielmappe,
mfg Walter
01.01.2009 13:10:00
Thread-ID: 1036231
9 Beiträge
Excel-Bug oder was?
Andreas

Hallo,
Haben seit gestern folgendes Problem, welches auch schon zu
"Schäden" geführt hat. Sonst hätte ich es ja auch nicht bemerkt.
Excel-Problem nach Update von MS Office Kompatibilitätspack 2007
Wenn eine Exceldatei *.xls (2003) über Extras - Schutz - Arbeitsmappe schützen
...
16.01.2009 12:09:00
Thread-ID: 1040524
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
6
5
5
1
5
4
5
6
8
2
11
2
2
3
8
4
7
3
15
3
16
5
4
2
1