Collapse column

Autor Thema: Makro - Einfügen in nächste leere Zeile  (Gelesen 149 mal)

Offline Maluk

  • Newbie
  • *
  • Beiträge: 1
    • Profil anzeigen
  • Office-KnowHow: Fortgeschritten
  • VBA-KnowHow- : Wenig
  • Version [Office] : Office 2016
Makro - Einfügen in nächste leere Zeile
« am: April 22, 2018, 15:27:08 Nachmittag »
Hallo
Ich habe ein Makro erstellt, wo ich Daten aus dem Blatt "Rechnung" in das Blatt "Warenausgang" kopieren möchte. Allerdings kopiert es mir immer in die gleiche Zeile und überschreibt die vorherigen Resultate. Ich möchte, dass es mir die Resultate in die nächste leere Zelle einfügt.
Hier das Makro.

Sub Waren_final()
    Range("A24:F40").Select
    Selection.Copy
    Sheets("Warenausgang").Select
    Range("A5").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=True, Transpose:=False
    Range("H25").Select
    Sheets("Rechnung").Select
    Range("A24:B40,D24:D40").Select
    Range("D24").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("G35").Select
End Sub


Vielen Dank für die Hilfe...

Online gmg-cc

  • Hero Member
  • *****
  • Beiträge: 1.135
    • Profil anzeigen
    • Meine Webseite
  • Office-KnowHow: Fortgeschritten
  • VBA-KnowHow- : Gut
  • Version [Office] : Office 2016
Antw: Makro - Einfügen in nächste leere Zeile
« Antwort #1 am: April 22, 2018, 19:39:38 Nachmittag »
Moin,
das Makro hast nicht du erstellt sondern der Makro-Rekorder (so grauenhaft programmiert noch nicht einmal ein Anfänger).
Und zweitens hast du ein Crossposting erstellt, was mich an einer Beschäftigung mit deinem Problem hindert.
Gruß
Günther