Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.10.2025 18:18:42
Anzahl in einer Zelle automatisch ermitteln
04.10.2025 17:44:54
Power Query - Filtern einer Spalte mittels einer Liste
04.10.2025 15:35:03
Range um eine Einzelzelle erweiternerweitern
04.10.2025 14:27:49
Was ist mit dem CEF Forum passiert?
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1640to1644
1640to1644
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zweites Wort in einer Zelle in GROSSBUCHSTABEN

Forumthread: Zweites Wort in einer Zelle in GROSSBUCHSTABEN

Zweites Wort in einer Zelle in GROSSBUCHSTABEN
07.09.2018 11:36:04
Michael
Hallo zusammen,
ich benötige ein Makro welches in einer Zelle das zweite Wort immer in Grossbuchstaben ausgibt. Es soll Vorname NACHNAME ausgegeben werden.
Quasi das Wort nach dem Leerzeichen in GROSS. Hat hier jemand etwas für mich? :)
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zweites Wort in einer Zelle in GROSSBUCHSTABEN
07.09.2018 11:52:55
UweD
Hallo
in ein Modul
Sub GROSSbuchstaben()
    Dim i As Long, Sp As Integer, z1 As Integer, LR As Long, TB, Pos As Integer
    
    Set TB = Sheets("Tabelle1")
    Sp = 1 'Spalte A 
    
    z1 = 1 'ggf wegen Überschrift 
    
    LR = TB.Cells(TB.Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte 
    
    For i = z1 To LR
        Pos = InStr(TB.Cells(i, Sp), " ")
        If Pos > 0 Then
            TB.Cells(i, Sp + 1) = Left(TB.Cells(i, Sp), Pos) & UCase(Mid(TB.Cells(i, Sp), Pos + 1))
        End If
    Next
End Sub

LG UweD
Anzeige
AW: Zweites Wort in einer Zelle in GROSSBUCHSTABEN
07.09.2018 11:53:03
Rudi
Hallo,
als Anrgung 
Function KleinGROSS(DerText As String)
Dim tmp
tmp = Split(DerText, " ")
tmp(0) = WorksheetFunction.Proper(tmp(0))
tmp(1) = UCase(tmp(1))
KleinGROSS = Join(tmp, " ")
End Function
Gruß
Rudi
AW: Zweites Wort in einer Zelle in GROSSBUCHSTABEN
07.09.2018 11:57:55
EtoPHG
Hallo Michael,
....und wieso ein Makro?
1. würde ich solche Zellinhalte mit Text-in-Spalten aufteilen das erleichert solche Aufgaben ungemein.
2. und sonst halt mit Formelkonstrukten wie =LINKS(A1;FINDEN(" ";A1))&GROSS(RECHTS(A1;LÄNGE(A1)-FINDEN(" ";A1)))
3. und die Formelergebnisse ggf. als Inhalte über die Ursprungszellen kopieren.
Gruess Hansueli
Anzeige
AW: Zweites Wort in einer Zelle in GROSSBUCHSTABEN
07.09.2018 12:19:07
Michael
Danke UweD funktioniert prima. Man muss es jedoch immer anstoßen das Script, schön wäre es wenn es bereits bei / nach der Eingabe automatisch geschieht.
@Rudi Maintaire: Danke aber da ich null Kenntnisse in VBA besitze bringt mir die Anregung leider auch nichts. :)
@EtoPHG: Die Namen werden Copy&Paste eingefügt, darum in einer Zelle. Ansatz gefällt mir sehr gut, nur hat deine Formel bei mir jetzt nicht funktioniert.
Anzeige
Was hat nicht funktioniert?
07.09.2018 12:54:54
EtoPHG

AW: Was hat nicht funktioniert?
07.09.2018 12:58:17
UweD
Hallo
automatisch beim Zellen ändern...
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- dieses Makro dort reinkopieren
Microsoft Excel Objekt Tabelle1 
Option Explicit 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
    On Error GoTo Fehler 
    Dim RNG As Range, Z, Pos As Integer 
     
    Set RNG = Columns("A") 
    If Not Intersect(RNG, Target) Is Nothing Then 
        For Each Z In Intersect(RNG, Target) 
            Pos = InStr(Z.Value, " ") 
            If Pos > 0 Then 
                Application.EnableEvents = False 
                Z.Value = Left(Z.Value, Pos) & UCase(Mid(Z.Value, Pos + 1)) 
            End If 
        Next 
    End If 
