Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
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
1328to1332
1328to1332
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vorname Nachname tauschen VBA

Forumthread: Vorname Nachname tauschen VBA

Vorname Nachname tauschen VBA
19.09.2013 15:47:04
Hans
Hallo liebe Forumsteilnehmer(innen),
ich würde gerne in einer Tabelle in einem Feld den Vornamen und Nachnamen tauschen.
Die Werte stehen in Spalte M.
Mit folgender Formel
=TEIL(M3;FINDEN(" ";M3)+1;99)&", "&LINKS(M3;FINDEN(" ";M3)-1)
erhalte ich als Ergebnis
Nachname, Vorname.
Ich möchte das jetzt gerne als VBA haben, jeweils bis zum Tabellenende.
Also ersetze direkt in Spalte M die Werte bis zum Ende der Tabelle.
Hat jemand einen Tipp dazu. Vielen Dank!
VG Hans

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vorname Nachname tauschen VBA
19.09.2013 16:09:48
Florian
Hallo Hans,
ungetestet, aber die Richtung sollte stimmen:
Sub namen_tauschen()
Dim Pos1, lReihe, n As Integer
Dim name, vorname, nachname As String
lReihe = Range("M65536").End(xlUp).Row
For n = 1 To lReihe
name = Cells(n, 13)
Pos1 = InStr(1, name, " ", 0)
vorname = Left(name, Pos1 - 1)
nachname = Right(name, Len(name) - Pos1)
Cells(n, 13) = nachname & " " & vorname
On Error Resume Next
Next n
End Sub
Gruß
Flo

Anzeige
AW: Vorname Nachname tauschen VBA
19.09.2013 16:19:11
Hans
Hallo Flo,
schon mal besten Dank!
Ich erhalte beim Aufruf folgenden Fehler:
Laufzeitfehler 5 Ungültiger Prozeduraufruf
in der Zeile: vorname = Left(name, Pos1 -1)
VG Hans

AW: Vorname Nachname tauschen VBA
19.09.2013 16:09:52
Florian
Hallo Hans,
ungetestet, aber die Richtung sollte stimmen:
Sub namen_tauschen()
Dim Pos1, lReihe, n As Integer
Dim name, vorname, nachname As String
lReihe = Range("M65536").End(xlUp).Row
For n = 1 To lReihe
name = Cells(n, 13)
Pos1 = InStr(1, name, " ", 0)
vorname = Left(name, Pos1 - 1)
nachname = Right(name, Len(name) - Pos1)
Cells(n, 13) = nachname & " " & vorname
On Error Resume Next
Next n
End Sub
Gruß
Flo

Anzeige
AW: Vorname Nachname tauschen VBA
19.09.2013 16:14:21
Rudi
Hallo, 
Sub aaa()
Dim rngC As Range, Tmp, str, i
Application.ScreenUpdating = False
For Each rngC In Range(Cells(2, 13), Cells(Rows.Count, 13).End(xlUp))
Tmp = Split(rngC)
str = Tmp(UBound(Tmp)) & ", "
For i = 0 To UBound(Tmp) - 1
str = str & Tmp(i) & " "
Next
str = Left(str, Len(str) - 1)
rngC = str
Next
End Sub

Gruß
Rudi

Anzeige
AW: Vorname Nachname tauschen VBA
19.09.2013 16:22:15
Hans
Hallo Rudi,
auch dir besten Dank!
Bei dem Code erhalte ich den Fehler "Index ausserhalb des gültigen Bereichs"
Hast du da noch einen Ratschlag?
VG Hans

AW: Vorname Nachname tauschen VBA
19.09.2013 16:35:09
Rudi
Hallo,
dann gibt es in der Zelle nur 1 Wort, also kein Leerzeichen.
Gruß
Rudi

AW: Vorname Nachname tauschen VBA
19.09.2013 16:48:58
Hans
Hallo Rudi,
me culpa
Ich habe gesehen was ich falsch gemacht habe. Dein Code passt super. Ich hatte einen Fehler
in meiner Tabelle. sorry und vielen Dank nochmal.
VG Hans

Anzeige
in einem Rutsch..
19.09.2013 16:42:00
CitizenX
Hi,

Option Explicit
Sub wechseln()
Dim regex As Object: Set regex = CreateObject("vbscript.regexp")
Dim arr, out, myRange As Range
Set myRange = Range(Cells(2, 13), Cells(Rows.Count, 13).End(xlUp))
arr = Join(Application.Transpose(myRange), "#")
With regex
.ignorecase = True
.Global = True
.Pattern = "([a-zäüöß]+)\s([a-zäüöß]+)"
out = .Replace(arr, "$2,$1")
out = Application.Transpose(Split(out, "#"))
End With
myRange = out
End Sub
Grüße
Steffen

Anzeige
AW: in einem Rutsch..
19.09.2013 16:48:08
Hans
Hallo Steffen,
super vielen Dank funktioniert einwandfrei.
VG Hans

AW: Vorname Nachname tauschen VBA
19.09.2013 17:23:20
KlausF
Und noch einer:
Sub VornameNachname()
Dim lngLast As Long
lngLast = Range("M65536").End(xlUp).Row
'Bereich Spalte P anpassen
Range("P3:P" & lngLast).FormulaLocal = "=TEIL(M3;FINDEN("" "";M3)+1;99)&"", ""&LINKS(M3;FINDEN(" _
" "";M3)-1)"
Range("P3:P" & lngLast).Value = Range("P3:P" & lngLast).Value
End Sub
Gruß
Klaus
Anzeige
;

Forumthreads zu verwandten Themen

