Problem mit Formelanpassung
23.11.2006 21:15:13
Mister
ich habe aus dem Forum folgendes Makro gefunden das den Inhalt eines ComboBoxs alphabetisch sortiert (Dank an Sepp). Es funktioniert Prima nur ich muss das Makro ein Bißchen verändern, was mir bisher nicht gelungen ist. Hier ein Auszug mir dem Problembereich
Sheets("Normal").Range("C6:C550").Copy
Set wksTemp = Worksheets.Add
With wksTemp
.Paste
.Columns("A:A").Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
.Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range( _
"B1"), Unique:=True
myList = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
.Delete
End With
Ich möchte aus dem Sheet("Normal") den Bereich C6:D550 kopieren und in das temporäre WS einfügen. Die beiden Spalten sollen aber zusammengefügt und durch ein Komma getrennt werden. Also in Spalte C stehen Nachnamen, in Spalte D stehen Vornamen und diese im Format Nachname, Vorname sollen in das temp WS in Spalte A kopiert werden
Wer weiß Rat?
Gruß
Mister B