ich möchte eine einzelne Tabelle aus meiner Arbeitsmappe Speichern.
Das ganze soll unter den Namen zweier Zelleninhalte gespeichert werden.
Mein Makro speichert mir das Blatt aber nur unter einen Zelleninhalt.
Was habe ich falsch gemacht?
Kann mir jemand ein Tippgeben?
Sub InhaltSpeichern()
Dim KomNr As String
Dim Name As String
Dim sDateiName$
Application.ScreenUpdating = False
sDateiName = ThisWorkbook.Path & "\" & KomNr & "" & Name & ".xls"
KomNr = Range("D4").Value
Name = Range("AD9").Value
ActiveSheet.Copy
sPath = "C:\Kommissionsnummern 2002\Inhalt\"
ActiveWorkbook.SaveAs sPath & KomNr & Name & _
".xls"
End Sub
Mit freundlichen Grüßen Thomas H.