Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
356to360
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
356to360
356to360
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

automatische Formatierung bei manueller Eingabe

automatische Formatierung bei manueller Eingabe
07.01.2004 09:47:38
Ralf
Moin zusammen,

ich möchte bei manueller Eingabe von Buchstabenkürzel in einer Zelle eine automatische Formatierung dieser Zelle erreichen nach einem Muster das separat festgelegt wird (Matrix oder LookUp Tabelle)
z.B. wenn in die Zelle ABC eingetippt wird soll die schrift z.b. fett kurisv mit rotem Hintergrund werden usw usw; Bedingete Formatierung scheidet wohl aus da ich weit mehr als drei Kombinationen habe (ca 30 - 50) - Geht das ohne VBA? wenn nein dann brauche ich leider deutliche Anweisungen da ich nur geringe (ganz geringe)VBA kenntnisse habe.
Bitte dringend um Hilfe - Danke

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: automatische Formatierung bei manueller Eingabe
07.01.2004 14:29:23
Dieter Klemke
Hallo Ralf,
du kannst das z.B. mit der folgenden Worksheet_Change-Prozedur machen:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Column = 3 Then
Select Case Target.Value
Case "ABC"
Target.Font.Bold = True
Case "DEF"
Target.Font.Italic = True
Case "GHI"
Target.Interior.ColorIndex = 3
Case Else
Target.Font.Bold = False
End Select
End If
End Sub

Die Prozedur reagiert nur auf Veränderungen in der 3. Spalte.
Du kopierst die Prozedur in den Klassenmodul derjenigen Tabelle, in der die Eingabe erfolgt. Dazu machst du im Projektexplorer des VB-Editors einen Doppelklick auf die Tabelle und fügst den Code in das rechte weiße Feld ein.
MfG
Dieter
Anzeige
AW: automatische Formatierung bei manueller Eingabe
09.01.2004 09:09:55
ralf
Hallo Dieter,

herzlichen Dank - hat mir sofort weitergeholfen.
Gruß
Ralf

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige