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

Forumthread: Grossbuchstaben in einer Spalte

Grossbuchstaben in einer Spalte
25.07.2004 22:36:50
Günther
Hollo Excel Fans
Grossbuchstaben in einer Spalte
Habe folgendes Problem.
Ich habe eine Anwesenheitsliste für die Arbeit gemacht.
Habe in der Spalte (G4) mit "(U/K/F)" gekenntzeichnet,
für krank, Urlaub, Feiertag,
und in der jeweils untereinander (G3:G34) ein Buchstaben (U/K/F) steht,
Bei 2 Mitarbeiter jeweils 12 Tabellen (Mit1_jan bis dez.)usw.,
möchte ich den Buchstaben in Großschrift haben.
In allen Tabellen 24 Stück haben.
Dieses Marco habe ich bei W.Herber gefunden,

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("g4:g34")) Is Nothing Then Exit Sub
Target.Value = UCase(Target.Value)
End Sub

soweit sogut, funz super aber, nur mit einer Tabelle.
Wer kann mir helfen!
Im Vorraus Danke
Günther Franzke
Office Xp
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Grossbuchstaben in einer Spalte
25.07.2004 22:45:51
Nepumuk
Hallo Günther,
folgendes Makro in das Modul "DieseArbeitsmappe":


Private Sub Workbook_SheetChange(ByVal Sh As ObjectByVal Target As Range)
    If Not Intersect(Target, Range("g4:g34")) Is Nothing And Target.Count = 1 Then Target.Value = UCase(Target.Value)
End Sub


Gruß
Nepumuk
Anzeige
AW: Grossbuchstaben in einer Spalte
25.07.2004 23:01:55
Günther
Hallo Nepumuk
danke für die prompte hilfe klappt super,
habe den code in der tabelle rein kopiert und nicht in der DieseArbeitsmappe.
gibt ein code der die buchstaben in farbe aus gibt?
zum Beispiel: U=blau, F=grün, K=rot
Danke
Günther
AW: Grossbuchstaben in einer Spalte
26.07.2004 16:24:52
Nepumuk
Hallo Günther,
dann so:


Private Sub Worksheet_Change(ByVal Target As Range)
    Dim intFarbe As Integer
    If Not Intersect(Target, Range("G4:G34")) Is Nothing And Target.Count = 1 Then
        Target.Value = UCase(Target.Value)
        Select Case Target.Value
            Case "U": intFarbe = 5
            Case "F": intFarbe = 4
            Case "K": intFarbe = 3
            Case Else: intFarbe = 0
        End Select
        Target.Font.ColorIndex = intFarbe
    End If
End Sub


Gruß
Nepumuk
Anzeige
AW: Suuuuper hat klappt
Günther
Moin Moin Neoumuk
hat super hingehauen.
Danke für deine schnelle Hilfe
Gruß
Günther
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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