Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
812to816
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
812to816
812to816
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

mehere Zellblöcke in Großbuchstaben

mehere Zellblöcke in Großbuchstaben
20.10.2006 13:46:48
Uwe
Hallo an Alle;
das hab ich an Code für einen Bereich an Zellen für Großschreiben....

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rngUCase As Range
Set rngUCase = Range("E4:P63")
If Not Intersect(Target, rngUCase) Is Nothing Then
Set Target = Intersect(Target, rngUCase)
Target.Cells(1) = UCase(Target.Cells(1))
End If
End Sub

...wie bekomme ich das hin damit er mir z.b. den Bereich ("E82:P95")auch mit Großschrift versieht.
Hab da schon hin und her probiert.
Wenn ein Bereich geht geht der andere nicht.
Na halt Anfänger....:-)
kann mir da einer helfen!
Dank schon mal im vorraus.
Gruß Uwe

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

Betreff
Datum
Anwender
Anzeige
AW: mehere Zellblöcke in Großbuchstaben
20.10.2006 14:31:22
Ingo
Hallo Uwe,

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim rngUCase As Range
Set rngUCase = Union(Range("AE4:P63"), Range("E82:P95"))
If Not Intersect(Target, rngUCase) Is Nothing Then
Set Target = Intersect(Target, rngUCase)
Target.Cells(1) = UCase(Target.Cells(1))
End If
mfG
Ingo Christiansen
End Sub

AW: mehere Zellblöcke in Großbuchstaben
20.10.2006 16:51:37
Uwe
Hallo Ingo,
super Sache. So läufts.
Nochmals Dank
Gruß Uwe
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige