ich möchte aus einer Arbeitsmappe einen bestimmten Bereich kopieren und diesen in einer zweiten Mappen in der nächsten leeren zeile eintragen.
Leider fügt mehr das Makro diese nicht ein.
Hoffe mir kann jemand helfen
Private Sub speichern_Click()
Dim lngZeileFrei As Long
Dim TB As Object
With Schleuse
Workbooks.Open Filename:="H:\Branches\DACH006\EFL\Leitstand\EINGANG SHUTTLE\Auswertung\Prototyp Schleusensteuerung NV-Eingang_Version 2.1.xlsm"
Worksheets("START").Select
Range("A5").Value = Me.TextBoxReise
Range("B14").Value = Me.TextBoxReise
Range("A14").Value = Me.DD_Eingang
Range("C14").Value = Me.DD_Absender
Range("J14").Value = Me.Unternehmer
Range("H14").Value = Me.TextBoxHinweis
Range("L14").Value = Format(Now, "DD.MM.YYYY")
Application.Run "'H:\Branches\DACH006\EFL\Leitstand\EINGANG SHUTTLE\Auswertung\Prototyp Schleusensteuerung NV-Eingang_Version 2.1.xlsm'!Datenabruf.Datenabruf"
End With
'Schleuse 1
Sheets("Schleusenberechnung").Select
Range("A2").Select
Selection.Copy
Sheets("START").Select
Range("D14").Select
ActiveSheet.Paste
'Schluese 2
Sheets("Schleusenberechnung").Select
Range("A3").Select
Selection.Copy
Sheets("START").Select
Range("E14").Select
ActiveSheet.Paste
'Schleuse 3
Sheets("Schleusenberechnung").Select
Range("A4").Select
Selection.Copy
Sheets("START").Select
Range("F14").Select
ActiveSheet.Paste
'Schleuse 4
Sheets("Schleusenberechnung").Select
Range("A5").Select
Selection.Copy
Sheets("START").Select
Range("G14").Select
ActiveSheet.Paste
Range("A14:L14").Select
Selection.Copy
Windows("Eingang CD FL SCHULUNG.xlsm").Activate
Sheets("Schleuse").Select
lngZeileFrei = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
Me.Hide
For Each TB In Me.Controls
If TypeName(TB) = "TextBox" Then
TB.Value = ""
End If
Next TB
MsgBox "Berechnung erfolgreich, Daten werden übernommen"
End Sub