Excel VBA Kopierschleife - Inhalt von Zellen in einer Zielzelle verbinden

[Excelmania]

Guten Morgen.

Ich habe eine Kundentabelle. Auf dieser sind die Kunden nach Sachbearbeitenden geordnet. Nun sollen Listen für die Sachbearbeitenden erstellt werden.

Die Kundenliste stammt aus einer Datenbank und trennt daher name und vorname in zwei Attribute auf. In der Auswertung sollen zur besseren Übersicht und zum Sparen von Platz diese Attribute in einer Zelle zusammengelegt werden.

Mein Ansatz ist:

'Daten kopieren
With Worksheets("KA_Stammdaten")
    For i = QeZ To QlZ
        If .Range("E" & i) = SB And .Range("Y" & i) > 0 Then
                  worksheets("AW_SB").Range("A" & j) = Range("B" & i).Value & ", " & Range("C" & i).Value
            .Range("F" & i).Copy
                 Worksheets("AW_SB").Range("C" & j).PasteSpecial Paste:=xlPasteValues
            .Range("D" & i).Copy
                 Worksheets("AW_SB").Range("D" & j).PasteSpecial Paste:=xlPasteValues
            .Range("G" & i & ":S" & i).Copy
                 Worksheets("AW_SB").Range("E" & j & ":P" & j).PasteSpecial Paste:=xlPasteValues
            .Range("U" & i & ":X" & i).Copy
                 Worksheets("AW_SB").Range("R" & j & ":U" & j).PasteSpecial Paste:=xlPasteValues
             j = j + 1
        End If
    Next i
End With

Klappt aber nicht

Klappt Doch^^ Zahlendreher bei der Variablen definition.

 

[HerbertGozambo]

Dieses Forum ist halt wirklich immer eine große Hilfe!111

 

[johako]

Sieht auch sehr kompliziert aus mit dem Copy/Paste. Warum nimmst du nicht die Range.Value Eigenschaft, wie in der Zeile darüber?

Worksheets("AW_SB").Range("C" & j) = .Range("F" & i).Value
Worksheets("AW_SB").Range("D" & j) = .Range("D" & i).Value
Worksheets("AW_SB").Range("E" & j & ":P" & j) = .Range("G" & i & ":S" & i).Value
Worksheets("AW_SB").Range("R" & j & ":U" & j) = .Range("U" & i & ":X" & i).Value

 

[Janush]

Nimmst du eigentlich Geld dafür, dass du das baust? Deine ganzen Anfragen sehen in Summe ein bisschen nach einem Kundenprojekt aus :-)