Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1328to1332
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

Anzeige
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

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

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

303 Forumthreads zu ähnlichen Themen

Zählen E-Mailadressen in einer Zeile
Enjoy82

Guten Morgen,
ich hab in die Zelle A1 einen rießigen E-Mail Verteiler kopiert und möchte nun die Anzahl der E-Mail Adressen wissen.
Mit Zählenwenn kam ich nicht wirklich weiter (wollte die @s zählen) -- Formel spuckt 0 aus
Nach jedem Beistrich einen Zeilenumbruch machen, ist mir noc...
27.08.2008 08:59:00
Thread-ID: 1004969
3 Beiträge
Anzeige
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
eMail-Adressen auf Syntax prüfen
Selter

Hallo,
kann ich in XLS auf einfache Weise eine Liste von Adressen auf Korrektheit hinsichlich Syntax prüfen?
In der Liste gibt es u.a. Umlaute etc.
Vielen Dank
Selter
17.02.2009 15:20:00
Thread-ID: 1051513
7 Beiträge
Anzeige
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
Userform Textbox soll E-Mail Adresse anzeigen
Winfried

Hallo,
ich habe folgende Probleme: In einer Userform werden Adressen erfasst und in einer Tabelle gespeichtert. Die E-Mail Adressen werden nicht als Link erfasst, auf dem Tabellenblatt stehen sie auch nicht als Link. Wie muss ich den Code der Textbox ändern damit die E-Mail Adressen als Lin...
14.04.2010 17:39:26
Thread-ID: 1151809
4 Beiträge
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
6
2
6
4
4
2
8
3
2
2
4
9
2
7
1
3
3
1
3
1
2
1
1
2