Ich will nur eine Tabelle aus einer Arbeitsmappe speichern.
Diese soll in einer separaten Datei gespeichert werden.
Der Benutzer soll den Namen und Pfad per Standard Speichern unter Dialog eingeben.
'Kopie erstellen und speichern
ActiveSheet.Copy
Dim erg As Integer
nochmal_speichern_unter:
erg = Application.Dialogs(xlDialogSaveAs).Show
'Abbruch im Dialog speichern unter
If (erg = 0) Then
'Fragen, ob wirklich abgebrochen werden soll
erg = MsgBox("A C H T U N G" & Chr(10) & Chr(10) & _
"Die Tabelle: " & Chr(34) & "Name_hier" & Chr(34) & Chr(10) & Chr(10)& _
"wurde nicht gespeichert !" & Chr(10) & Chr(10) & _
"Wollen Sie wirklich abbrechen?" & Chr(10) & Chr(10), _
vbCritical + vbYesNo, "Ergebnis nicht speichern ?")
'ja -- nicht speichern
If (erg = 6) Then
'raus
Exit Function
'nein -- kein Abbruch
ElseIf (erg = 7) Then
''debug.Print ("weiter nach abbruch !!")
GoTo nochmal_speichern_unter
End If
End If
'WICHTIG
'Hier will ich noch Änderungen innerhalb der Kopie vornehmen
'z.B Formatierungen (Druckbereich etc...)
'Kopie schliessen mit Speichern
With ActiveWorkbook
.Close (True)
End With
Anmerkung:
Beim Debuggen werden ständig Kopien angelegt, obwohl ich nur eine brächte !
Ich würde gerne den Namen unter dem gespeichert werden soll beeinflussen !
application.GetSaveAsFilename ?
Bitte um Hilfe !!!!!!!!