Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Kleinbuchstaben in Großbuchstaben umwandeln

Kleinbuchstaben in Großbuchstaben umwandeln
20.07.2005 13:39:21
Ralf-Eckhard
Hallo.
Ich möchte in einer Zelle (Text) eingeben, wobei alle Buchstaben als Großbuchstaben erscheinen sollen, auch wenn man dort Text in Kleinbuchstaben eingibt.
Gibt es eine Möglichkeit daß bei Eingabe alles automatisch in Großbuchstaben umgewandelt wird?
Danke im voraus,
Ralf
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kleinbuchstaben in Großbuchstaben umwandeln
20.07.2005 14:00:46
Galenzo
ja, gibt es..
Variante 1): per Formel in die Nachbarspalte
Variante 2) per VBA (Makro)
AW: Kleinbuchstaben in Großbuchstaben umwandeln
20.07.2005 14:10:43
Ralf-Eckhard
und wie müßte Variante 2 aussehen ?
:-)
siehe UweD
20.07.2005 14:19:51
Galenzo
war schneller...
Anzeige
AW: Kleinbuchstaben in Großbuchstaben umwandeln
20.07.2005 14:10:35
UweD
Hallo
- rechtsclick auf Tabellenblattreiter unten
- code anzeigen
- Makro einfügen
Beispiel für A1 bis B10

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B10")) Is Nothing Then ' nur dieser Bereich
Target = UCase(Target)
End If
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Kleinbuchstaben in Großbuchstaben umwandeln
20.07.2005 14:19:47
Ralf-Eckhard
Hallo Uwe
Funktionieren tut das zwar - nur wenn ich dann in den entsprechenden Feldern eine Eingabe tätige, passiert (nach Umwandlung in Großbuchstaben) dann gar nix mehr - Aufhänger!
Dann hilft nur Strg+Alt+Ent !!!
hmmm, komisch ... :-((
AW: Kleinbuchstaben in Großbuchstaben umwandeln
20.07.2005 14:24:06
UweD
Hallo
sorry die Änderung in Großbuchstaben löst das event ja wieder selbst aus ...
so gehts...

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo fehler
If Not Intersect(Target, Range("A1:B10")) Is Nothing Then ' nur dieser Bereich
Application.EnableEvents = False
Target = UCase(Target)
End If
fehler:
Application.EnableEvents = True
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: Kleinbuchstaben in Großbuchstaben umwandeln
20.07.2005 15:03:06
Galenzo
um Fehler bei gelichzeitiger Eingabe in mehrere zellen zu umgehen:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo fehler
Set Target = Intersect(Target, Range("A1:B10"))
If Not Target Is Nothing Then
Application.EnableEvents = False
Dim c As Range
For Each c In Target.Cells
c = UCase(c)
Next
End If
fehler:
Application.EnableEvents = True
End Sub

Anzeige
AW: Kleinbuchstaben in Großbuchstaben umwandeln
20.07.2005 15:15:41
MichaV
Hi,
um das Löschen von Formeln zu vermeiden empfehle ich noch

For Each c In Target.Cells
If Not Left(c.Formula, 1) = "=" Then c = UCase(c)
Next

Gruss- Micha

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Kleinbuchstaben in Großbuchstaben umwandeln in Excel


Schritt-für-Schritt-Anleitung

Um in Excel Kleinbuchstaben automatisch in Großbuchstaben umzuwandeln, kannst Du entweder eine Formel oder ein VBA-Makro verwenden. Hier sind beide Methoden:

1. Mit einer Formel:

  • Angenommen, Du hast in Zelle A1 einen Text in Kleinbuchstaben. In Zelle B1 kannst Du die folgende Formel verwenden:
=GROSS(A1)

Diese Formel wandelt den Text in Zelle A1 in Großbuchstaben um. Du kannst die Formel nach unten ziehen, um sie auf weitere Zellen anzuwenden.

2. Mit einem VBA-Makro:

  • Öffne das Excel-Dokument und klicke mit der rechten Maustaste auf den Reiter des Tabellenblatts, das Du bearbeiten möchtest.
  • Wähle „Code anzeigen“ und füge den folgenden Code ein:
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo fehler
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then ' nur dieser Bereich
        Application.EnableEvents = False
        Target = UCase(Target)
    End If
fehler:
    Application.EnableEvents = True
End Sub

Dieser Code sorgt dafür, dass jeder Text, der in den Zellen A1 bis B10 eingegeben wird, automatisch in Großbuchstaben umgewandelt wird.


Häufige Fehler und Lösungen

Problem: Nach der Eingabe in die Zellen passiert nichts.
Lösung: Stelle sicher, dass das Ereignis Application.EnableEvents im VBA-Code korrekt gesetzt ist. Verwende den korrigierten Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo fehler
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
        Application.EnableEvents = False
        Dim c As Range
        For Each c In Target.Cells
            c = UCase(c)
        Next
    End If
fehler:
    Application.EnableEvents = True
End Sub

Dieser Code vermeidet Probleme, wenn Du gleichzeitig in mehrere Zellen eingibst.


Alternative Methoden

  • Excel-Funktion: Wenn Du den gesamten Text in einer Zelle in Großbuchstaben umwandeln möchtest, kannst Du die Funktion GROSS verwenden, wie bereits beschrieben.

  • Formatierung: Du kannst auch die Schriftart auf „Kapitalbuchstaben“ setzen, um den Text visuell zu verändern, allerdings bleibt der ursprüngliche Text unverändert.


Praktische Beispiele

  1. Formelbeispiel:

    • Wenn Du die Zellen A1 bis A10 hast, die Kleinbuchstaben enthalten, benutze die Formel in B1:
      =GROSS(A1)

      Ziehe die Formel nach unten bis B10.

  2. VBA Beispiel:

    • Verwende den oben genannten VBA-Code, um automatisch alle Eingaben in den Zellen A1 bis B10 in Großbuchstaben umzuwandeln.

Tipps für Profis

  • Automatische Umwandlung: Setze den VBA-Code so ein, dass er für größere Bereiche oder für das gesamte Arbeitsblatt gilt, indem Du den Bereich in Range("A1:B10") anpasst.

  • Verwendung von UCase: Du kannst UCase in VBA auch verwenden, um spezifische Textmanipulationen durchzuführen, wie das Umwandeln von Text, der aus einer anderen Quelle importiert wurde.


FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass Formeln nicht überschrieben werden?
Du kannst den VBA-Code so anpassen, dass er nur auf Zellen anwendbar ist, die keine Formeln enthalten.

2. Kann ich den VBA-Code für andere Zellen anpassen?
Ja, ändere einfach den Bereich in Range("A1:B10") auf die Zellen, die Du verwenden möchtest.

3. Funktioniert das auch in älteren Excel-Versionen?
Ja, sowohl die Formel als auch das VBA-Makro funktionieren in den meisten Excel-Versionen, die VBA unterstützen, einschließlich Excel 2007 und neuer.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige