VBA - Zwischenstände untereinander kopieren?
Liebe Community,
vielleicht kann mir hier jemand weiterhelfen. Ich habe eine Planungs-Excel Datei, in welcher ich einen bestimmten Bereich (BB86:BH93) so hinterlegt habe, dass mir bestimmte Ergebnisse angezeigt werden.
Nun würde ich gerne diesen Bereich automatisch mittels Button in einen anderen Reiter kopieren. Jedoch liegt meine Schwierigkeit darin, dass Excel jedes Mal, wenn ich denn Button betätige, den Ausschnitt untereinander kopieren soll in dem gleichen Reiter. Er soll die alte Tabelle also nicht überschreiben, da ich die einzelnen Zwischenstände sehen möchte.
Weiß jemand hierfür einen geeigneten VBA Code?
Vielen Dank im Voraus und viele Grüße
1 Antwort
Hallo,
dazu müsstest du nur bestimmen in welcher Zeile sich der letzte Eintrag im Zielblatt befindet, und entsprechend darunter einfügen:
Private Sub CommandButton1_Click()
Dim ziel As String
Dim lZeiZiel As Long
ziel = "Ziel" 'Name des Zielblattes
With ActiveWorkbook.Worksheets(ziel)
lZeiZiel = .Range("A" & .Rows.Count).End(xlUp).Row + 1
ActiveSheet.Range("BB86:BH93").Copy
.Range("A" & lZeiZiel).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
MsgBox "kopiert"
End Sub
Bitte :D,
ja, das ist möglich:
Private Sub CommandButton1_Click()
Dim ziel As String
Dim lZeiZiel As Long
ziel = "Ziel" 'Name des Zielblattes
With ActiveWorkbook.Worksheets(ziel)
lZeiZiel = .Range("A" & .Rows.Count).End(xlUp).Row + 3 'für mehr Leerzeilen hier mehr addieren
ActiveSheet.Range("BB86:BH93").Copy
.Range("A" & lZeiZiel).PasteSpecial Paste:=xlPasteValues
.Range("A" & lZeiZiel).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
.Range("A" & lZeiZiel - 1) = Date 'Datum über dem kopiertem Eintrag einfügen
End With
MsgBox "kopiert"
End Sub
Super, alles einwandfrei!! Tausend Dank dafür 🤗
Perfekt! Funktioniert super. Vielen Dank ☺️
ist es noch möglich leere Zeilen zwischen den kopierten Spalten einzufügen und ein aktuelles Datum hinzuzufügen und die Formatierung beizubehalten?
DANKE ☺️