Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
944to948
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
944to948
944to948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Farbe der Kopfzeile in Abhängigkeit einfärben

Farbe der Kopfzeile in Abhängigkeit einfärben
22.01.2008 21:05:26
Thomas
Hallo!
Ich habe eine Einkaufstabelle und habe immer Probleme bei der Größeneingabe. Um Fehler zu vermeiden will ich immer den entsprechenden Größenschlüssel in Abhängigkeit des Wertes der Spalte X in der Aktiven Zeile in Gelb einfärben ...
Damit das etwas klarer ist was ich will, habe ich das mal mit einem Screenshot gemacht!
Userbild
Danke für eure Hilfe!
Thomas

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Farbe der Kopfzeile in Abhängigkeit einfärben
22.01.2008 22:06:04
Daniel
Hi
so ganz ohne Makros gehts meines wissens nach nicht (dh. vielleicht gibts mit Zelle.Zuordnen nen Weg, aber den Kenne ich nicht)
du brauchst folgendes Makro, daß den Wert aus Spalte X der selektierten Zeile in eine festgelegte Zelle schreibt, das Makro gehört ins Modul der betroffenen Tabelle

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("W1").Value = Cells(Target.Row, "x").Value
End Sub


den Rest regelst du dann über die Bedingte Formatierung, für einen Excel-Profi sicherlich kein Problem.
Gruß, Daniel

Anzeige
AW: Farbe der Kopfzeile in Abhängigkeit einfärben
22.01.2008 22:47:29
Thomas
Hallo Daniel!
Super geht (fast)! Das Makro muss ich ja unter VBAProjecte > Microsoft Excel Objekte > ... dann in die Tabelle ...
... leider habe ich da schon das drin:

Private Sub ComboBox1_Change()
If ActiveSheet.Name = "1. Messe - Textil" And _
ActiveCell.Column = 11 And ActiveCell.Row > 11 Then
ActiveCell.Value = ComboBox1.Value
End If
End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 11 And Target.Column = 11 Then
ComboBox1.Top = Target.Cells(3).Offset(0, 1).Top
End If
End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("W1").Value = Cells(Target.Row, "x").Value
End Sub


... beim Ausführen meckert er dann das "SelectionChange" mehrdeutig ist, wenn ich den Text "SelectionChange" abändere dann geht das nicht mehr ...
Idee?
Thomas

Anzeige
AW: Farbe der Kopfzeile in Abhängigkeit einfärben
22.01.2008 22:51:56
Daniel
Hi
das Selection_Change - Makro darf natürlich nur einmal vorkommen.
du musst die beiden Codebestandteile halt ein einem Makro zusammenschreiben.
da es von den Bedingungen her keine Überschneidungen gibt, sollte es einfach funktionieren.
Gruß, Daniel

AW: Farbe der Kopfzeile in Abhängigkeit einfärben
22.01.2008 22:51:56
Daniel
Hi
das Selection_Change - Makro darf natürlich nur einmal vorkommen.
du musst die beiden Codebestandteile halt ein einem Makro zusammenschreiben.
da es von den Bedingungen her keine Überschneidungen gibt, sollte es einfach funktionieren.
Gruß, Daniel

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige