Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 11:56:21
Export bestimmter Spalten in eine neue Exceldatei
24.04.2024 11:32:28
Formel für die letzten 1-2 Zeichen
24.04.2024 11:13:07
Eingezeichnete Standardabweichung im Graphen begrenzen
24.04.2024 11:06:38
WENN; zwischen zwei Daten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1148to1152
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
1148to1152
1148to1152
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile farbig markieren

Zeile farbig markieren
Claudia
Hallo zusammen,
ich brauche mal wieder Eure Hilfe. Es geht mal wieder um eine VBA-Lösung.
Ich habe eine Tabelle, die in ersten Zeile die Überschriften beinhaltet. Ab Zeile 2 werden in Spalte A Nummern (benutzerdefniertes Format #.000) manuell eingegeben.
Bei einem Nummernwechsel (z.B. 003 auf 004) soll immer zwischen gelb und grün die Zeile (A bis P) farblich hervorgehoben werden. Hat eine Nummer zwei Zweileneinträge soll die Farbe nicht wechseln.
Beispiel 1
Zeile 2 001 gelb
Zeile 3 002 grün
Zeile 4 005 gelb
Beispiel 2
Zeile 2 001 gelb
Zeile 3 001 gelb
Zeile 4 002 grün
Ein Sortieren darf keine Probleme bei der farblichen Kennzeichnung darstellen.
Wer kann mir helfen?
LG und danke!
Claudia

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeile farbig markieren
12.04.2010 15:13:00
Walter
Hallo Claudia,
=WENN(MAX(1:1)=1;WAHR();FALSCH())
setze dies in bedingte Formatierung ein.
Gruß
Rentner Walter
AW: Zeile farbig markieren
12.04.2010 16:02:40
fcs
Hallo Claudia,
folgendes Makro führt eine entsprechende Farbformatierung aus.
Was meinst du mit
Ein Sortieren darf keine Probleme bei der farblichen Kennzeichnung darstellen.

Mit einer berechneten Hilfsspalte ginge es evtl. mit bedingter Formatierung. 
Formel in Q2:  =WENN(A2A1;WENN(Q1=1;2;1);Q1)

Diese Formel bis zum Ende der Liste kopieren. Den Wert in Spalte Q kannst du dann für die bedingte Formatierung verwenden.
Gruß
Franz 
Sub Faerben()
Dim wks As Worksheet, lFarbe1 As Long, lFarbe2 As Long, lFarbe As Long, Zeile As Long
Set wks = ActiveSheet
With wks
lFarbe1 = 36 'hell gelb, 6 - gelb
lFarbe2 = 35 'hellgrün, 4 - grün
lFarbe = lFarbe1
For Zeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(Zeile, 1)  .Cells(Zeile - 1, 1) Then
If lFarbe = lFarbe1 Then
lFarbe = lFarbe2
Else
lFarbe = lFarbe1
End If
End If
.Range(.Cells(Zeile, 1), .Cells(Zeile, 16)).Interior.ColorIndex = lFarbe
Next
End With
End Sub

Anzeige
Vielen Dank Euch beiden!
13.04.2010 07:21:38
Claudia
Habe die VBA-Lösung von Dir, Franz, genommen.

304 Forumthreads zu ähnlichen Themen

Zeilenhöhe und Spaltenbreite in cm - Makro anlegen
Sandra

Wie lege ich ein Makro an - für oben genannte Funktion?
DANKE!!!
02.09.2008 13:53:00
Thread-ID: 1006781
9 Beiträge
Anzeige
In Zeile suchen und Spalte löschen
Ralf

Hallo Excel - Experten,
nach laaaaaaanger Suche habe ich
im Archiv eine Lösung gefunden, die meinem Problem
sehr nahe kommt - - - es muß nur andersherum laufen :-)
Dieser Code unten sucht in einer Spalte nach einem best. Wert
und löscht die entsprechende Zeile, ich bräuchte...
23.10.2008 09:42:32
Thread-ID: 1018520
7 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
Anzeige
unerklärliche Spalten- und Zeilenköpfe
Bernhard

Liebe Excel-Fangemeinde,
bei einem Übungsbeispiel einer Schulungsteilnehmerin trat folgendes Phänomen auf (siehe Screenshot):

Auf dem ersten Tabellenblatt wurden einige einfache Formatierungen (unter anderem doppelt unterstrichen, hochgestellt und durchgestrichen) ganz normal über...
15.12.2008 11:58:00
Thread-ID: 1032990
3 Beiträge
Zeile und Spalte markieren
Karsten

Hallo Excel Freunde,
ich habe die Adresse von 2 Zellen (ZeileA, SpalteA) und (ZeileB, SpalteB) und möchte den gesmten Bereich markieren und dann kopieren.
Habe folgendes probiert:
Set Bereich1 = Rows("ZeileA:ZeileB")
Set Bereich2 = Columns("SpalteA:SpalteB")
Set Gesamtb = Un...
18.12.2008 15:54:47
Thread-ID: 1033909
5 Beiträge
Zeilen und Spalten ausblenden
Andreas

Hi Leute,
Hab folgendes Problem:
Ich hab mehrere Tabellenblätter mit Tabellen, in denen in Abhängigkeit von Einträgen auf einer Übersichtsseite bestimmte Zeilen und Spalten mit einem Makro ausgeblendet werden sollen.
Hier Mein Beispiel-File:
https://www.herber.de/bbs/user/58482...
16.01.2009 15:21:22
Thread-ID: 1040598
8 Beiträge
Makro Spalte S bis letzter Wert Spalte A markieren
Jonathan

Hallo zusammen,
ich habe folgendes Probelem:
Ich möchte gerne Spalte S bis zum letzten Wert von Spalte A (variabel) markieren (damit im Anschluss der Spalte ein Rahmen gegeben werden kann).
Gibt es hierfür ein Makro?
Vielen Dank schon mal für eure Hilfe.
Gruß
Jonathan
30.01.2009 12:31:58
Thread-ID: 1045358
3 Beiträge
Wert in Spalte und entsprechender Zeile Finden
Klaus

Hi,
folgendes Problem:
Meine ExcelSpalten werden fortlaufend erweitert mit neuen Nummern.
Ich möchte jetzt eine Möglichkeit, in einer Zelle (usedrange +2) bei Eingabe einer neuen (existierenden)
Spaltenbezeichnung, automatisch den Zellenwert aus einer bestimmten Zeile haben. Da...
18.02.2009 15:51:00
Thread-ID: 1051850
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
8
16
6
10
3
2
4
7
2
2
4
8
4
3
13
1
5
7
1
11
12
6
11
6
10