Tabellenname aus Zelle beziehen
Christopher
ein weiteres mal würde ich gerne kompetente Forumsuser um Hilfe bitten.
Und zwar würde ich gerne in mein Makro einbauen, dass der Name Kontierung (2) ganz am Ende immer verändert wird. Der Tabellenname soll aus Zelle H2 (Datum) der Ursprungstabelle (Kontierung) bezogen werden.
Sub Wertekopie_Kraft()
Sheets("Kontierung").Select
Sheets("Kontierung").Copy Before:=Sheets(1)
Cells.Select
Range("A5").Activate
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Kontierung").Select
Range("B10:C100").Select
Selection.ClearContents
Sheets("Kontierung (2)").Select
Sheets("Kontierung (2)").ActiveSheet.Name = ActiveSheet.Range("H2")
End Sub
Gruß
Christopher
Anzeige