AW: Per Schaltflächen Exceldatei öffnen daten übertrag
14.12.2017 16:10:44
Piet
Hallo Heinz
grundsaetlich ist das möglich, ich habe mal zwei Makros dazu geschrieben. Die Datei muss aber als xlsm Datei gespeichert werden. Ich sehe aber eine Unstimmigkeit. Wenn per Button eine neue Mappe öffnet sollte sie leer sein. Da erübrigt sich die letzte Zeile zu suchen! Oder öffnest du eine bereits existierende Mappe, wo die neuen Daten unten angefügt werden müssen?
Da ist mir noch unklar.Anbei mal ein Code zum Selbst experimentieren.
mfg Piet
'Ich habe ein Arbeitsblatt "stückliste" in meiner Arbeitsmappe "Fertigungsauftrag".
'Per Schaltflächen öffne ich eine neue Arbeitsmappe " Aufträge". Soweit so gut.
'Nun möchte ich das automatisch in die Abrbeitsmappe "Aufträge" in das aktive Blatt
'in die nächste leere Zeile in
'Spalte B das aktuelle Datum
'Spalte D Inhalt K5 von "Stückliste
'Spalte E Inhalt D2 von "Stückliste
'Spalte F Inhalt D6 von "Stückliste eingetragen wird.
Const WbF = "Fertigungsauftrag" 'Name der Quell Arbeitsmappe
'kopieren in feste Adressen
Sub Stückliste_inAufträge_kopieren()
Dim ExWb As Object 'Kurzname für Quell Mappe
Set ExWb = Workbooks(WbF).Sheets("Stückliste")
'Arbeitsmappe Aufträge aktivieren
Worksheets("Aufträge").Activate
With ActiveSheet
'heutiges Datum in B1 im Format 14.12.2017
Range("B1").Value = Format(Now, "tt,mm,jjjj")
'Quell Zelle in -> Ziel Zelle
Range("D1").Value = ExWb.Range("K5") 'K5 Stückliste
Range("E1").Value = ExWb.Range("D2") 'D2 Stückliste
Range("F1").Value = ExWb.Range("D6") 'D6 Stückliste
End With
End Sub
'kopieren in variable Adressen
Sub Stückliste_inAufträge_kopieren_2()
Dim ExWb As Object 'Kurzname für Quell Mappe
Set ExWb = Workbooks(WbF).Sheets("Stückliste")
'Arbeitsmappe Aufträge aktivieren
Worksheets("Aufträge").Activate
With ActiveSheet 'Spalte B-F
lzB = Cells(1000, 2).End(xlUp).Row + 1 'B next Zell
lzC = Cells(1000, 3).End(xlUp).Row + 1 'C
lzD = Cells(1000, 4).End(xlUp).Row + 1 'D
lzE = Cells(1000, 5).End(xlUp).Row + 1 'E
lzF = Cells(1000, 6).End(xlUp).Row + 1 'F
'heutiges Datum in B1 im Format 14.12.2017
Cells(lzB, 2).Value = Format(Now, "tt,mm,jjjj")
'Quell Zelle in -> Ziel Zelle
Cells(lzD, 4).Value = ExWb.Range("K5") 'K5 Stückliste
Cells(lzE, 5).Value = ExWb.Range("D2") 'D2 Stückliste
Cells(lzF, 6).Value = ExWb.Range("D6") 'D6 Stückliste
End With
End Sub