Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellen automatisch halb-halb einfärben

Zellen automatisch halb-halb einfärben
28.03.2007 11:48:15
Peter
Moin Ihr's,
ich hab da mal wieder ne Frage. Verspreche mir zwar nicht viel Erfolg, aber wer weiss:
folgene Tabelle wurde als Anwesenheitsliste angelegt.
https://www.herber.de/bbs/user/41460.xls
Mit VB wurde es nun so eingerichtet, dass die jeweiligen Felder automatisch in der richtigen Farbe eingefärbt werden, sobald man den entsprechenden Buchstaben für Urlaub, Krankheit etc. in die Zelle eingibt.
Jetzt hab ich das Problem, dass ich gerne auch Tage darstellen will, an denen nur den halben Tag Schulungen, Urlaube oder Krankheiten sind. Ich habe das zur Veranschaulichung mal mit Autoformen in der Tabelle (Monat März) nachgebildet, wie ich das gerne hätte. Allerdings soll Excel das automatisch machen (bspw.: "u" = Urlaub, also Zelle blau, "ua" = halber Tag anwesend, halber Tag Urlaub, also grün/blau). Unter den Mustern ist leider keines, das die Zelle in der Hälfte teilt und ob Excel auch automatisch Autoformen setzen kann, weiss ich auch nicht. Mit VB kenne ich mich auch nicht besonders gut aus, ich benutze dafür immer Tips und Hilfen aus dem Internet.
Fänd' ich klasse, falls mir einer von Euch weiterhelfen kann.
Danke und Gruss,
Peter
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen automatisch halb-halb einfärben
28.03.2007 12:44:18
Bertram
Hallo Peter,
halb-halb färben geht meines Wissens nach nicht. Ich hab das bei mir mit weiteren Farben gemacht.
Übrigens brauchst du für z.B. "U" und "u" keine 2 Abfragen, sondern schreibe
Select Case UCase(Target.Value)
Dann wird aus "u" auch "U".
Gruß
Bertram
AW: Zellen automatisch halb-halb einfärben
28.03.2007 12:54:00
Peter
Hallo Bertram,
dachte ich mir schon, dass das nicht geht, werde dann auch andere Farben benutzen.
Das mit dem "u" und "U" ist übrigens ein guter Tip, werde ich umsetzen :)
Dnke Dir für die Hilfe, Gruss,
Peter
p.s.: Falls Du das zufällig gerade parat hast: Gibt es in VB eine Übersicht mit Farben und den dazugehörigen Zahlen? Hab das alles ausprobiert, war aber lästig...
Danke!
Anzeige
AW: Zellen automatisch halb-halb einfärben
28.03.2007 13:04:00
Jürgen
Hallo Bertram,
for i = 1 to 56
cells(i,1).interior.colorindex=i
cells(i,2)=i
next i
Diesen Code in einStandardmodul und ausführen.
Gruß
Jürgen
AW: Zellen automatisch halb-halb einfärben
28.03.2007 13:25:08
Bertram
Hallo Jürgen,
danke für die Antwort, aber ich wollt's nicht wissen:-) Das ist Peter.
Gruß
Bertram
oops
28.03.2007 13:27:30
Jürgen
OK Bertram ich gebs zu, wer lesen kann ist klar im Vorteil :-))
Anzeige
AW: Zellen automatisch halb-halb einfärben
28.03.2007 13:06:10
Bertram
Hallo Peter,
schau in der OH unter 'ColorIndex'. Dort findes du eine Auswahl.
Oder lass das Makro laufen:

Sub Farben()
Dim i As Integer
For i = 1 To 56
Cells(i, 1).Interior.ColorIndex = i
Next
End Sub

Gruß
Bertram
AW: Zellen automatisch halb-halb einfärben
28.03.2007 15:05:00
Niels
Hi Peter,
was du sonst noch machen kannst ist einfach einen Kommentar bei Halbtag anwesend einfügen.
Dann hast du zu mindest eine kleine Farbige unterteilung.
Mit
Target.AddComment
sollte es gehen.
Gruß Niels
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Zellen automatisch halb-halb einfärben in Excel


