Anzeige
Archiv - Navigation
840to844
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
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kleinbuchstaben in Großbuchstaben per VBA

Kleinbuchstaben in Großbuchstaben per VBA
30.01.2007 20:17:25
Bernd
Hallo, verehrte Freeks,
kann man per VBA einen Text mit Kleinbuchstaben in ein Text mit Großbuchsaben wechseln? Der Text steht in Spalte C von Zeile 4 bis 280 und jedes mal verschieden, aber immer nach unten stehendem Aufbau.
Ein Bsp: aus "M.0118-oi-ps-pr" soll werden "M.0118.OI.PS-PR".
Grüße und Danke
Bernd

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

Betreff
Datum
Anwender
Anzeige
AW: Kleinbuchstaben in Großbuchstaben per VBA
30.01.2007 20:30:30
Florej

Sub Grossbuchst()
Dim RaZelle As Range
For Each RaZelle In ActiveSheet.UsedRange
RaZelle = UCase(RaZelle)
Next RaZelle
End Sub

AW: Kleinbuchstaben in Großbuchstaben per VBA
30.01.2007 20:35:41
Ramses
Hallo

Sub Gross()
Dim i as integer
For i = 4 to 280
Cells(i,3) = ucase(cells(i,3))
next i
End Sub

Gruss Rainer
Vielen (!!) Dank an Alle.
30.01.2007 21:06:34
Bernd
Klappt wunderbar!!!
Grüße
bernd
AW: Kleinbuchstaben in Großbuchstaben per VBA
30.01.2007 20:41:03
Karin
hier versuch mal

Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range, RaZelle As Range
Application.EnableEvents = False
Set RaBereich = Range("C4:C280")
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
RaZelle.Value = UCase(RaZelle.Value)
End If
Next RaZelle
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub

Anzeige

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige