Mit diesem Code werden Daten in die Tabelle 4 eingetragen.
Case Is > 559, Is
With Tabelle4.Cells(Rows.Count, 2).End(xlUp)
.Offset(1, 0).Value = txtDatum1
.Offset(1, 1).Value = txtNummer1 + txtNummer3 + txtNummer2
.Offset(1, 2).Value = txtSchaden1
.Offset(1, 3).Value = txtPlan1
.Offset(1, 4).Value = txtAus1
.Offset(1, 5).Value = txt11
.Offset(1, 6).Value = txt21
.Offset(1, 7).Value = txt31
End With
Dieses wird in 3 Dateien durchgeführt.
Ich möchte jetzt aus den 3 Dateien eine neue Datei anlegen,
wo alle Daten automatisch eingetragen werden.
Ist so etwas überhaupt möglich? Über einen Ansatz oder Tipp
wäre ich sehr Dankbar.
MfG Erich