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
Anzeige
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 13: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 13: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 13: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 13: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 14: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 14:54:54
EtoPHG

AW: Was hat nicht funktioniert?
07.09.2018 14: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 15: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 15: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 15:50:23
Michael
Läuft trotzdem nicht.
Userbild
AW: Was hat nicht funktioniert?
07.09.2018 16: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 16: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 16:08:06
EtoPHG

Forumthreads zu verwandten Themen

Erstes "Wort" einer Zelle extrahieren
Friedel

Hallo,
ich möchte das erste "Wort" einer Zelle (A8) extrahieren, mit diversen Zellinhalten (4 Beispiele):
156 (2),6 6 7 12 gewünschtes Ergebnis 156
123,456 gewünschtes Ergebnis 123
123,456,34 P gewünschtes Ergebnis 123
56 gewünschtes Ergebnis 56
Ich habe...
23.07.2018 17:26:21
Thread-ID: 1635389
1 Beitrag
Formelierung in Wenn Formel
Robert Pilz
Hallo liebe Exelgemeinde!


Ich bräuchte mal wieder Eure Hilfe.

ich möchte mit einer Wenn Formel wenn in der entsprechenden Zelle als erstes Ablage steht und dann mit entsprechenden Begriffen erweitert werden der Wert 1 ausgegeben wird.

Habe es mit folgender Formel prob...
06.06.2024 19:43:45
Thread-ID: 1980481
4 Beiträge
Bestimmten Text in Zelle finden und Adresse davon ausgeben
AhoiBrause90
Hallo geschätze Excelkenner,

Ich komme seit 2 Tagen auf keine passende Lösung, für folgende Aufgabe:

In Tabellenblatt1 steht ein Text den ich in Tabellenblatt2 finden möchte. Allerdings steht es dort in zwischen anderen Wörtern in einer Zelle.
Wenn ich es dort gefunden habe möc...
04.04.2024 19:36:00
Thread-ID: 1972316
3 Beiträge
Anzeige
Wörter in Text-Zelle finden und ausgeben
Georg

Hallo zusammen,
ich bin auf der Suche nach einer Formel, die es mir erlaubt nach bestimmten Wörtern zu suchen und diese dann entsprechend in der selben Zeile auszugeben.
Meine Datei ist wie folgt aufgebaut:
In Spalte A stehen Nummern, Spalte B enthälte teilweise sehr lange Texte zu...
22.06.2020 17:02:57
Thread-ID: 1767101
2 Beiträge
Replace Funktion
Torsten

Hallo,
ich möchte per VBA einzelne Wörter in einem Text ersetzten, habe mir dafür die Replace-Funktion rausgepickt.
Ein Ausgangstext wird von Zelle A1 nach A2 kopiert und der Text in A1 bleibt im Original erhalten.
In A3 steht das Suchwort “Otto“ und in A4 ein weiteres Suchwort “Max...
11.03.2019 13:45:55
Thread-ID: 1680602
8 Beiträge
VBA Text in Zelle per Eingabe s und Zeilen kopiere
Michael

Hallo zusammen,
vorab, ich bin ganz neu hier und mir bewusst dass jeder etwaige Helfer seine Unterstützung, zunächst, ohne Gegenleistung anbietet. Dafür möchte ich schon jetzt meinen grössten Dank aussprechen.
Nun zur Thematik,
ich bin Projektleiter in einem grossen Unternehmen und...
19.02.2018 14:32:25
Thread-ID: 1609822
4 Beiträge
Anzeige
Wort aus Zelle in Matrix suchen und anderen wert ausgeben
Nikolaus Pfusterschmid
Ich versuche in Tabelle A bei meiner Buchhaltung wiederkehrende Buchungen in einer Zelle zu finden die in einer anderen Tabelle stehen. Da sich in der Zelle immer eine Zahl mit dem Datum befinden kann, soll nur ein bestimmter Wortteil gesucht werden und dann der Text aus einer anderen Zelle ausgewor...
17.10.2023 13:58:53
Thread-ID: 1949907
7 Beiträge
Textsuche: Spalte und Reihe per Formel finden
Maximilian

Hallo,
in der Zelle B2 steht der Text "test".
Mit welchen beiden Formeln kann ich das Wort "test" in der gesamten Tabelle suchen und jeweils einmal Spalte und einmal Zeile der gefundenen Zelle ausgeben?
Ideal wäre es noch, wenn das ganze Groß- und Kleinschreibung ignoriert, aber das...
20.02.2013 12:21:17
Thread-ID: 1300185
9 Beiträge
Datum bzw. "Heute" finden
Eisi

Guten Morgen,
jetzt dachte ich, dass der Code funktioniert, aber leider doch nicht. Bzw. gestern ging er und heute Morgen nicht mehr.
Folgendes:
Ich habe eine Tabelle in der in Zeile 13:13 mit der >Formel =NH13+1 Meine Fensteransicht ist bei Spalte N fixiert.
Ich möchte, dass...
29.12.2020 10:18:08
Thread-ID: 1802328
8 Beiträge
Suchen in Datenbank
siegfried
Guten Morgen Fachfrauen und Männer,
ich habe eine Datenbank mit 12 Spalten und bis zu 2.500 Datensätze.
Ich suche eine Möglichkeit für das SUCHEN nach Text in der Datenbank, es sollte in Spalte B bis D gesucht werden.
Ich habe mal "FINDEN" angeschaut aber leider nicht das Richtige für mi...
11.02.2023 11:10:23
Thread-ID: 1919813
15 Beiträge
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2026 19:23:24
VBA - Blattschutz lässt sich mit Code nicht ausschalten
17.05.2026 13:47:03
Laufende Uhrzeit in einer Zelle
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum