VBA Code Hilfe
13.03.2018 08:55:00
Marc
Ich habe eine Tabelle die ich gerne via VBA Code kopieren möchte und an einer bestimmten Stelle x mal einfügen möchte.
Ich habe diesen Code gefunden
Private Sub CommandButton24_Click()
Dim wks As Worksheet, Anzahl As Integer, I As Integer
Set wks = ActiveSheet
Anzahl = Val(InputBox("Wieviele Kopien?", "Tabellenblätter kopieren", "1"))
If Anzahl = 0 Then Exit Sub 'Button "Abbrechen" geklickt oder keine Zahl eingegeben
For I = 1 To Anzahl
wks.Copy Before:=ActiveWorkbook.Sheets(3)
ActiveSheet.Name = wks.Name & I
Next
End Sub
Er kopiert mir auch alles und fügt es dort ein wo ich möchte! nur werden die Tabellenreiternamen nicht so beschriftet wie ich es gern hätte.So heissen sie jetzt Kolonial(1)1 - Kolonial (1)2 müssten aber folgendermassen heissen: Kolonial (1) - Kolonial (2) usw.
Kann mir da jemand helfen?