Anzeige
Archiv - Navigation
1620to1624
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro - Einfügen in nächste leere Zeile

Makro - Einfügen in nächste leere Zeile
22.04.2018 16:42:49
Mario
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...

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro - Einfügen in nächste leere Zeile
22.04.2018 16:46:51
Hajo_Zi
das Forum lebt von Rückmeldung, Dir scheint das unbekannt zu sein.
Darum keine Lösung.

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
AW: Makro - Einfügen in nächste leere Zeile
22.04.2018 17:05:33
Nepumuk
Hallo Mario,
teste mal:
Public Sub Waren_final()
    Call Worksheets("Rechnung").Range("A24:F40").Copy
    With Worksheets("Warenausgang")
        Call .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial( _
            Paste:=xlPasteValuesAndNumberFormats)
    End With
    Application.CutCopyMode = False
    Worksheets("Rechnung").Range("A24:B40,D24:D40").ClearContents
End Sub

Gruß
Nepumuk
Anzeige
AW: Makro - Einfügen in nächste leere Zeile
22.04.2018 17:52:59
Mario
Hallo Nepumuk
Funktioniert einwandfrei. Vielen Dank :)
Gruss
AW: Makro - Copy-Paste in nächste leere Zelle
22.04.2018 17:23:34
Gerd
Moin
Sub Waren_final()
Dim wsQ As Range: Set wsQ = Worksheets("Rechnung")
Dim wsZ As Range: Set wsZ = Worksheets("Warenausgang")
wsQ.Range("A24:F40").Copy
With wsZ
.Range("A" & Application.Max(5, .Cells(.Rows.Count, 1).End(xlUp).Row + 1)). _
PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End With
wsQ.Range("A24:B40,D24:D40").ClearContents
Application.CutCopyMode = False
Set wsQ = Nothing: Set wsZ = Nothing
End Sub
Gruß Gerd

108 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige