inhalte merherer Zellen in einer Zelle zusammen fü
Manfred
Ich habe eine Tabelle in der steht in der Spalte B ab B2 der Vorname und in der Spalte D ab D2 der Vorname.
Ich möchte nun, dass in der Spalte E ab E2 diese Werte in der Form Nachname, Vorname zusammenin _ einer Zelle aufgeführt werden. Es soll also solange in Spalte B geprüft werden bis eine Leere Zelle kommt. Lässt sich das machen ? Ich habe mal ein Makko aufgezeichnet. Das füllt aber leider immer nur die Gleiche Zelle?
Sub Makro4()
' Makro4 Makro
Range("D4").Select
Selection.Copy
Range("E4").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("E4").Select
ActiveCell.FormulaR1C1 = "Anweiler, "
With ActiveCell.Characters(Start:=1, Length:=10).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("B4").Select
ActiveCell.FormulaR1C1 = " Christian"
With ActiveCell.Characters(Start:=1, Length:=10).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("E4").Select
ActiveCell.FormulaR1C1 = "Anweiler, Christian"
Range("F4").Select
End Sub
Anzeige