VBA - für Tabellenarchivierung
06.03.2019 17:27:41
Chris
ich beise mir gerade die Zähne an einem eigentlich einfachen Makro aus.
Das liegt sicherlich auch daran, dass mein VBA-Wissen eher bescheiden ist aber ich komme einfach nicht weiter!
Ich versuche ein Makro zu erstellen, bei welchem eine bestehende Tabelle als Wert unter sich selbst kopiert wird. Die Formatierung soll übernommen werden, aber nicht die Formeln. Als Zusatz, soll oberhalb der Tabelle noch ein Datumsstempel erscheinen.
Bei jedem Auslösen des Makros, soll sich eine neue Version unter die bereits bestehenden kopieren, so dass ein Archiev entsteht.
Folgenden Code habe ich:
Sub TabelleKopieren()
Dim Wohin As Range
Set wks1 = Worksheets("Datengrundlage (3)")
With Worksheets("Datengrundlage (3)")
Set Wohin = .Range("C" & .Rows.Count).End(xlUp).Offset(6, 0)
Wohin.Value = Date$
End With
With wks1
ActiveSheet.Select
.Range("C1:EH58").Copy Destination:=wks1.Range("C" & .Rows.Count).End(x1Up).Offset(1, 0) _
End With
End Sub
Das Eintragen des Datums klappt wunderbar, der Rest leider überhaupt nicht.Ich nehme an, dass ich den Bereich, in welchen die Tabelle kopiert werden soll, nicht vernünftig definiert habe, finde aber den Fehler nicht. Außerdem würden ja so auch alle Formeln kopiert werden.
Vielen Dank für Eure Hilfe!
Gruß
Chris