Eingabe sofort in GROSSBUCHSTABEN umwandeln

Forumthread: Eingabe sofort in GROSSBUCHSTABEN umwandeln

28.12.2005 16:05:08

CELINE

Hallo zusammen,
aus der Recherche habe ich den nachfolgenden Code gefunden:


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A10:X405"), Target) Is Nothing Then
Target = UCase(Target)
End If
End Sub

Dieser Code wandelt alle Eingaben des Bereiches A1 bis X405 in GROSSBUCHSTABEN um.
Problem, da der Bereich sehr groß ist, dauert es auch sehr lange bis der Code abgelaufen ist.
Fragen:
1) Gibt es schnelle Möglichkeit alle Eingaben eines großen Bereiches in GROSSBUCHSTABEN umzuwandeln ?
2) Oder, gibt es eine Möglichkeit, bei Eingabe eines Wertes in eine Zelle, diesen Wert sofort nur für die geänderte Zelle in GROSSBUCHSTABEN umzuwandeln?
Wäre schön, wenn mir jemand helfen könnte !
Gruß, CELINE.

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Eingabe sofort in GROSSBUCHSTABEN umwandeln

28.12.2005 16:23:21

Josef
AW: Hallo Sepp,

29.12.2005 07:18:31

CELINE

AW: Eingabe sofort in GROSSBUCHSTABEN umwandeln

28.12.2005 16:23:21

Josef

Hallo Celine!
So sollte es besser klappen!

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrExit
If Not Intersect(Range("A10:X405"), Target) Is Nothing Then
  If Target.Count = 1 Then
    Application.EnableEvents = False
    Target = UCase(Target)
  End If
End If
ErrExit:
Application.EnableEvents = True
End Sub

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

AW: Hallo Sepp,

29.12.2005 07:18:31

CELINE

Du bist der größte Schleifen-Spezialist !
Vielen Dank, funktioniert super !
Gruß, Celine.

Infobox / Tutorial

Eingabe sofort in GROSSBUCHSTABEN umwandeln

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um in Excel kleinbuchstaben automatisch in großbuchstaben umwandeln zu lassen, kannst du den folgenden VBA-Code verwenden. Dieser Code sorgt dafür, dass die Eingaben in einem bestimmten Bereich sofort in GROSSBUCHSTABEN umgewandelt werden.

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu, indem du mit der rechten Maustaste auf "VBAProject (deineDatei.xlsm)" klickst und "Einfügen" > "Modul" wählst.

Kopiere den folgenden Code in das Modul:

Private Sub Worksheet_Change(ByVal Target As Range)
   On Error GoTo ErrExit
   If Not Intersect(Range("A10:X405"), Target) Is Nothing Then
       If Target.Count = 1 Then
           Application.EnableEvents = False
           Target = UCase(Target)
       End If
   End If
ErrExit:
   Application.EnableEvents = True
End Sub

Schließe den VBA-Editor und kehre zu Excel zurück.
Teste die Eingabe in den Zellen A10 bis X405.

Mit diesem Code wird jede Eingabe in den festgelegten Zellen automatisch in großbuchstaben umgewandelt.

Häufige Fehler und Lösungen

Problem: Der Code funktioniert nicht.
- Lösung: Stelle sicher, dass du den Code im richtigen Arbeitsblattmodul eingefügt hast und dass die Makros aktiviert sind.
Problem: Der Code ist zu langsam bei großen Bereichen.
- Lösung: Reduziere den Überwachungsbereich auf die tatsächlich benötigten Zellen oder optimiere den Code, um nur die geänderten Zellen zu berücksichtigen.

Alternative Methoden

Neben der VBA-Lösung gibt es auch andere Möglichkeiten, um text in großbuchstaben umwandeln excel:

Formel: Wenn du die Großschreibung ohne VBA umsetzen möchtest, kannst du die Funktion UPPER() verwenden.

Beispiel:
```
=UPPER(A1)
```
Bedingte Formatierung: Du kannst die bedingte formatierung großbuchstaben verwenden, um die Zellen so zu formatieren, dass sie nur großbuchstaben anzeigen, jedoch wird der tatsächliche Text nicht verändert.
Tastenkombination: Verwende die Shift + F3 Tastenkombination, um die Groß- und Kleinschreibung im Text zu ändern, wenn du Text eingibst.

Praktische Beispiele

Wenn du in Zelle A1 "Hallo Welt" eingibst, wird es in Zelle A1 automatisch zu "HALLO WELT".
Du kannst den VBA-Code auch anpassen, um nur bestimmte Spalten zu überwachen, z.B. Range("B:B"), um nur die Spalte B zu berücksichtigen.

Tipps für Profis

Wenn du häufig mit großbuchstaben arbeitest, kannst du eine benutzerdefinierte Schaltfläche in der Excel-Symbolleiste erstellen, die den VBA-Code ausführt.
Denke daran, regelmäßig Sicherungskopien deiner Excel-Datei zu erstellen, besonders wenn du VBA verwendest.

FAQ: Häufige Fragen

1. Kann ich den Code auch in Excel Online verwenden? Leider sind VBA-Makros in Excel Online nicht verfügbar. Nutze stattdessen die UPPER() Funktion.

2. Wie kann ich nur großbuchstaben zulassen? Du kannst die Excel-Datenüberprüfung nutzen, um sicherzustellen, dass nur großbuchstaben eingegeben werden. Gehe zu "Daten" > "Datenüberprüfung" und stelle die Kriterien entsprechend ein.

Beliebteste Forumthreads (12 Monate)

Eingabe sofort in GROSSBUCHSTABEN umwandeln

Forumthread: Eingabe sofort in GROSSBUCHSTABEN umwandeln

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Eingabe sofort in GROSSBUCHSTABEN umwandeln

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread