2 Ranges zusammenfassen Daniel P.
16.06.2014 08:16:24
Peter
Anfrage von Daniel P. 14.06.2014 15:50:03
İch frage höflich an, ob das Problem inzwischen gelöst wurde?
Man kann es auch so verstehen das die Werte der Spalten A:C mit Spalte X:Z
miteinander vernüpft werden sollen. Das geht nur Zelle für Zelle mit For Next
Hier ein kurzes Lösungsprogramm dazu.
'Aufgabe: 2 Ranges zusammenfassen Spalte A:C und Spalte X:Z
' Ergebnis in zweites Blatt kopieren in Ziel-Adresse
Sub ZweiRange_zusammenfassen()
Dim Tab2 As Object, Adr, ZielAdr, Label, i
'das Ziel Tabellenblatt bitte selbst benennen
Set Tab2 = Sheets("Tabelle2") 'hier Tabelle2
Sheets("Tabelle1").Select 'Quell Tabelle
Range("A1", [a65000].End(xlUp)).Select
Adr = "X1": ZielAdr = "A1": GoSub verknüpf
Range("B1", [b65000].End(xlUp)).Select
Adr = "Y1": ZielAdr = "B1": GoSub verknüpf
Range("C1", [c65000].End(xlUp)).Select
Adr = "Z1": ZielAdr = "C1": GoSub verknüpf
Exit Sub
verknüpf:
'GoSub Schleife zum verknüpfen
For Each i In Selection
With Range(Adr)
'" " Space oder " / " nicht vergessen!!
Label = i.Value & " " & .Cells(i.Row, 1).Value
Tab2.Range(ZielAdr).Cells(i.Row, 1).Value = Label
End With
Next i
Return
Fehler: MsgBox "unerwarteter Fehler"
End Sub
Anzeige