Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Farbauswahl

Forumthread: Farbauswahl

Farbauswahl
08.03.2004 12:04:20
Stefan
Hallo Forum,
ich habe ein kleines Problem. Mit unten stehendem Makro ( as diesem Forum )kann ich über einen Button in einer Selection jede zweite Zeile färben. Soweit, so gut, aber es ist lästig, jedesmal wenn ich eine andere Farbe will, das Makro zu bearbeiten um eine andere Farbkennzahl einzugeben.
Meine Frage: Wie kann ich dieses Makro so erweitern, dass ich nach Drücken des Button eine Farbauswahl zu sehen bekomme, aus der ich dann die Farbe auswählen kann ( ähnlich wie beim "ColorPicker" von Hans ).
Für Euere Hilfe schon mal vielen Dank
Stefan

Sub ZeilenFärben()
Dim Zeile As Range, ZeilenNr As Integer
For Each Zeile In Selection.Rows
ZeilenNr = ZeilenNr + 1
If ZeilenNr Mod 2 = 0 Then
Zeile.Interior.ColorIndex = 3
Else
Zeile.Interior.ColorIndex = xlAutomatic
End If
Zeile.Borders.Weight = xlThin
Next
End Sub

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Farbauswahl
08.03.2004 20:06:51
Christoph
Hallo Stefan,
wenn du den ColorPicker von Hans verwenden willst dann schreibe dein Makro wie folgt:
Der ColorPicker ruft das Makro "FarbAuswahl" auf. Wenn du deinem Makro nicht diesen Mamen geben willst, dann musst die Zeile im ColorPixer:
von:
.OnAction = "FarbAuswahl"
zB zu:
.OnAction = "ZeilenFärben"
ändern.
Gruß
Christoph
PS: Das Makro "ColorPicker" wird hier natürlich auch benötigt, aber ich denke,
das hast du ja schon.(siehe: https://www.herber.de/mailing/volumina/109600x.htm)

Sub FarbAuswahl()
Dim strAc As String
Dim Zeile As Range, ZeilenNr As Integer
strAc = Application.Caller
If DialogSheets("dlgFarben").OptionButtons(1).Value = xlOn Then
For Each Zeile In Selection.Rows
ZeilenNr = ZeilenNr + 1
If ZeilenNr Mod 2 = 0 Then
Zeile.Interior.ColorIndex = CInt(Right(strAc, Len(strAc) - 3))
Else
Zeile.Interior.ColorIndex = xlAutomatic
End If
Zeile.Borders.Weight = xlThin
Next
Else
Selection.Font.ColorIndex = CInt(Right(strAc, Len(strAc) - 3))
End If
End Sub

Anzeige
AW: Farbauswahl
09.03.2004 12:27:01
Stefan
Vielen Dank, funktioniert prima !!!
Danke für die Rückmeldung (o.T.)
09.03.2004 15:07:42
Christoph
;

Forumthreads zu verwandten Themen

Farbauswahlbox freistellen möglich?
Galenzo

Hallo,
leider mußte ich auf Office 2007 wechseln. Nun vermisse ich viele von den Vorgängerversionen bekannte Features.
u.a. konnte man die Auswahlox für Zellfarbe oder auch Schriftfarbe aus der Symbolleiste herausziehen und frei plazieren. Frage: Wie ist das bei 2007 möglich?
20.10.2008 11:20:26
Thread-ID: 1017610
4 Beiträge
Anzeige
Farbauswahldialog
wsp

Hallo Excelgemeinde,
kann der in Excel integrierte Farbauswahldialog, wie er für Schrift oder den Hintergrund von Zellen angeboten wird,
aus VBA aufgerufen werden? Das Ergebnis soll als Farbindex oder RGB-Werte an VBA zurückgegeben werden. Änderungen am gerade selektierten Objekt sollen...
05.07.2010 09:01:20
Thread-ID: 1165399
5 Beiträge
Farbauswahl eine Farbe mehr
geri

mit untenstehenden Macro suche ich rot+grün aus möchte noch um
eine Farbe erweitern, sehe Lösung nicht
Anpassung nehme ich an in Zeile if DatAuszug aus MakroCells(s + b, 1) = pers(u, s) ' Personalnummer in Tabelle schreiben
Cells(s + b, 2) = nam(u, s)...
24.09.2002 19:45:21
Thread-ID: 163338
6 Beiträge
Anzeige
Manü Farbauswahl mit Showmodal oder 0
Dieter(Drummer)

Guten Morgen Spezialisten,
mit diesem funktionierenden Code wird das Farbmenü aufgerufen und ich kann eine gewählte Farbe in die AKTIVE Zelle setzen. Ich suche die Möglichkeit eine nicht vorher aktivierte Zelle zu aktivieren, Ich weiß nicht, wie ich in dem Code "Showmodal" oder die "0", für...
16.11.2018 09:37:17
Thread-ID: 1657686
19 Beiträge
Farbauswahl in Textbox übernehmen
Stefan

Hallo Ihr,
ich benutze die hier im Forum gefunden Funktion:
Sub farben()
Dim i As Variant
Dim j As Long
j = ActiveCell.Interior.ColorIndex
i = Application.Dialogs(84).Show
If i False Then
Range("a1").Interior.ColorIndex = ActiveCell.Interior.ColorIndex
ActiveCell.Int...
17.10.2002 23:55:46
Thread-ID: 170589
3 Beiträge
Farbauswahl per Liste oder ähnlich
Stefan Koch
Hallo Spezialisten,
ich habe aus dem Forum folgendes Makro, das ich einem Button zugeordnet habe, um jede zweite Zeile zu färben.

Sub ZeilenFärben() Dim Zeile As Range, ZeilenNr As Integer For Each Zeile In Selection.Rows ZeilenNr = ZeilenNr + 1 If ZeilenNr Mod 2 = 0 Then Zeile.Interio...
13.10.2003 22:04:37
Thread-ID: 323035
6 Beiträge
Kombinationsfelder / Dropdownfeld mit Farbauswahl
brünette

Huhu zusammen...
...ich bins wieder :-)
Ich habe ein erneutes Problem und hoffe, dass die Spezialisten in diesem Forum mir auch diesesmal weiterhelfen können.
Ist es möglich in einer Userform ein Dropdownfeld / Listenfeld / Kombinationsfeld einzurichten, welches eine Palette an Farbe...
27.05.2004 08:34:24
Thread-ID: 433737
2 Beiträge
Farbauswahl ( Basti )
Werner

