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

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

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

309 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige