Supportnet / Forum / Tabellenkalkulation
Umwandeln von Klein- in Großbuchstaben
Frage
Hallöchen,
ich habe nun einige Threads hier durchgeschaut, aber für mein Problem noch nicht die passende Lösung gefunden (also ´schuldigung, falls es schon öfters gelöst wurde)
Mein Problem:
in einer Zelle (Spalte B) stehen Autokennzeichen allerdings mit kleinen Buchstaben. Nun bräuchte ich die Buchstaben groß, die Zahlen natürlich unverändert und das nach Möglichkeit ohne alles neu zu tippen ;-)
Also aus xx-xx1234 soll XX-XX1234 werden.
Kann man dies mit einer schnöden benutzerdefinierten Formatierung machen?
Oder muss ich da in die Tiefen von excell abtauchen (dann tipp ich lieber)
Danke schon mal
lg
Heike
Antwort 1 von CaroS
Hallo Dormel,
wenn es sich um eine einmalige Aktion handelt, würde ich sagen, da fangen wir mit VBA gar nicht erst an, sondern machen eine Hilfsspalte auf, schreiben in die oberste Zelle
=GROSS(D1)
ziehen/kopieren die Formel so weit runter wie nötig, markieren alle Zellen in der Hilfsspalten, kopieren sie (in die Zwischenablage), markieren die Zelle D1 und wählen aus dem Menü Berarbeiten -- Inhalte einfügen... -- Werte -- OK.
OK?
Aber vermutlich dauert es gar nicht lange, bis hier auch die ersten VBA-Lösungen eintreffen.
Gruß,
CaroS
wenn es sich um eine einmalige Aktion handelt, würde ich sagen, da fangen wir mit VBA gar nicht erst an, sondern machen eine Hilfsspalte auf, schreiben in die oberste Zelle
=GROSS(D1)
ziehen/kopieren die Formel so weit runter wie nötig, markieren alle Zellen in der Hilfsspalten, kopieren sie (in die Zwischenablage), markieren die Zelle D1 und wählen aus dem Menü Berarbeiten -- Inhalte einfügen... -- Werte -- OK.
OK?
Aber vermutlich dauert es gar nicht lange, bis hier auch die ersten VBA-Lösungen eintreffen.
Gruß,
CaroS
Antwort 2 von CaroS
Und die Hilfsspalte kann man dann natürlich komplett wieder löschen: markieren -- Bearbeiten -- Zellen löschen.
Antwort 3 von fürLau
..muß auch Gross...;-))
Antwort 4 von CaroS
Na denn aber schnell! Es ist immer unangenehm, wenn große Geschäfte in die Hose gehen ;-))
CaroS
CaroS
Antwort 5 von fürLau
..hat s(i)ch erledigt *Z*.
Antwort 6 von nighty
hi all :)
so schwer ist ja net das einfuegen :))
gruss nighty
alt/f11/einfuegen/modul/einfuegenMakro
ausfuehren/subuserform ausfuehren
Option Explicit
Sub GrossBuchstaben()
Dim zelle As Range
For Each zelle In ActiveSheet.Range("A1:A" & ActiveSheet.Range("D65536").End(xlUp).Row + 1)
ActiveSheet.Cells(zelle.Row, zelle.Column) = UCase(ActiveSheet.Cells(zelle.Row, zelle.Column))
Next zelle
End Sub
so schwer ist ja net das einfuegen :))
gruss nighty
alt/f11/einfuegen/modul/einfuegenMakro
ausfuehren/subuserform ausfuehren
Option Explicit
Sub GrossBuchstaben()
Dim zelle As Range
For Each zelle In ActiveSheet.Range("A1:A" & ActiveSheet.Range("D65536").End(xlUp).Row + 1)
ActiveSheet.Cells(zelle.Row, zelle.Column) = UCase(ActiveSheet.Cells(zelle.Row, zelle.Column))
Next zelle
End Sub
Antwort 7 von nighty
hi all :)
war zu langsam mit dem tippen :)))
gruss nighty
war zu langsam mit dem tippen :)))
gruss nighty
Antwort 8 von nighty
hi all :)
und tippfehler auch noch , ertsmal korrigiert :)
gruss nighty
Option Explicit
Sub GrossBuchstaben()
Dim zelle As Range
For Each zelle In ActiveSheet.Range("B1:B" & ActiveSheet.Range("B65536").End(xlUp).Row)
ActiveSheet.Cells(zelle.Row, zelle.Column) = UCase(ActiveSheet.Cells(zelle.Row, zelle.Column))
Next zelle
End Sub
und tippfehler auch noch , ertsmal korrigiert :)
gruss nighty
Option Explicit
Sub GrossBuchstaben()
Dim zelle As Range
For Each zelle In ActiveSheet.Range("B1:B" & ActiveSheet.Range("B65536").End(xlUp).Row)
ActiveSheet.Cells(zelle.Row, zelle.Column) = UCase(ActiveSheet.Cells(zelle.Row, zelle.Column))
Next zelle
End Sub