Email Ergänzing, Adresse CC
Karel

Hallo Forum,
habe in diese Forum unterstehende Email VBA code gefunden.
AUF tabelleblatt Mailadresse stehn ab A2 sten untereinander alle Emailadresse
Wie kann ich Emailadresse als CC genau so abfragen auf Tabelleblatt mail adressen ab Zelle C2
Option Explicit
Sub Serien_E...
23.10.2008 19:45:00
Thread-ID: 1018786
7 Beiträge
Email Hyperlinke mit Betreff aus Dateiname&Registe
Patrick

Hallo miteinander
Ich versuche von der Excel Tabelle eine Email über einen Email Hyperlink zu starten. Diese Email soll automatisch im Betreff den Dateinamen der Exceltabelle und den Namen des aktiven Tablellenblattes/Registers enthalten.
Geht das und wie heisst der Hyperlink dazu ?
...
07.12.2008 15:18:33
Thread-ID: 1030869
3 Beiträge
Datei-Namen ändern bei E-Mail-Versand aus Excel
Herbert

Hallo,
kann ich einen Datei-Namen ändern wenn ich sie aus Excel heraus per E-Mail versende und wenn ja wie bitte?
Vielen Dank im Voraus!
Herbert
09.05.2009 11:31:27
Thread-ID: 1074052
5 Beiträge
Email-Adresse automatisch
Tom

Hallo,
mit folgendem Makro wird die aktuelle Mappe per Email versandt.
Wie kann ich erreichen, dass in der Empfängerzeile (An) max.mustermann@musterfirma.de und im Betreff Ihr Auftrag steht
Sub Makro3() Application.Dialogs(xlDialogSendMail).Show End Sub Danke vorab
TOM
01.11.2009 17:30:03
Thread-ID: 1113673
3 Beiträge
Emailadresse auslesen
Tina

Guten Morgen,
in Zelle A1 steht:
achim.bode;achim.boede@vvv.de;
in B1 soll daraus
achim.boede@vvv.de
werden.
Wie geht das per Formel?
Lieben Dank
Gruss Tina
08.04.2010 07:31:20
Thread-ID: 1150565
9 Beiträge
Anzeige
E-Mail Adresse hat keinen Hyperlink VBA
andreas

Hallo zusammen,
ich habe hier einen kleinen Code, damit übertrage ich Werte aus einem Formular in eine externe Tabelle.
Wert in Textbox9 ist immer E-Mail Adresse.
Das auslesen funktioniert problemlos, nur hat die Mail-Adresse in der externen Tabelle den Hyperlink nicht.
Da muss...
09.06.2010 11:56:51
Thread-ID: 1161016
3 Beiträge
VERKETTUNG email-Adressen f.Lotus
nosp52

Hallo
vermutlich für einen Excel-Experten nur ein kleines Problem.
Ich bekam eine Excel-Datei mit ca 1000 Zeilen,5 Spalten, u.a. enthält eine Spalte zeilenweise jeweils die e-mail-adresse einer Person. Nun sollen zur Verteilung eines Rundschreibens per lotus-mail, alle e-mail-Adressen v...
16.06.2010 09:25:15
Thread-ID: 1162089
3 Beiträge
Bereich in e-mail Adresse nach @ wiedergeben
Thorsten

Hallo,
gibt es eine Formel, welche mir den Bereich einer e-mail Adresse nach dem @ zurück gibt?
Die E-mail Adressen sind natürlich unterschiedlich lang
Bsp: t.voland@intime-pos.de soll nachher nur intime-pos.de rausgeben.
Danke für die Hilfe
Thorsten
18.03.2011 20:33:26
Thread-ID: 1206425
8 Beiträge
Emailadresse zusammensetzen aus Auflistung
Karin

Guten Abend!
Ich brüte schon seit Stunden über folgendem Problem:
An eine Liste von Standard Emailadressen (Aufbau: Markt.xx@firma.de" soll eine Email mit jeweils einer speziellen entsprechenden Datei im Anhang ("10xx.pdf") gesandt werden.
Kann ich per For Each ... Next die Marktnum...
06.04.2011 22:07:11
Thread-ID: 1209400
2 Beiträge
E-mail von Excel automatisch generieren
Excel

Hallo,
Ich möchte Excel automatisch eine Mail erstellen lassen, zu einem Zeitpunkt der x Tage vor einem Termin liegt der in einer bestimmten Zelle definiert ist (noch besser wäre immer am Freitag in der Vorwoche) und versendet wird an Empfänger die auch in definierten Zellen stehen. Das gan...
09.06.2011 16:02:38
Thread-ID: 1217871
2 Beiträge
email adressen aus einer excel tabelle in mail via
dirk82

hallo zusammen,
ich hoffe, ihr könnt mir helfen. ich habe folgendes problem:
ich habe einige e-mail adressen in einer excel tabelle stehen. über ein makro erzeuge ich eine e-mail mit einem anhang (das hab ich schon geschafft). nun weiß ich zwar, wie diese email einem empfänger zugeordne...
25.07.2011 22:20:17
Thread-ID: 1223592
2 Beiträge
Keine doppelten Mailadressen bei Mailerstellung
Stefan

Hallo zusammen,
ich brauch mal wieder Eure Hilfe. Ich hab durch dieses Forum einen Code bekommen und diesen etwas angepasst. Nun habe ich aber ein Problem und komme nicht mehr weiter, da meine VBA Kenntnisse leider zu gering sind.
Mit dem Makro wird eine Mail erstellt. Dazu durchsucht e...
03.08.2011 22:36:09
Thread-ID: 1224772
3 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