ich möchte mittels Button aus einer Userform das Tabellenblatt 2 speichern können.
Und nur das Blatt zwei in einer seperaten Excel.xls
Habe das mit Google gefunden, versucht zu editieren, aber es kopiert trotz meiner Veränderungen auch das erste Blatt mit.
wo kann der fehler liegen:
Private Sub CommandButton17_Click()
Dim sInput As String
sInput = InputBox("Dateiname eingeben:", "Pfad")
If sInput = "" Then
MsgBox "Kein Speichername eingegeben!", vbExclamation, "Info"
sInput = InputBox("Dateiname eingeben:", "Pfad")
Else
'Hier deine Prozedur bzw. dein Speichern eintragen z.B
Sheets("Tabelle2").Activate
ActiveSheet.SaveAs ("C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\" & sInput)
End If
End Sub
danke
Hansi