Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1012to1016
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
1012to1016
1012to1016
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelleninhalte abwechselnd mit der Füllfarbe... ?

Zelleninhalte abwechselnd mit der Füllfarbe... ?
07.10.2008 10:00:00
Selma
Hallo Leute,
in Spalte A habe ich ganz viele Einträge. Jetzt möchte ich von Zelle in der am Anfang dies <artikel name steht bis Zelle wo es am Anfang dies steht in Füllfarbe gelb und den nächsten Abschnitt mit der Füllfarbe grün darstellen. Dies soll immer abwechselnd bis letzte Zelle der Spalte A durchgeführt werden.
Wie mache ich das ?
Anbei ein Beispiel (nachher):
Vielen Dank im Voraus !
Liebe Grüße,
Selma

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelleninhalte abwechselnd mit der Füllfarbe... ?
07.10.2008 10:11:59
Reinhard
Hi Selma,

Sub tt()
Dim Zei As Long, Farbe As Integer
Farbe = 6
For Zei = 1 To Range("A" & Rows.Count).End(xlUp).Row
Rows(Zei).Interior.ColorIndex = Farbe
If Left(Cells(Zei, 1).Value, 9) = "" Then
Farbe = 6 - 4 * (Farbe = 6)
End If
Next Zei
End Sub


Gruß
Reinhard

AW: Zelleninhalte abwechselnd mit der Füllfarbe... ?
07.10.2008 10:26:00
Selma
Hallo Reinhard,
da fehlt ein Teil des Makros, oder ;)
LG,
Selma
AW: Zelleninhalte abwechselnd mit der Füllfarbe... ?
07.10.2008 11:07:48
Reinhard
Hallo Selma,
im Cod steht ein Tag-Zeichen, das verwirrt Hans :-)
Ich probiers mal so:

Sub tt()
Dim Zei As Long, Farbe As Integer
Farbe = 6
For Zei = 1 To Range("A" & Rows.Count).End(xlUp).Row
Rows(Zei).Interior.ColorIndex = Farbe
If Left(Cells(Zei, 1).Value, 9) = "</artikel" Then
Farbe = 6 - 4 * (Farbe = 6)
End If
Next Zei
End Sub


Anzeige
AW: Zelleninhalte abwechselnd mit der Füllfarbe... ?
07.10.2008 12:15:00
Selma
Hallo Reinhard,
es sollen nur die Zellen der Spalte A farbig dargestellt werden. Zur Zeit werden die Zeilen farbig dargestellt. Der erste Teil mit <artikel name kommt etwa ab Zeile 32. Der Zellenbereich davor soll nicht farbig dargestellt werden. Der Anfang ist immer die erste Zelle in Spalte A, wo <artikel name vorkommt.
Was muss noch geändert werden ?
Danke !
LG,
Selma
AW: Zelleninhalte abwechselnd mit der Füllfarbe... ?
07.10.2008 14:10:27
Andre´
Hallo Selma,
sind in deinem Bsp.Leerstellen vorhanden so wie es in der Zeile 107 den Anschein hat.
MFG Andre
AW: Zelleninhalte abwechselnd mit der Füllfarbe... ?
07.10.2008 14:15:00
Selma
Hallo Andre´,
Leerstellen sind vorhanden, aber keine leere Zeilen dazwischen.
LG,
Selma
Anzeige
AW: Zelleninhalte abwechselnd mit der Füllfarbe... ?
07.10.2008 15:16:00
Reinhard
Hi Selma,
probiers mal so:

Sub tt()
Dim Zei As Long, Farbe As Integer, Z As Long
Farbe = 6
Z = 1
While Left(Cells(Z, 1).Value, 8)  "<artikel"
Z = Z + 1
Wend
For Zei = Z To Range("A" & Rows.Count).End(xlUp).Row
Cells(Zei, 1).Interior.ColorIndex = Farbe
If Left(Cells(Zei, 1).Value, 9) = "</artikel" Then
Farbe = 6 - 4 * (Farbe = 6)
End If
Next Zei
End Sub


Gruß
Reinhard

