|
Hallo
auf select kann in 99% verzichtet werden
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 'letzte Zeile der Spalte
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
LG UweD
|