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

Bestimmte Zellen Gross schreiben

Bestimmte Zellen Gross schreiben
26.05.2008 13:51:00
mehmet
Hallo Forum,
ich habe hier folgende Code gefunden und angewändet:

Sub Gross_Legs_Carriers()
Dim myC As Range, mySelRange As Range
Set mySelRange = Range("c1:c1")
For Each myC In mySelRange
myC.Value = VBA.UCase(myC.Value)
VBA.UCase (myC.Value)
Next
End Sub



Sub Gross_Legs_Departure_AP()
Dim myC As Range, mySelRange As Range
Set mySelRange = Range("j1:j1")
For Each myC In mySelRange
myC.Value = VBA.UCase(myC.Value)
VBA.UCase (myC.Value)
Next
End Sub



Sub Gross_Legs_Arrival_AP()
Dim myC As Range, mySelRange As Range
Set mySelRange = Range("j2:j2")
For Each myC In mySelRange
myC.Value = VBA.UCase(myC.Value)
VBA.UCase (myC.Value)
Next
End Sub


Kann man die drei Codes zu einem Code machen?
Dank und Gruss
Mehmet

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

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Zellen Gross schreiben
26.05.2008 13:55:02
Matthias
Hallo Mehmet,
ein bisschen aufwendig, der Code.
Ich würde es so machen:

With Range("C1")
.Value = UCase(.Value)
End With
With Range("J1")
.Value = UCase(.Value)
End With
With Range("J2")
.Value = UCase(.Value)
End With


Gruß Matthias

AW: Bestimmte Zellen Gross schreiben
26.05.2008 14:15:00
mehmet
Hallo Matthias,
super, es funktioniert, dank dir
Gruss
Mehmet

AW: Bestimmte Zellen Gross schreiben
26.05.2008 14:03:00
Renee
Hi Mehmet,

Sub atomar()
[c1] = UCase([c1]): [j1] = UCase([j1]): [j2] = UCase([j2])
End Sub

GreetZ Renée

AW: Bestimmte Zellen Gross schreiben
26.05.2008 14:16:04
mehmet
Hallo Rene,
ich danke dir.
Es funktioniert
Gruss
Mehmet
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige