Ich besitze zwei Worksheete Blatt1 und Blatt2.
Blatt1 hat 40 Zeilen.
Blatt2 hat 50 Zeilen.
Ich habe nun ein Blatt3 eingefügt.
In diesem neuen Blatt möchte ich nun von 1-40 die Daten
aus Blatt haben und von 41-91 die Daten von Blatt2.
Das Problem allerdings ist daß die Zeilen auf Blatt1 und Blatt2 monatlich ändern. So kann in einem Monat Blatt1 nur noch 30 Zeilen haben und Blatt2 60 Zeilen. Dann müßte Blatt3
von 1-30 ie Daten von Blatt1 beinhalten und von 31-91 die Daten von Blatt3.
Bitte um ein Makro Programm das mir dies erfüllt.
Ich besitze zwei Worksheete Blatt1 und Blatt2.
Blatt1 hat 40 Zeilen.
Blatt2 hat 50 Zeilen.
Ich habe nun ein Blatt3 eingefügt.
In diesem neuen Blatt möchte ich nun von 1-40 die Daten
aus Blatt haben und von 41-91 die Daten von Blatt2.
Das Problem allerdings ist daß die Zeilen auf Blatt1 und
Blatt2 monatlich ändern. So kann in einem Monat Blatt1 nur
noch 30 Zeilen haben und Blatt2 60 Zeilen. Dann müßte Blatt3
von 1-30 ie Daten von Blatt1 beinhalten und von 31-91 die
Daten von Blatt3.
Bitte um ein Makro Programm das mir dies erfüllt.
Das Makro musst sicher noch anpassen, damit es allen Deinen Anforderungen entspricht.
Sub MergeTables()
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Dim wks3 As Worksheet
Dim cntLines1 As Long
Dim cntLines2 As Long
Set wks1 = ActiveWorkbook.Worksheets("Sheet1")
Set wks2 = ActiveWorkbook.Worksheets("Sheet2")
Set wks3 = ActiveWorkbook.Worksheets("Sheet3")
cntLines1 = wks1.UsedRange.Rows.Count
cntLines2 = wks2.UsedRange.Rows.Count
wks3.Cells.Delete
wks1.Activate
wks1.Range(Rows(1), Rows(cntLines1)).Copy wks3.Rows(1)
wks2.Activate
wks2.Range(Rows(1), Rows(cntLines2)).Copy wks3.Rows(cntLines1 + 1)
End Sub