bitte helft mir bei "mit VBA Blatt kopieren"
31.01.2016 18:22:11
Larcher
Ich habe den code mal selber versucht abzuändern, hat geklappt.
dieser sieht nun so aus.
Private Sub CommandButton1_Click()
Dim angebotNr As Long
Dim angebot As String
angebotNr = ActiveWorkbook.Name
Application.DisplayAlerts = False
Sheets("Angebot A " & angebotNr).Delete
Application.DisplayAlerts = True
Sheets("Vorlage").Select
ActiveSheet.Copy Before:=ActiveSheet
'Sheets("Vorlage").Copy Before:=Sheets(5)
Sheets("Vorlage (2)").Name = ("Angebot A " & angebotNr)
Application.CutCopyMode = False
Sheets("Angebot A " & angebotNr).Activate
End Sub
aber bei der änderung in dem Angebot komme ich nicht mit.da muss ich ja den Namen der Sheet ( merken ) um ihn nachher wieder einzugügen.
kann mir da jemand Bitte weiterhelfen.
Dank
mfg Rene