Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text trennen

Forumthread: Text trennen

Text trennen
01.06.2006 09:27:29
Gregor
Hallo zusammen
Ein Tabelleblatt-Name besteht aus 2 Wörtern (zB Ankunft Köln). Für die weitere Bearbeitung benötige ich das rechte Wort als Variable (immer Wort nach dem Leerschlag aus dem Blattnamen).
Mit
Name = Sheets(1).Name
erhalte ich logischerweise "Ankunft Köln".
Wie erhalte ich nur den rechten Teil eines zweiteiligen Blattnamens (zB "Köln"), also immer das Wort nach dem Leerschlag
Vielen Dank
Gregor
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text trennen
01.06.2006 09:43:05
achim
Hallo
=rechts(A3;Länge(A3)-(suchen("";A3)))
gruß
achim h.
AW: Text trennen
01.06.2006 09:45:11
UweD
Hallo
so...

Sub Leer()
Dim TB$, Nam$
TB = Sheets(1).Name
Nam = Mid(TB, InStr(TB, " ") + 1)
End Sub

OK?
Gruß UweD
(Rückmeldung wäre schön)
AW: Text trennen
01.06.2006 10:20:06
Gregor
Hallo zusammen
Vielen Dank für die Inputs.
Da ich es für eine VBA-Prozedur benötige, klappt die Lösung von UweD bestens.
Vielen Dank
Gregor
Anzeige
AW: Text trennen
01.06.2006 09:47:18
mtremer
Moin,
sollte der zu trennende Text in der Zelle A1 sein, könnte eine Lösung mit Formels so aussehen:
=TEIL(A1;FINDEN(" ";A1);99)
Viele Grüße
mtremer
AW: Text trennen
01.06.2006 09:51:10
WernerB.
Hallo Gregor,
wie gefällt Dir das?

Sub Gregor()
Dim Name As String
Name = Sheets(1).Name
If InStr(Name, " ") > 0 Then
Name = Right(Name, Len(Name) - InStr(Name, " "))
End If
MsgBox Name
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: Text trennen
01.06.2006 10:39:21
Gregor
Hallo WernerB
Auch dein Vorschlag klappt bestens, vielen Dank.
Gruss Gregor
;

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