Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Moe23617 vom 14.05.2020, 16:57 Options

Schleife für Nameliste

Hi!

Ich beschäftige mich gerade nen bißchen mit Excel-Makros...habe also nur minimal Ahnung davon und bin gerade auf ein Problem gestoßen.

Ich habe eine Liste mit Namen (Nachname und Vornahme) die in den Feldern B2 und D2 beginnen.
Jetzt will ich allerdings, dass diese in Feld A2 übernommen werden mit der Aufteilung: Nachname, Name
Die soll für alle Felder geschehe also A2 A3 A4 usw...
Hat dazu jemand einen kurzen Code?

Vielen Dank

Antwort schreiben

Antwort 1 von rainberg vom 14.05.2020, 17:18 Options

Hallo,

kopiere folgenden Code in den Codebereich der betreffenden Tabelle.

Option Explicit

Sub verketten()
   Dim rngC As Range, rngBer As Range
   Set rngBer = Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row)
   For Each rngC In rngBer
      rngC.Offset(0, -1).Value = rngC.Value & ", " & rngC.Offset(0, 2).Value
   Next
End Sub

Gruß
Rainer

Antwort 2 von Moe23617 vom 14.05.2020, 17:41 Options

Hi!

Habe auch noch eine Lösung gefunden:

A1=B1&""&C1

Zwischen die "" können beliebige zeichen gesetzt werden.
Für Namenstrennung z.B. ",_"

gruß Moe

Antwort 3 von rainberg vom 14.05.2020, 18:26 Options

Hallo Moe,

das hätte ich Dir auch sagen können, aber Du hast ja ausdrücklich einen Code verlangt, da Du Dich mit Makros beschäftigst.

Hoch lebe der Papierkorb:-(

Gruß
Rainer

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken