Excel VBA Zellen automatisch färben

Computer: Software & Programmierung Office Software
#1

Guten Tag,

Ich habe leider kaum Basic´s in VBA und benötigt ein sehr kleine script für eine bestimmte funktion.

Es wäre super wenn mir jemand helfen könnten. Ich erzähl mal mein kleines problem auf.

Ích erkläre die Aufgabe des Script in u.g. Beispiel.
Das Script sollte für den gesammten Spalte A funktionieren

z.B: ich trage in A3 ein Datum ein. Danach sollte die zeile 3 von spalte A bis F in irgend ein Farbe automatisch gefärbt werden.

Ich hoffe das es verständlich genug geschrieben wurden ist.

#2

Zellen färben über bedingte Formatierung?
Ich würde die Zellen A1 bis F1 markieren, dann im Menü Format, Bedingte Formatierung wählen. Danach in der Bedingung 1 „Zellwert ist“ in „Formel ist“ ändern, ins nächste Feld $A1>0 eingeben und dann unter Format die Hintergrundfarbe für die Zellen wählen.
Anschließend die Formatierung einfach herunterziehen bzw. übertragen.
Ich hoffe, es funktioniert auf diese Art.

Ích erkläre die Aufgabe des Script in u.g. Beispiel.
Das Script sollte für den gesammten Spalte A funktionieren

z.B: ich trage in A3 ein Datum ein. Danach sollte die zeile 3
von spalte A bis F in irgend ein Farbe automatisch gefärbt
werden.

#3

Ich habe es gemacht aber wenn ich in der Zelle ein Datum eintippe reagiert es nicht!!

#4

Ist nur gelb immoment :smile:
.ColorIndex = 6

Die 1 Steht für die sensitive Spalte also A:smile:
If Target.Column = 1 Then

Spaltennummer = Spaltenname
1 = A
2 = B

Schreib das in das Tabellenblatt .

Private Sub Worksheet\_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
 myslect = Target.Row
 Rows(myslect).Select
 With Selection.Interior
 .ColorIndex = 6
 .Pattern = xlSolid
 End With
End If
End Sub

gtruss Sascha

#5

Servus, thx für den netten script, funktioniert, aber kann man die Zeile einschränken das sie nur bis Spalte F färbt?

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#6

Jo men, das Pro. Script färbt meine Rahmenlinien yellow :frowning:
Sollte doch nur als krasse Füllfarbe, klar oder?

#7

Servus, thx für den netten script, funktioniert, aber kann man
die Zeile einschränken das sie nur bis Spalte F färbt?

Jo : ist gemacht :

Private Sub Worksheet\_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
 Range(Cells(Target.Row, 1), Cells(Target.Row, 6)).Select
 With Selection.Interior
 .ColorIndex = 6
 .Pattern = xlSolid
 End With
 End If
End Sub

viel spass beim färben

#8

Jo men, das Pro. Script färbt meine Rahmenlinien yellow :frowning:
Sollte doch nur als krasse Füllfarbe, klar oder?

Ganze Sätze bitte. Ist das klar ?

#9

Jo es wird richtig geil :smile: aber kann man die Rahmenlinen noch behalten und sie nich gelb einfärben? Weil beim ausführen von Script werden Rahmenlinie zusätzlich gelb gefärbt!

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#10

Script werden Rahmenlinie zusätzlich gelb gefärbt!

Ich hab sie mal schwarz gemacht die Rahmenlinien

Private Sub Worksheet\_Change(ByVal Target As Excel.Range)
If Target.Column = 1 Then
 Range(Cells(Target.Row, 1), Cells(Target.Row, 6)).Select
 Selection.Borders(xlDiagonalDown).LineStyle = xlNone
 Selection.Borders(xlDiagonalUp).LineStyle = xlNone
 With Selection.Borders(xlEdgeLeft)
 .LineStyle = xlContinuous
 .Weight = xlThin
 .ColorIndex = xlAutomatic
 End With
 With Selection.Borders(xlEdgeTop)
 .LineStyle = xlContinuous
 .Weight = xlThin
 .ColorIndex = xlAutomatic
 End With
 With Selection.Borders(xlEdgeBottom)
 .LineStyle = xlContinuous
 .Weight = xlThin
 .ColorIndex = xlAutomatic
 End With
 With Selection.Borders(xlEdgeRight)
 .LineStyle = xlContinuous
 .Weight = xlThin
 .ColorIndex = xlAutomatic
 End With
 With Selection.Borders(xlInsideVertical)
 .LineStyle = xlContinuous
 .Weight = xlThin
 .ColorIndex = xlAutomatic
 End With
 With Selection.Interior
 .ColorIndex = 6
 .Pattern = xlSolid
 .PatternColorIndex = xlAutomatic
 End With
 End If
End Sub
#11

Guten Morgen

bei diesem Thema kann ich mich gleich einklinken.
Ich habe schon die 3 Bedingten Formatierungen ausgenutzt, jetzt kommen aber noch 4 weitere dazu. Und das geht ja nicht…

Ich möchte für einen bestimmten Zellennamen eine bestimmte Zellenfarbe (Spalte B) einfärben. Leider konnte ich mit den Angaben meiner Vorschreiben zuwenig anfangen (Ich nix verstehe).

z.b.
Haus = gelb
Hund = hellgrün
Auto = rosa
Katze = hellblau

Hey, danke für die Zuschriften

#12

Guten Morgen

Ich möchte für einen bestimmten Zellennamen eine bestimmte
Zellenfarbe (Spalte B) einfärben.

Haus = gelb
Hund = hellgrün
Auto = rosa
Katze = hellblau

Mach doch mal ein Beispiel :

Du gibst wo was ein und was soll genau rauskommen

A1 eingabe
daraus soll werden
Feld A1-F1 green
Feld B1-rot

?

Ich muss es schon wissen,also nochmal dataliert beschreiben.

#13

Ich habe es gemacht aber wenn ich in der Zelle ein Datum
eintippe reagiert es nicht!!

OK, dann versuch es mal zuerst nur mit der Zelle F1, diese zu formatieren.
Wenn das klappt, mittels Pinsel das Format auf A1 bis E1 übertragen.
Bei der Formel darauf achten, dass vor dem A das $ steht, vor der 1 aber nicht (also $A1).
Verena

#14

ok, ich versuchs

Habe eine Auftrags-Tabelle mit verschiedenen Produkten.
In Spalte B pflege ich das Produkt ein, z.b. Toyota
Für das Produkt Toyota möchte ich in der gesamten Tabelle die Spalte B gelb ausgefüllt haben (gibt mir farblich einen guten Überblick, nebst Filter).
Daneben habe ich noch in der Spalte B, das Produkt Subaru, Lexus, LandRover, Suzuki

…und für diese möchte ich auch eine eigene Farbe haben.

> B2:n gelb wenn Toyota
B2:n rosa wenn Suzuki

etc. steht.