Fehler: 
    Application.EnableEvents = True 
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear 
End Sub

LG uweD
Anzeige
AW: Was hat nicht funktioniert?
07.09.2018 13:10:17
Michael
@EtoPHG: Hab in Zeile A1 einen Vor- und Nachnamen geschrieben und versucht deine Formel 1:1 einzusetzten. Es wird dann "0" ausgegeben.
@UweD: Klappt leider nicht, Fehler im Makro. https://www.herber.de/bbs/user/123825.xlsm
AW: Was hat nicht funktioniert?
07.09.2018 13:24:25
UweD
Hi
du hast die Fehlerbehandlung 2x drin
nach dem ersten End Sub löschen
Userbild
LG UweD
Anzeige
AW: Was hat nicht funktioniert?
07.09.2018 13:50:23
Michael
Läuft trotzdem nicht.
Userbild
AW: Was hat nicht funktioniert?
07.09.2018 14:04:46
UweD
Option Explicit muss ganz oben stehen.
schmeiss alles raus und kopiere nur das hier in den Codebereich der Tabelle
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fehler
    Dim RNG As Range, Z, Pos As Integer
     
    Set RNG = Columns("A:D") 'der Bereich, in dem Änderungen abgearbeitet werden sollen / hier A:D 
    
    If Not Intersect(RNG, Target) Is Nothing Then
        For Each Z In Intersect(RNG, Target)
            Pos = InStr(Z.Value, " ")
            If Pos > 0 Then
                Application.EnableEvents = False
                Z.Value = Left(Z.Value, Pos) & UCase(Mid(Z.Value, Pos + 1))
            End If
        Next
    End If
Fehler:
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub

LG UweD
Anzeige
AW: Was hat nicht funktioniert?
07.09.2018 14:10:19
Michael
Perfekt @UweD ... vielen Dank. :)
@EtoPHG: Ich habe ein deutsches Excel. ;) Aber danke für deine Hilfe, hat sich jetzt eh erledigt. Schönes Wochenende euch.
Formel funktioniert...in deutschem Excel! (owT)
07.09.2018 14:08:06
EtoPHG

;

Forumthreads zu verwandten Themen

Letzte gefüllte Zeile in einem Feld anzeigen
Hendrik

Hallo zusammen,
bei einer Exceltabelle, die aus ca. 40 freien Zeilen besteht, die sich über die Zeit füllen, soll in Zeile 41 immer die Zahl der letzten gefüllten Zeile angezeigt werden.
Ist das möglich?
Danke im voraus!
Hendrik
28.08.2008 18:36:42
Thread-ID: 1005564
4 Beiträge
Zwei Dinge in einer Zelle
Sabine

Hallo,
ich möchte ein Problem mit Excel Formeln und ohne VBA lösen.
Es gibt drei Spalten: Datum1, Zweck, Datum 2
Wenn in Zweck in einer Spalte das Wort "Show" eingetragen wird, soll in Datum 2 in der entsprechenden Zeile stehen "Bitte nennen Sie ein Verwendungsdatum". Das kriege ich...
29.08.2008 15:25:00
Thread-ID: 1005860
2 Beiträge
Zelleninhalt (Text) in 2 Spalten teilen
El.

Hallo!
Habe eine Spalte in der Artikelname und Artikelmerkmale, durch drei Punkte getrennt "...", zusammen stehen. Beispiel: Lecker Whisky 21 Jahre ... Lieferung in hochwertiger Schatulle
Wie krieg ich nun den Text links der Punkte in eine extra Spalte und rechts der Punkte in eine extr...
03.09.2008 16:35:00
Thread-ID: 1007155
4 Beiträge
Tasten während der Eingabe in einer Zelle abfragen
Arthur

Hallo.
Wie kann man in Excel auf die Eingabe in einer Zelle schon beim Tastendruck reagieren?
Beispiel: Schon während der Eingabe von Werten soll reagiert werden. Bspw. ist eine fünfstellige Bestelnummer einzutragen. Nachdem fünf Ziffern eingetragen sind soll automatisch in die nächste...
22.10.2008 11:44:52
Thread-ID: 1018286
4 Beiträge
Zahl 1 bis 7 nur in Zelle eintragen dürfen
Korl

