Sub
transfer_werte()
Dim
Rechnungsnr
As
String
, Kundennr
As
String
Dim
Rechnungsdatum
As
String
, Rechnungsbetrag
As
String
Dim
Bezeichnung
As
String
, LR
As
Long
With
Worksheets(
"Vorlage"
)
Rechnungsnr = .Range(
"B17"
)
Kundennr = .Range(
"E17"
)
Rechnungsdatum = .Range(
"G17"
)
Bezeichnung = .Range(
"A20"
)
Rechnungsbetrag = .Range(
"G21"
)
End
With
With
Worksheets(
"Rechnungen"
)
LR = .Cells(.Rows.Count,
"A"
).
End
(xlUp).Row
If
LR > 4
Then
With
.Cells(LR, 1)
.Offset(1, 0).Value = Rechnungsnr
.Offset(1, 1) = Kundennr
.Offset(1, 2) = Rechnungsdatum
.Offset(1, 3) = Rechnungsbetrag
.Offset(1, 4) = Bezeichnung
End
With
Else
MsgBox
"Warum auch immer erst Ab Zeile 4???"
End
If
End
With
End
Sub