mit dem folgenden Code möchte ich erreichen, dass aus drei Spalten (Postleitzahl, Ort und Ortsteil) der Tabelle "Daten" (also nicht aktives Tabellenblatt)die Daten zusammengefügt werden. Hierzu werden die Daten zunächst in die Hilfsspalten IT-IV kopiert und daraus in die Zwischenablage. Wie kann ich anweisen, dass die Daten dem Sheet "Daten" entnommen werden und was muß ich ändern, damit ich zunächst ein Leerzeichen nach PLZ und Ort einfügen lassen kann. Wie muß ich dann den Code dann ergänzen, damit die zusammengeführten Daten, die sich nun in der Zwischenablage befinden, wiederum in das aktive Blatt (nicht Blatt Daten) Spalte F eingefügt werden. Herzlichen Dank schon jetzt Allen für die Hilfestellung.
Herzliche Grüße
Wolfgang
Private Sub Ort()
Dim PLZ As Range, Ort As Range, Ortsteil As Range, wks As Worksheet
Set wks = ActiveSheet
'PLZ und Ort und Ortsteil in Spalte F eintragen
Set PLZ = wks.Range(Cells(3, "N"), Cells(wks.UsedRange.Row + wks.UsedRange.Rows.Count - 1, "N"))
Set Ort = wks.Range(Cells(3, "L"), Cells(wks.UsedRange.Row + wks.UsedRange.Rows.Count - 1, "L"))
Set Ortsteil = wks.Range(Cells(3, "M"), Cells(wks.UsedRange.Row + wks.UsedRange.Rows.Count - 1, "M"))
'Zellinhalte in anderen Tabellenbereich übertragen
Sheets("Daten").Activate
Range(Cells(3, "IT"), Cells(wks.UsedRange.Row + wks.UsedRange.Rows.Count - 1, "IT")).Value = PLZ.Value
Range(Cells(3, "IU"), Cells(wks.UsedRange.Row + wks.UsedRange.Rows.Count - 1, "IU")).Value = Ort.Value
Range(Cells(3, "IV"), Cells(wks.UsedRange.Row + wks.UsedRange.Rows.Count - 1, "IV")).Value = Ortsteil.Value
'Zellinhalte kopieren
Range(Cells(3, "IT"), Cells(wks.UsedRange.Row + wks.UsedRange.Rows.Count - 1, "IV")).Copy
End Sub