Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nachbrenner

Forumthread: Nachbrenner

Nachbrenner
14.10.2005 15:12:44
Stefan
Und wieder ich,
nochmals allen ein freudiges hallo,
Dr hat mir folgende Lösung für mein Problem mit der Großschreibung gegegben.

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Value = UCase(Target.Value)
End Sub

haut super hin, nun noch die Freage ich den Code umstellen muss damit obiger Code nur für folgende Bereiche gilt: C3:BY17 und C20:BY34.
Gruss
Stefan
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Nachbrenner
14.10.2005 15:19:26
Matthias
Hallo Stefan,

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ber As Range, z As Range
Set ber = Intersect(Target, Union(Range("C3:BY17"), Range("C20:BY34")))
If Not ber Is Nothing Then
Application.EnableEvents = False
For Each z In ber
z.Value = UCase(z.Value)
Next z
Application.EnableEvents = True
End If
End Sub

Gruß Matthias
Anzeige
Danke o.T.
14.10.2005 16:20:49
Stefan
.
;

Beliebteste Forumthreads (12 Monate)

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