Schritt-für-Schritt-Anleitung

Um eine Excel-Zelle halb zu füllen oder zweifarbig zu gestalten, kannst du folgende Schritte befolgen:

  1. Markiere die Zelle, die du einfärben möchtest.
  2. Gehe zu "Start" > "Einstellungen" > "Füllfarbe" und wähle die erste Farbe aus.
  3. Klicke auf "Formen" und ziehe ein Rechteck über die Zelle, um die untere Hälfte abzudecken.
  4. Klicke mit der rechten Maustaste auf das Rechteck und wähle "Form formatieren".
  5. Wähle eine zweite Farbe für das Rechteck aus, um die obere Hälfte der Zelle zweifarbig zu gestalten.
  6. Positioniere das Rechteck genau über der Zelle, um den gewünschten Effekt zu erzielen.

Beachte, dass dies manuell erfolgt und du mit VBA automatisieren kannst.


Häufige Fehler und Lösungen

  • Problem: Die Zelle wird nicht richtig halb gefüllt.

    • Lösung: Stelle sicher, dass das Rechteck genau über der Zelle platziert ist. Achte auch darauf, dass die Form keine Schattierung hat.
  • Problem: Die Farben erscheinen nicht richtig.

    • Lösung: Überprüfe die Fülloptionen und stelle sicher, dass du keine Farbverläufe verwendest. Nutze statische Farben für die besten Ergebnisse.

Alternative Methoden

Wenn du eine Excel-Zelle zweifarbig ohne Schattierung gestalten möchtest, kannst du auch folgende Methoden verwenden:

  • Bedingte Formatierung: Du kannst Bedingungen festlegen, unter denen eine Zelle eingefärbt wird. Dies ist nützlich, um z.B. Wochenendtage automatisch zu kennzeichnen.
  • VBA-Makros: Mit einem einfachen Makro kannst du Zellen automatisch einfärben. Hier ist ein Beispiel:
Sub ZelleHalbFüllen()
    Dim rng As Range
    Set rng = Selection
    rng.Interior.Color = RGB(0, 0, 255) ' Erstfarbe
    ' Füge hier den Code für eine zweite Farbe hinzu
End Sub

Praktische Beispiele

  1. Halbtägige Schulungen: Wenn du "u" für Urlaub und "ua" für halben Tag anwesend eingibst, könntest du die Zelle automatisch einfärben:

    • "u" = Blau
    • "ua" = Grün/Blau (halb-halb)
  2. Anwesenheitslisten: Verwende die bedingte Formatierung, um Zellen automatisch einzufärben, basierend auf Werten wie "u", "k" (Krankheit) oder "a" (anwesend).


Tipps für Profis

  • Schraffieren: Wenn du eine Zelle schraffieren möchtest, kannst du dies über die Formateinstellungen in Excel tun. Wähle "Schraffur" aus den Fülloptionen.

  • Verwendung von Kommentaren: Du kannst auch Kommentare hinzufügen, um zusätzliche Informationen anzuzeigen, wenn du die Maus über die Zelle bewegst.

  • VBA-Referenzen: Nutze die ColorIndex-Eigenschaft in VBA, um die Farben effizient zu verwalten. Beispiel:

Cells(1, 1).Interior.ColorIndex = 3 ' Rot
Cells(1, 1).Interior.ColorIndex = 4 ' Grün

FAQ: Häufige Fragen

1. Kann ich in Excel eine Zelle zweifarbig machen?
Ja, du kannst dies durch die Verwendung von Formen oder VBA-Makros erreichen.

2. Wie kann ich in Excel eine Zelle schraffieren?
Du kannst dies über die Formatierungsoptionen unter "Füllfarbe" tun und dort die Schraffur auswählen.

3. Gibt es eine Möglichkeit, Zellen automatisch zu färben?
Ja, du kannst VBA verwenden, um Zellen basierend auf bestimmten Bedingungen automatisch einzufärben.

Beliebteste Forumthreads (12 Monate)

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