Wie kann ich aus dem Tabellenblatt "Rechnung" die Zellen D13, D 14, D 16 und I40, I41, I43 in eine Tabbelle namens "Journal" übertragen lassen und dann die Zelle D13 um +1 erhöhen?
Kann mir dort mittels VBA jemand weiterhelfen?
Sub kopieren()
With Sheets("Rechnung")
Sheets("Journal").Range("D13") = .Range("D13")
Sheets("Journal").Range("D14") = .Range("D14")
Sheets("Journal").Range("D16") = .Range("D16")
Sheets("Journal").Range("I40") = .Range("I40")
Sheets("Journal").Range("I41") = .Range("I41")
Sheets("Journal").Range("I43") = .Range("I43")
.Range("D13") = .Range("D13") + 1
End With
End Sub
Schönen Gruß,
Andi
Sub eintragen()
Dim ws As Worksheet
Dim ws1 As Worksheet
Set ws = Worksheets("Rechnung")
Set ws1 = Worksheets("Journal")
Application.ScreenUpdating = False
letztezeile = ws1.Cells(Rows.Count, 1).End(xlUp).Row + 1
ws1.Cells(letztezeile, 1) = ws.Range("D13")
ws1.Cells(letztezeile, 2) = ws.Range("D14")
ws1.Cells(letztezeile, 3) = ws.Range("D16")
ws1.Cells(letztezeile, 4) = ws.Range("I40")
ws1.Cells(letztezeile, 5) = ws.Range("I41")
ws1.Cells(letztezeile, 6) = ws.Range("I43")
ws.Range("D13") = ws.Range("D13") + 1
Application.ScreenUpdating = True
End Sub
Jan