AW: Zelleninhalte abwechselnd mit der Füllfarbe... ?
07.10.2008 15:49:48
Selma
Hallo Reinhard,
es funktioniert prima.
Könntest du mir bitte noch erklären, wo ich bei Bedarf die Farben ändern kann.
Farbe = 6 - 4 * (Farbe = 6) verstehe ich nicht, was sich dahinter verbirgt ;)
Vielen Dank !
LG,
Selma
Anzeige
AW: Zelleninhalte abwechselnd mit der Füllfarbe... ?
07.10.2008 16:09:22
Reinhard
Hallo Selma,
"Farbe = 6 - 4 * (Farbe = 6)"
im Gegensatz zu normalem Excelfunktionen wo Wahr den Wert 1 hat und Falsch den Wert 0 hat in Vba True den Wert -1 und False den Wert 0.
Gelb hat den Colorindex 6, Grün den Colorindex 10.
"Farbe=6" ergibt also entweder 0 oder -1, mal 4 dementsprechend 0 oder -4
Wenn ich nun von 6 0 abziehe erhalte ich 6, ziehe ich von 6 die minus vier ab erhalte ich 10, da minus minus plus ergibt.
Wenn dir das zu dubios ist mit anderen Farbwerten, nimm halt sowas:

If Farbe= 6 then
Farbe=10
Else
Farbe=6
End If


Gruß
Reinhard

Anzeige
AW: Zelleninhalte abwechselnd mit der Füllfarbe... ?
07.10.2008 16:40:00
Selma
Vielen Dank !
LG,
Selma

309 Forumthreads zu ähnlichen Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Anzeige
Hintergrundfarbe auf Grund Wert in anderer Zelle
Roger

Guten Morgen,
ich suche eine Lösung für folgendes Problem: In der Spalte F von Zeile 4 bis 300 habe ich folgende werte stehen: entweder nichts, Ja oder Nein. Nun will ich zwecks übersicht in Spalte A in den Zellen 4 bis 300 Farben als Hintergurnd haben. Wenn in Zelle F4 nichts steht, dann i...
18.12.2008 08:21:58
Thread-ID: 1033737
10 Beiträge
Farbe der Nachbarzelle
Volker

Hallo zusammen,
zuerst einmal wünsche ich Euch ein gutes 2009!
Nun zu meinem Problem:
Ich übergebe mittels untenstehendem Code die Daten an eine Tabelle. Funktioniert auch. Allerdings hätte ich jetzt gerne das bei nachträglich geleerter Zelle die Ursprungsfarbe wieder erscheint.
08.01.2009 12:50:17
Thread-ID: 1037876
8 Beiträge
Anzeige
Diagramm Linienfarbe aus Zellfarbe "auslesen"
StefanK

Hallo Herber-Excel-Freunde,
ich habe ein Diagramm (Punkt XY - Untertyp: Punkte mit Linien ohne Datenpunkte) rstellt.
Dabei formatiert Excel erst einmal die Farben automatisch.
Bislang markiere ich dann die einzelnen Linien im Diagramm und formatiere die Farben um.
Jetzt meine A...
16.02.2009 19:50:00
Thread-ID: 1051268
11 Beiträge
Zahl aus best. Zelle auslesen
klaus

Hallo!
Folgende Tabelle soll dargestellt werden:
Tabelle1

 AB1Spalte 1nur 90 (für Anzahl Werte >2 und 210019,12,15,70,70,8,90,9013100160410009,10016,10019,10021,12,16,19,2,24,70,77,8,9,9015 0610009,77,99,88,10019,10021,12,16,19,2,24,70,77,8,9,900

Excel Tabel...
02.03.2009 15:51:14
Thread-ID: 1055623
6 Beiträge
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
hab' ein kleines Problem:
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
13.03.2009 16:49:57
Thread-ID: 1059943
4 Beiträge
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
ich hab' immer noch mein kleines Problem, vielleicht weiß hier ja einer weiter?
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
18.03.2009 13:41:01
Thread-ID: 1061396
6 Beiträge
Daten aus Zelle per CSV nur bedingt auslesen
Heiko

Hallöchen,
ich habe eine Datendatei in CSV mit Simikolon getrennt ohne Umbrüche.
Diese Lade ich auf eine Seite hoch, die mir die jeweiligen Zellen innerhalb einer Datenbank ausfüllt.
Meine Frage wäre jetzt, ob es eine Möglichkeit gibt, durch eingaben innerhalb der CSV-Datei den Text...
13.06.2009 20:14:31
Thread-ID: 1081318
4 Beiträge

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
12
9
7
9
10
5
3
5
3
2
6
1
3
3
17
2
3
2
3
7
3
2
1
8