Hallo,
ich möchte in einem Zellbereich z.B. "B7:BI103" in den jeweiligen Zellen nur die Zahlen von "1 bis"7 eintragen dürfen und sofort den Cursor in der jeweiligen Zeile um eine Zelle nach rechts setzen lassen ohne "Enter" tippen zu müssen.
Den Bereich könnte ich mit Gültigkeitskriteri...
17.11.2008 19:55:00
Thread-ID: 1025380
8 Beiträge
mehreren Zellen in einer Zelle mit Absätzen
Christian

1. Ist es möglich, die markierten Zeilen von Screenshot 1 per Formel/Makro so zu übernehmen, das diese wie in Screenshot 2 übernommen werden? Solche Felder kommen aber öfters und auch mit einzelnen Zeilen dazwischen vor. Die Formatierung (bei Zahlen mit ,00 soll ein langer Strich stehen) sollte...
28.11.2008 15:53:49
Thread-ID: 1028725
3 Beiträge
Anzeige
mehrere Zellen in einer Zelle mit Absätzen II
Christian

Hi
Wir brauchen etwas ähnliches wie in diesem Script von Daniel (der uns schon sehr weitergeholfen hat!):
https://www.herber.de/bbs/user/57225.xls
Zeilen sollen zusammengefasst werden, wenn die Bezeichnung in Spalte A und B gleich sind (siehe Screenshots).
https://www.herber.de...
05.12.2008 15:47:00
Thread-ID: 1030485
7 Beiträge
hochzählen in einer Zelle
Tobias

Guten Morgen zusammen,
ich möchte in einer Zelle einen Wert "hochzählen" lassen. Also z.B. in Zelle A1 soll jeweils alles zusammen addiert werden was in Zelle B1 eingegeben wurde.
Ich hoffe das ist einigermaßen verständlich...
Vielen Dank im Voraus für Eure Tipps!
20.12.2008 10:26:00
Thread-ID: 1034350
12 Beiträge
Schriftfarben in Zellen
Ulli

Hallo Zusammen,
beim letzen mal wurde mir sehr schnell, sehr kompetent und sehr freundlich geholfen. Dafür möchte ich mich nochmals bedanken.
Hier mein Problem: Ich habe eine Tabelle mit verschiedenen Farben in einer Zelle. Diese Farben entsprechen jedoch nicht den originalen Schriftfar...
19.01.2009 07:57:00
Thread-ID: 1041313
5 Beiträge
zählen bestimmter Zeichen in einer Zelle
Georg

Hallo Excel Welt,
wie kann ich die Anzahl bestimmter Zeichen (z.B. Kommas) in einer Zelle zählen?
Beispiel:
A2 = 12, 34, 2, 134
B2 = 3 (es sind drei Kommas in der Zelle A2) = dafür benötige ich die Lösung
Oder kann ich die Anzahl der (durch Kommas getrennten) Zahlen direkt...
21.01.2009 16:03:36
Thread-ID: 1042267
6 Beiträge
mehrere Zellen in einer einfügen
Claus

Hallo,
wie kann ich per Makro die Eingaben einiger Zellen in einer andere kopieren? Beispiel
A1 = 1,
A2 = 2,
A3 = 3,
A4 = 4,
A5 = 5,
Ergebnis sollte in B1 stehen und müsste wie folgt lauten 1,2,3,4,5,
Die Anzahl der A Zeilen ist nich fix. Fängt immer bei A1...
27.01.2009 18:00:00
Thread-ID: 1044333
2 Beiträge
Anzeige
Wörterabstand in einer Zelle
Anja

Hallo Allerseits!
Ich möche einen Vor- und Zunamen in einer Zelle formatieren. Kann man den Abstand der untereinanderstehenden Wörter verändern?
Beispieldatei ist im Anhang.
https://www.herber.de/bbs/user/58883.xls
DANKE im Vorraus für Holfe.
Gruß ANJA
29.01.2009 09:13:00
Thread-ID: 1044800
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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