Office: Daten ausschneiden über Makro

Hallo,

ich bräuche wieder einmal Hilfe bei einer Excel-Tabelle.

Ich habe diese mal angehangen. Einige Daten im Tabellenblatt werden per Makro gelöscht, der rest formatiert.

Es ist doch bestimmt per Makro auch möglich, die übrig gebliebenen Daten auszuschneiden und diese im 2. Tabellenblatt (Ausgabe) am Ende einzufügen.

Wie ist der "Code" dafür?

Kann mir da jemand helfen? Wäre wirklich nett.

Gruß
michael

 

Hallo!

Teste mal dies:

Code:

Sub test()
Dim Letzte As Integer
Letzte = Sheets("Ausgabe").Range("A65536").End(xlUp).Row + 1
Sheets("E00876").Range("A4").CurrentRegion.Offset(1, 0).Copy Sheets("Ausgabe").Cells(Letzte, 1)
End Sub

 

Hallo Schatzi,

ich habe den Code mal probiert. Da ich zwischenzeitlich noch bißchen was an der Tabelle geändert habe, habe ich den Code angepasst. Kannst Du den in der neue Tablle mal bitte prüfen. Leider funktioniert das Makro bei mir nach dem Einfügen Deiner Lösung nicht mehr. Entferne ich diese, funktioniert wieder alles. Ich nehme an, ich mache da irgendwas falsch.

Theoretisch soll der jetzt aus meinem Beispiel die Zeilen 6 - 32 (können aus mehr oder weniger Zeilen sein) formatieren (ist fertig) ausschneiden und in das "Ausgabe-Tabellenblatt" unten anfügen.

Danke Dir

Michael

 

Hallo!

Ungetestet:
Du hast im Blatt "Eingabe" noch eine Zeile eingefügt, daher kann das hier nicht mehr funktionieren:

Sheets("Eingabe").Range("A4").CurrentRegion.Offset(1, 0).Copy Sheets("Ausgabe").Cells(Letzte, 1)

Ändere das mal in A5.

 

Hallo Schatzi,

Das hätte mir eigentlich auch auffallen müßen. Jetzt funktioniert das einwandfrei.

Vielen vielen Dank
Michael