Ich habe dieses Makro im Internet gefunden. Hat bislang auch super geklappt, wenn ich einzelne Daten kopiert habe. Nun muss ich allerdings die Spalte (A24:A40) kopieren. Dies klappt mit dieser Formel nicht mehr.
Auch soll es mir nicht die leeren Zeilen kopieren. Wenn es nur zwei Artikel gibt, soll es mir auch nur die zwei Artikel (A24:A26) kopieren und die leeren nicht.
Sub Warenausgang_archivieren()
Dim Rechnungsdatum As String, Beschreibung As String, Artikelnummer As String, Menge As String, _
Preis As String, Gesamtbetrag As String
Worksheets("Rechnung").Select
Rechnungsdatum = Range("B8")
Beschreibung = Range("A24")
Artikelnummer = Range("C24")
Menge = Range("D24")
Preis = Range("E24")
Gesamtbetrag = Range("F24")
Worksheets("Warenausgang").Select
Worksheets("Warenausgang").Range("A4").Select
If Worksheets("Warenausgang").Range("A4").Offset(1, 0) "" Then
Worksheets("Warenausgang").Range("A4").End(xlDown).Select
End If
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Rechnungsdatum
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Beschreibung
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Artikelnummer
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Menge
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Preis
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Gesamtbetrag
End Sub
Vielen Dank für eure Hilfe.