Microsoft Excel

Herbers Excel/VBA-Archiv

Spalteninhalte zeilenweise kopieren und verketten

Betrifft: Spalteninhalte zeilenweise kopieren und verketten von: Jockel
Geschrieben am: 07.10.2014 09:24:16

Hallo,

ich kopiere einzelne Spalten zwischen zwei Tabellenblätter (von Masterliste nach Quelldaten". Hier mal ein kleines Beispiel:

Dim j As Long
j = 2

For i = 1 To Sheets("Masterliste").Cells(Rows.Count, "A").End(xlUp).Row
If Sheets("Masterliste").Cells(i, "A") = "X" Then

Cells(i, "D").Copy Destination:=Sheets("Quelldaten").Range("A" & j)
Cells(i, "S").Copy Destination:=Sheets("Quelldaten").Range("B" & j)
'usw ...
j = j + 1
End If
Next

Im Sheet "Quelldaten" in der Spalte C soll nun nicht das Ergebnis einer einzelnen Spalte aus der Masterliste stehen, sondern ich möchte in der Spalte C jeweils aus der Masterliste die Verkettung aus den Spalten F und G haben.
Hier ein Beispiel

Masterliste:
Spalte_F________Spalte_G_______
___100_____________80__________

Quelldaten:
Spalte_C________
_100 / 80_______

Beim Kopieren sollen die beiden Einträge nun zuerst verketten werden : "100 / 80"
und dann in die Tabelle Quelldaten in die Spalte C geschrieben werden.

Wie mache ich das ?

Danke
Jockel

  

Betrifft: habe eine Lösung gefunden, danke owT von: Jockel
Geschrieben am: 07.10.2014 11:29:57

owt


 

Beiträge aus den Excel-Beispielen zum Thema "Spalteninhalte zeilenweise kopieren und verketten"