Hallo Basti,
kannst Du noch nal in die Datei sehen, das ist noch nich so gans richtig
Die Datei https://www.herber.de/bbs/user/10912.xls wurde aus Datenschutzgründen gelöscht
16.09.2004 12:39:45
Thread-ID: 485991
4 Beiträge
Farbauswahldialog
Helle

Hallo zusammen,
ich möchte gerne einen Farbauswahldialog haben. Der Standardialog gefällt mir nicht, bzw. erfüllt nicht meine Anforderungen. Ich hätte gerne eine UF mit Combobox in der statt eines Textes, die 56 Excel Farben dem Benutzer zur Auswahl gestellt werden.
Hat jemand eine Idee...
23.01.2005 19:22:42
Thread-ID: 553105
2 Beiträge
Anzeige
Gültigkeit / eingeschränkte Farbauswahl zulassen
Erich

Hallo EXCEL-Freunde,
über Daten / Gültigkeit ist es ja möglich, für bestimmte Zellen Eingabebeschränkungen
zu erstellen.
Aber geht es auch, dass ich die Hintergrundfarbe vorgeben kann?
Also ich klicke in die Zelle und dann habe ich (z.B.) eine Auswahlbox die drei
vorgegebene...
15.06.2005 20:33:17
Thread-ID: 624557
17 Beiträge
Farbauswahl auf UserForm
Rocky

Hallo leute,
gibt es ein Steuerelement für die Farbauswahl wie es in excel direkt zu fiden ist?
wenn ja wie heißt es? habs im Archiv nicht finden können!
Gruß rocky
04.07.2005 11:16:39
Thread-ID: 632314
6 Beiträge
Anzeige
Farbauswahl
AS

Liebe Forumer!
Nun habe ich von Michael eine Beispieldatei erhalten:
https://www.herber.de/bbs/user/24730.xls
Leider kann man dort nichts auswählen und den gewählten Wert kann man auch nicht in eine Variable initialisieren... - Vielen Dank im Vorraus!
AS
15.07.2005 10:05:46
Thread-ID: 637725
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige