Bestimmte Zellen Gross schreiben
26.05.2008 13:51:00
mehmet
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
Anzeige