Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Nur Erster Buchstabe in Zelle groß

Nur Erster Buchstabe in Zelle groß
nuernberg@esm-ept.de
Guten Morgen zusammen,
ich bin auf der Suche nach einem Makro mit dem ich den ersten Buchtstaben (nur den ersten) in allen Zellen in einer Tabelle groß machen kann. Ich habe schon im Forum gesucht und habe leider nur Makros gefunden die immer jedes Wort groß anfangen - ich will aber nur das der Erste Buchstaben pro Zelle groß geschrieben wird und die anderen so gelassen werden wie sie sind. Hat jemand schon mal so etwas programmiert oder kann mir das weiterhelfen?
Für alle Hilfe würde ich mich bedanken únd wünsche noch einen schönen Arbeitstag
MFG
Alex
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Nur Erster Buchstabe in Zelle groß
25.11.2010 08:14:56
Hajo_Zi
Hallo Alex,
Option Explicit
Sub Groß1()
'* H. Ziplies                                     *
'* 16.05.07                                       *
'* erstellt von Hajo.Ziplies@web.de               *
'* http://Hajo-Excel.de/
' erster Buchstabe groß, Rest klein
Dim RaZelle As Range
Application.EnableEvents = False                ' Reaktion auf Eingabe aus
Application.ScreenUpdating = False              ' Bildschirmaktualisierung aus
For Each RaZelle In ActiveSheet.UsedRange       ' Schleife über den benutzten Bereich
' Schreibweise ändern entsprechend Vorgabe
RaZelle = UCase(Mid(RaZelle, 1, 1)) + LCase(Mid(RaZelle, 2, Len(RaZelle)))
Next RaZelle
Application.EnableEvents = True                 ' Reaktion auf Eingabe ein
Application.ScreenUpdating = True               ' Bildschirmaktualisierung ein
End Sub

Anzeige
AW: Nur Erster Buchstabe in Zelle groß
25.11.2010 08:49:02
nuernberg@esm-ept.de
Vielen Dank das war ja Super
oder so...
25.11.2010 10:35:18
Luschi
Hallo Alex,
RaZelle.Value = WorksheetFunction.Proper(RaZelle.Value)
Gruß von Luschi
aus klein-Paris
hier mal meine Gadanken dazu ...
25.11.2010 11:21:20
Matthias
Hallo
Zitat:
ich will aber nur das der Erste Buchstaben pro Zelle groß geschrieben wird und die anderen so gelassen werden wie sie sind
Um so weniger kann ich verstehen, das Du mit der Antwort zufrieden bist
In Hajos Beispiel wird zwar der erste Zeichen umgewandelt, aber der Rest wird ebenfalls
alles in Kleinschrift umgewandelt.
Das wolltest Du so (lt. Deiner Fragestellung) aber nicht.
LCase ist also hier falsch
also müsstest Du Hajos Beispiel umschreiben
statt: RaZelle = UCase(Mid(RaZelle, 1, 1)) + LCase(Mid(RaZelle, 2, Len(RaZelle)))
dann: RaZelle = UCase(Mid(RaZelle, 1, 1)) + Mid(RaZelle, 2, Len(RaZelle))
Bsp:
gib in eine Zelle den String ein "haLLo MeIn TEXT" ein.
Ergebnis sollte also sein:
"HaLLo MeIn TEXT"
In den Beispielen von Hajo und Luschi werden auch die anderen Zeichen umgewandelt!
Bei Hajo wird alles ausser der das erste Zeichen groß geschrieben
bei Luschi wird jedes Wort am Anfang groß geschrieben.
Gruß Matthias
Anzeige
ich hatte Hajos Zusatz überlesen ...
25.11.2010 11:46:13
Matthias
Hallo
' Schreibweise ändern entsprechend Vorgabe
Diese auskommentierte Zeile hatte ich überlesen, Sorry
Gruß Matthias
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Erster Buchstabe in Excel-Zelle groß schreiben


Schritt-für-Schritt-Anleitung

Um den ersten Buchstaben jeder Zelle in einer Excel-Tabelle groß zu schreiben, während der Rest der Buchstaben klein bleibt, kannst Du das folgende VBA-Makro verwenden.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul.

  3. Füge den folgenden Code in das Modul ein:

    Option Explicit
    Sub Groß1()
        Dim RaZelle As Range
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        For Each RaZelle In ActiveSheet.UsedRange
            RaZelle.Value = UCase(Mid(RaZelle.Value, 1, 1)) + Mid(RaZelle.Value, 2, Len(RaZelle.Value))
        Next RaZelle
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End Sub
  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Führe das Makro aus, indem Du ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.

Jetzt wird der erste Buchstabe jeder Zelle in der aktiven Tabelle großgeschrieben, während die anderen Buchstaben unverändert bleiben.


Häufige Fehler und Lösungen

  • Problem: Der erste Buchstabe wird groß, aber der Rest wird ebenfalls in Kleinbuchstaben umgewandelt.

    • Lösung: Stelle sicher, dass Du den korrekten Code verwendest. Der Teil LCase sollte entfernt werden, damit der Rest der Zeichen unverändert bleibt.
  • Problem: Das Makro funktioniert nicht auf bestimmten Zellen.

    • Lösung: Überprüfe, ob die Zellen leer oder falsch formatiert sind. Das Makro funktioniert nur auf Zellen mit Text.

Alternative Methoden

Wenn Du keine Makros verwenden möchtest, kannst Du auch die Funktion =PROPER() verwenden, um den ersten Buchstaben jeder Zelle groß zu schreiben. Beachte jedoch, dass diese Methode auch die ersten Buchstaben aller Wörter in einer Zelle großschreibt.

  • Beispiel: =PROPER(A1) wandelt den Text in Zelle A1 um, sodass jeder erste Buchstabe eines Wortes groß wird.

Praktische Beispiele

  1. Beispiel mit VBA: Du hast die Zelle A1 mit dem Text "hallo welt". Nach Ausführung des Makros wird der Text zu "Hallo welt".

  2. Beispiel mit der Funktion: In Zelle A1 steht "hallo welt". Mit der Formel =PROPER(A1) wird der Text zu "Hallo Welt".


Tipps für Profis

  • Verwende das Makro auf einem Arbeitsblatt mit einer großen Anzahl von Zellen, um Zeit zu sparen.
  • Du kannst das Makro anpassen, um nur auf einen bestimmten Bereich zu wirken, indem Du For Each RaZelle In Range("A1:A10") verwendest.
  • Speichere Deine Arbeitsmappe als .xlsm, um sicherzustellen, dass das Makro gespeichert wird.

FAQ: Häufige Fragen

1. Kann ich das Makro auf mehrere Blätter gleichzeitig anwenden? Ja, Du kannst das Makro so anpassen, dass es durch alle Blätter in Deiner Arbeitsmappe iteriert.

2. Was mache ich, wenn ich Excel nicht auf VBA zugreifen kann? Überprüfe, ob Du die richtigen Berechtigungen hast oder ob Deine Excel-Version VBA unterstützt. Du kannst auch die Funktion =PROPER() als Alternative verwenden.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige