Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1048to1052
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
1048to1052
1048to1052
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellfarbe bei Texteingabe

Zellfarbe bei Texteingabe
17.02.2009 14:37:00
Danneberg
Hallo Liebe Excel Freunde!
Ich habe ein kleines Problem. Ich habe eine Arbeitsmappe mit verschiedenen Tabellenblättern. Die verschiedenen Tabellen enthalten Listen.
In diese Listen sollen Buchstaben eingetragen werden. Um die Übersicht zu behalten soll bspw. die Zellfarbe grün werden, wenn ein "A" eingetragen wird. Insgesamt sind 15 verschiedene Eintragungen möglich. Kann mir jemand eine Möglichkeit über VBA zeigen, um diese Sache zu realisieren.
Danke im Voraus.

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

Betreff
Datum
Anwender
Anzeige
AW: Zellfarbe bei Texteingabe
17.02.2009 18:49:00
Daniel
Hi
hier mal ein Beispiel für fast beliebig viele Möglichkeiten:
https://www.herber.de/bbs/user/59550.xls
die Formate werden in einem Blatt "Formatvorlage" hinterlegt und dann durch diesen Code bei einer eingabe in andere Blätter ergänzt. Der Code muss ins Modul "DieseArbeitsmappe"

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Zelle As Range
Dim FormatZelle As Range
If Sh.Name = "Formatvorlage" Then Exit Sub
If Target.Cells.Count > 1000 Then Exit Sub
For Each Zelle In Target
If Zelle.Value = "" Then
Application.EnableEvents = False
Zelle.ClearFormats
Application.EnableEvents = True
Else
Set FormatZelle = Sheets("Formatvorlage").UsedRange.Find(what:=Zelle.Value)
If Not FormatZelle Is Nothing Then
Application.EnableEvents = False
FormatZelle.Copy
Zelle.PasteSpecial xlPasteFormats
Application.EnableEvents = True
End If
End If
Next
End Sub


gruß, Daniel

Anzeige
AW: Zellfarbe bei Texteingabe
17.02.2009 20:25:00
Danneberg
vielen, vielen dank - es klappt wunderbar.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige