Zwei Tabellen miteinander verknüpfen und nach Datum sortiere (VBA)

Toni, Dienstag, 15.01.2019, 09:47 (vor 333 Tagen) @ Martin Asal

Hi Martin,

also mit diesem Code, kann ich den kompletten Inhalt der beiden Tabellenblätter zusammenführen.

Sub nue()
Dim i As Integer
With ActiveWorkbook
'neue Tabelle an die erste Position einfügen
.Worksheets.Add Before:=.Worksheets(1)
For i = 2 To .Worksheets.Count
'Ermitteln den benutzen Bereich der einzelnen Tabellenblätter
Set Rng = .Worksheets(i).UsedRange
'letzte Zeile ermitteln des ersten Blattes
Set rng1 = Worksheets(1).Cells(Rows.Count, "A").End(xlUp)(1)
'Bereich kopieren
Rng.Copy Destination:=rng1
Next
End With
End Sub

Brauche aber wie oben in meiner Problemstellung aus Tabellenblatt 1= A, B, H und aus Tabellenblatt 2= A,B,F.
In Tabellenblatt 3 soll dann in A= A und A, in B= B und B und in C= H und F rein.

Weiter reichen meine VBA Skills derzeit nicht :D


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum