Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1740to1744
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
1740to1744
1740to1744
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Zellen einfärben

VBA: Zellen einfärben
13.02.2020 08:38:24
Erwin
Guten Morgen Miteinander,
ich habe viele lange Listen mit teilweise mehr als 20.000 Aktenzeichen, die manchmal einfach, aber oft auch mehrfach vorkommen (Listen sind nach Akz. sortiert).
Ich suche eine VBA Lösung, welche alle mehrfach vorkommenden Akz. abwechselnd unterschiedlich einfärbt.
Einfach vorkommende Werte sollen keine Farbfüllung erhalten.
Ein Start sollte über eine Inputbox erfolgen, da das Aktenzeichen nicht immer in der gleichen Zeile / Zelle beginnt.
Eine Beispieldatei, wie es aussehen soll, ist hier: https://www.herber.de/bbs/user/135159.xlsm
Schon mal vielen Dank für euere Mühe
Grüße – Erwin

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

Betreff
Datum
Anwender
Anzeige
AW: VBA: Zellen einfärben
13.02.2020 09:18:35
fcs
Hallo Erwin,
hier ein entsprechendes Makro
LG
Franz 
Sub Faerben_mehrfache()
Dim Farbe_1 As Long, Farbe_2 As Long
Dim bolFaerben As Boolean
Dim Farbe As Long
Dim Wert_alt
Dim wks As Worksheet
Set wks = ActiveSheet
Dim zeile As Long, Spalte As Long, rngStart As Range
Farbe_1 = RGB(204, 255, 204) '13434828 - helles Grün
Farbe_2 = RGB(255, 255, 204) '13434879 - helles Gelb
Set rngStart = Application.InputBox( _
Prompt:="Bitte die Startzelle für die Markierung wählen", _
Title:="Mehrfache markieren", Default:=ActiveCell.Address, Type:=8)
zeile = rngStart.Row
Spalte = rngStart.Column
With wks
Wert_alt = wks.Cells(zeile, Spalte).Value
Farbe = Farbe_1
For zeile = rngStart.Row + 1 To .Cells(.Rows.Count, Spalte).End(xlUp).Row
If Wert_alt  .Cells(zeile, Spalte).Value Then
If bolFaerben = True Then
If Farbe = Farbe_1 Then
Farbe = Farbe_2
Else
Farbe = Farbe_1
End If
End If
Wert_alt = .Cells(zeile, Spalte).Value
bolFaerben = False
ElseIf Wert_alt = .Cells(zeile, Spalte).Value Then
If bolFaerben = False Then
'vorherige Zeile färben
.Cells(zeile - 1, Spalte).Interior.Color = Farbe
End If
.Cells(zeile, Spalte).Interior.Color = Farbe
bolFaerben = True
End If
Next
End With
Fehler:
With Err
Select Case .Number
Case 0 'alles OK
Case 424 'Objekt erforderlich
'Fehler weil Eingabe in Inputbox abgebrochen wurde
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description, _
vbOKOnly, "Fehler im Makro ""Faerben mehrfache"""
End Select
End With
End Sub

Anzeige
AW: VBA: Zellen einfärben
13.02.2020 09:28:37
Erwin
Hallo Franz,
wie geht das, eine Frage - eine Antwort und es passt supergenau?!
Vielen herzlichen Dank für deine Mühe.
Grüße - Erwin
AW: eine Frage - eine Antwort und es passt
13.02.2020 09:56:21
fcs
Hallo Erwin,
wie geht das, eine Frage - eine Antwort und es passt supergenau?!
präzise Frage, gute Beispieldatei ----&gt präzise Antwort
:-)
LG
Franz

310 Forumthreads zu ähnlichen Themen

VBA Zelle einfärben
Tom

Hi Leute,
ich weis zwar wie man ne Zelle einfärbt leider nicht beim objektorientierter Schreibweise kann mir da vll. jemand weiterhelfen?
Es soll einfach die Zeile Grün werden die Kopiert wurde, bzw. die Zelle. Private Sub CSearch_Click() Dim Dat1, Dat2, TB1_Comp, TB2_Comp, TB1_Paste, T...
03.08.2009 08:38:53
Thread-ID: 1093112
2 Beiträge
Anzeige
Excel Farbe der selektierten Zellen ändern
lupo

Guten Morgen,
ein Arbeitskollege möchte gerne die Farbe der ausgewählten / markierten Zellen ändern.
Zu dem Thema habe ich viel gegoogelt. An verschiedenen Stellen wird behauptet das würde nicht gehen.
Dann habe ich diese Video gefunden:
http://www.bukisa.com/videos/22842_mrexce...
07.08.2009 10:05:24
Thread-ID: 1094211
4 Beiträge
Zellenhintergrundfarbe per Auswahl ändern ?
Werner

Hallo,
ich möchte folgendes erreichen:
In der Zelle A1 soll zukünftig der Text stehen "Bitte Thema auswählen", sobald man auf diese Zelle klickt soll so ein kleines Auswahlmenü aufgehen in dem nun folgnde Auswahl erscheint:
1.: QUALITÄT - gelb - Wird dieser Eintrag ausgewählt so sol...
26.02.2010 12:31:53
Thread-ID: 1141730
5 Beiträge
Anzeige
Farbe von Schalter nach Zelleninhalt ändern
Schalter

Servus
ich wollte gern, das meine Schalter farbig hinterlegt wird, je nach Inhalt einer Zelle...
also wenn in Zelle A1 "1" steht soll mein Schalter rot sein, wenn "2" steht soll er grün sein...
geht das?
Danke
Timonski
09.06.2010 08:09:55
Thread-ID: 1160947
16 Beiträge
Zelle farbig ausfüllen über Formel / bedingte Form
Jim

Hallo Forum,
ich habe eien Frage bzgl. einer Zellformatierung.
Mit welcher Formel oder bedingten Formatierung kann ich einer Zelle eine Füllfarbe unter Randbedingungen zuweisen
Z.B steht in der Zelle A1 die Zahl 1, 2, 3, 4 oder 5. Nun soll die Zelle A2 farbig sein (ohne das ich ein...
22.07.2010 22:07:47
Thread-ID: 1168460
3 Beiträge
Zellenfarbe ändern
Kurt

Guten Abend,
ich möchte nur die Zellenfarbe der Spalte B nach Eingabe einer Zahl
ändern und zwar in Rot.
Die Farbe ist vorher Blau.
mfg Kurt B
14.09.2010 22:19:53
Thread-ID: 1177597
6 Beiträge
VBA Zellen je nach Inhalt einfärben
jens

Hallo Excel-Profis,
ich habe ein Makro das mir einen Bereich durchgeht und die Zellen je nach inhalt färbt:
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Sheets("Reservierung (3)").Select Dim RaBereich As Range, RaZelle As Range Set RaBereich = Range("B8:P48") 'Set RaBereic...
28.10.2010 12:00:06
Thread-ID: 1184257
7 Beiträge
Formatieren von Zellen per VBA
Zellen

Guten Tag
habe bereits eine Ergänzungsfrage zu einem Projekt bei welchem mir hier via Forum schon sehr sehr gut geholfen wurde....
und zwar:
mittels folgendem Code schreibe ich in eine Spalte ein Datum:
Cells(j, 10).Value = CDate(MyDatStrg)
Wie müsste ich diese Zeile erweite...
07.12.2010 10:53:17
Thread-ID: 1190357
18 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

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
1
3
3
4
2
15
2
5
6
17
4
14
7
2
3
11
5
2
2
2
3
3
2
6
6