Sub Tm1_Plan()
Dim Kopf, antwort As String
Dim Stil As Integer
Dim Datei As String
Datei = ActiveWorkbook.Name
Windows("PLAN-Upload_2017.xlsb").Activate: Sheets("Data").Select
Stil = vbYesNo + vbQuestion + vbDefaultButton2
Kopf = " *** Plan Upload *** "
antwort = MsgBox("Do you really want to overwrite existing data? Check if existing _
data has been transmitted to TM1 successfully." & vbCrLf & vbCrLf & _
"Click Yes if you want to transfer new data! " & vbCrLf & vbCrLf & _
"Click No if you want to cancel ", Stil, Kopf)
If antwort = vbNo Then GoTo Ende
If antwort = vbYes Then
Range("A3:F39").Select
ActiveWindow.SmallScroll Down:=-6
Range("A3:F3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Windows(Datei).Activate
Range("H6:M6").Select
Selection.AutoFilter
ActiveSheet.Range("$H6:$M$26298").AutoFilter Field:=5, Criteria1:=" 0", _
Operator:=xlFilterValues
ActiveSheet.Range("$H$6:$M$26298").AutoFilter Field:=6, Criteria1:=" 0", _
Operator:=xlFilterValues
Range("H7:M7").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("PLAN-Upload_2017.xlsb").Activate
Range("A3").Select
ActiveSheet.Paste
Windows(Datei).Activate
ActiveWindow.ScrollRow = 1
Range("H6:M6").Select
Application.CutCopyMode = False
Selection.AutoFilter
Windows("PLAN-Upload_2017.xlsb").Activate
Exit Sub
Ende:
MsgBox ("Daten bitte erneut in TM1 laden")
Windows(Datei).Activate
End If
End Sub
Ich möchte nun auch die Möglichkeit einbauen, daß die Daten die kopiert werden, nach der letzt gefüllten Zeile der Datei PLAN-Upload_2017.xlsb eingefügt werden. Wie kann ich die letzte befüllte Zeile bestimmen und wie würde ich das dann einbauen, Danke für die Hilfe