Live-Forum - Die aktuellen Beiträge
Datum
Titel
08.11.2025 06:12:31
Automatisierte Grafische Lösung -Preisvergleich/ Ersparnis
07.11.2025 12:58:46
Fehlersuche Ereignismakro
07.11.2025 12:34:41
Datum aus Blatt- und Dateinamen bilden.
07.11.2025 12:01:16
Summewenn, Indirekt und eine zusätzliche Bedingung
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
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vor- und Nachnamentrennung

Forumthread: Vor- und Nachnamentrennung

Vor- und Nachnamentrennung
04.09.2006 13:51:41
Christian
Hallo Leute,
nachdem ich heute schon die Trennung von Vor- und Nachnamen mit einer Excel-Formel dank erges und UweD hinbekam, frage ich mich ob ich das auch in VBA hinbekomme.
Situation: Spalte A = Nachname, Vorname
gewünscht: Spalte A = Nachname und Spalte B = Vorname ohne Komma und erstes Leerzeichen
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Vor- und Nachnamentrennung
04.09.2006 13:57:54
Holger
Hallo Christian,
"frage ich mich ob ich das auch in VBA hinbekomme"
was ist die Frage ans Forum?
Dein VBA-Level vorhin war noch "VBA nur mit Recorder".
Holger
AW: Vor- und Nachnamentrennung
04.09.2006 14:03:31
ChrisL
Hallo Christian
Antwort auf Frage: JA
Aber ich will mal nicht so sein ;-)
Sub test()
Const strName = "Meierhans, Hans Peter"
MsgBox "Vorname: " & SplitName(strName, True)
MsgBox "Nachname: " & SplitName(strName, False)
End Sub 

Private Function SplitName(sName As String, bVorNach As Boolean) As String
If bVorNach = False Then
SplitName = Left(sName, InStr(sName, ",") - 1)
Else
SplitName = Right(sName, Len(sName) - InStr(sName, ","))
If Left(SplitName, 1) = " " Then SplitName = Right(SplitName, Len(SplitName) - 1)
End If
End Function

Gruss
Chris
Anzeige
;

Forumthreads zu verwandten Themen

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
Vor und Nachnamen trennen
Thorsten_Z

Moin liebes Forum,
stehe im Moment auf dem Schlauch...
In A1 steht ein Name. Nehmen wir mal Hans Herber
in B1 soll nun der Vorname und
in C1 der Nachname stehen.
Wie bekomme ich das hin? Die Formel für Name aus Email von excelformeln.de hat mir fast weiter geholfen. aber eb...
15.02.2009 15:18:00
Thread-ID: 1050889
6 Beiträge
Max.Wert mehrerer Werte in einer Zelle
Peter

Hallo Forum,
wer kann helfen?
In einer Zelle sind (5 numer. Werte) gespeichert und duch ein
Semikolon getrennt. Die Zelle kann auch Leerstrings enthalten.
z.B. 4;33;;52;12
Ich möchte den max. Wert an die Textbox 'TxtAltKWo1'
übergeben.
Danke Peter
'Zellinhalt (5...
07.11.2009 20:59:50
Thread-ID: 1115285
3 Beiträge
Inhalt von mehreren Textboxen in einer Zelle speic
mehreren

Hallo Forum,
ich möchte per VBA den Inhalt von mehreren Textboxen in einer Zelle speichern.
(mit Semikolon getrennt)
Da gibt es bestimmt eine bessere Lösung als:
Wer kann helfen?
Cells(1,1).value=TextBox1.text & „;“ & TextBox2.Text……….
Danke Peter
08.11.2009 19:48:16
Thread-ID: 1115412
2 Beiträge
Anzeige
Inhalt mehrerer Zellen in einer Zelle vereinen
flo

Hallo zusammen,
ich habe folgendes Problem:
Ich habe in einer Spalte viele Zellen mit Text. Die gesamten Zellen möchte ich nun in einer Zelle vereinen.
Weiß zufällig jemand wie ich das mache? Wenn ich die Zellen nur verbinde klappt das nicht, da die Inhalte dann gelöscht werden?!
01.02.2010 15:43:48
Thread-ID: 1134874
6 Beiträge
String Pfad Name und Dateiname trennen
chris

Hallo VBA Profis,
bitte um Hilfe.
Ich brings einfach nicht alleine hin ;(
Ich bekomme mit unten gezeigter anweißung in cb den String mit Dateinamen und Pfad.
Wie kann ich diesen jetzt trennen einmal msgbox path und einmal msgbox Dateiname
cb = Application.GetOpenFilename
...
08.04.2010 14:27:21
Thread-ID: 1150669
2 Beiträge
Straßennamen und Nr. trennen
RoB

Moin moin liebe Leute!
Ich habe ich einer Spalte etliche Straßennamen samt Hausnr. aufgelistet. Wie aus dem Betreff schon zu entnehmen ist, möchte ich nun die Str.namen und die Nr. jeweils in zwei Spalten sortieren. Klar dachte ich da an die klassische Lösung:
=LINKS(A14;SUCHEN(" ";A14;...
10.06.2010 14:16:03
Thread-ID: 1161252
7 Beiträge
Mehrere kriterien in einer Zelle
Gallier1

Hallo
habe folgendes problem:
A1 =WENN(UND(A8=O$1;T8<=10000;U8<=10000;<b>C8="C"oder"B"oder"A</b>");O$3;"")
Der Fett dargestellte Bereich stimmt nicht in meiner Formel. Ohne diesem Bereich funktioniert sie problemlos (Dank des UMFANGREICHEN Forums) In C8 gibt es...
11.08.2010 16:15:53
Thread-ID: 1171752
11 Beiträge
Vorname und Nachname trennen
Klaus W.

Hallo,habe folgendes Problem. Ich habe eine Namensliste mit folgender Schreibweise: Mustermann, Hans oder Schlosser, Robert .....
Diese Namen stehen in der Spalte "A". Ich möchte nun, dass Nachname und Vorname getrennt in den Spalten "B" und "C" stehen. Wie kann ich das automatisieren?Für Hi...
03.05.2002 12:22:25
Thread-ID: 118177
4 Beiträge
Anzeige
mehrere werte in einer Zelle
knab

Hallo,
ich würde gerne in einer Zelle Ergebnisse aus mehreren zellen zusammenfassen.
Beispiel:
a1 = 30
a2= 40
a3 = 50
Ziel ist jetzt a4. Hier soll stehen 30,40,50
geht das und kann mir jemand die Formel hierfür geben.
Vielen Dank
16.09.2010 10:44:09
Thread-ID: 1178021
4 Beiträge
Anzeige
Mehrere Code in einer Zelle
Gregor

Hoi zäme
Folgender Code hat mir Rudi zum löschen von Zeilen zugestellt, wenn in Zellen Code nicht vorhanden:
AnfangInput = 1600
EndeInput = 1800
For z = 10 To intLastRow - 1
Set rngW = Union(Range(Cells(z, 18), Cells(z, 21)), Range(Cells(z, 23), Cells(z, 27)))
If Applica...
11.10.2011 11:45:52
Thread-ID: 1233309
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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