Blatt als Datei speichern

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
InputBox MsgBox
Bild

Betrifft: Blatt als Datei speichern
von: gudi
Geschrieben am: 12.03.2005 12:41:25
Hallo excel freunde,
ich habe eine Frage:
ich habe eine VBA lösung gefunden in unserem forum, was genau für mich ist, aber es fählt noch ein Detail.
Ich möchte eine Blatt nach berarbeitung als Datei speichern, so das Benutzer kann per Buttonklick Dateinameneingeben,MsgBox bestätigen und fertig.
Was mich noch fehltist das Pfad das di Datei in eine Bestimmte Ornder gespeichert wird.
Wie kann ich das Pfad in mein Makro einbauen...??
Siehe Beispiel
https://www.herber.de/bbs/user/19560.xls
Besten Dank

Bild

Betrifft: AW: Blatt als Datei speichern
von: Hajo_Zi
Geschrieben am: 12.03.2005 12:54:16
Hallo gudi
ich muß Blind sein ich finde keinenm Code. Aber Excel hat auch keinen gefunden?

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Bild

Betrifft: AW: Blatt als Datei speichern
von: gudi
Geschrieben am: 12.03.2005 13:13:23
hallo Hajo,,
soryy dum gelaufen,,aber jetzt soll in Ordnung sein
https://www.herber.de/bbs/user/19565.xls

Danke
Bild

Betrifft: AW: Blatt als Datei speichern
von: Hajo_Zi
Geschrieben am: 12.03.2005 13:23:28
Hallo Gudi,
warum nicht ein Problem in einem Beitrag abhandeln? Das findet man dan auch besser im Archiv. Ich glaube Du hast in Deinem ersten Beitrag geschrieben das eine Einzelne Tabelle aus einer Datei gespeichert werden soll. Es fehlt nur noch der Dateiname. Ich habe den Code nicht gefunden der diese einzelne Tabell herrauslöst?

Sub Test()
    Dim StDateiname As Variant
    StDateiname = "Datei XXXXXX" & Format(Date, " YYYY_MM_DD")
    StDateiname = Application.InputBox("Bitte geben Sie den Dateinamen an !!!!!!!", "****Blatt Archivieren ****", _
        StDateiname, Type:=2)
    If StDateiname = "" Then
        Exit Sub
    ElseIf VarType(StDateiname) = 11 Then
        If StDateiname = False Then Exit Sub
    Else
        ActiveSheet.Copy
        ActiveWorkbook.SaveAs Filename:="D:\Eigene Dateien\Hajo\" & StDateiname & ".xls"
    End If
End Sub

Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
Bild

Betrifft: AW: Blatt als Datei speichern
von: gudi
Geschrieben am: 12.03.2005 13:42:26
hallo Hajo,,
vielen dank, es funkioniert.
Eine Frage noch: was muss ich noch zusätzlich einbauen das die Zieldatei nach kopieren/speichern nicht sichtbar bleibt,, so muss ich Die Enddatei noch mannuel Schliesen ??
Gruss
Bild

Betrifft: AW: Blatt als Datei speichern
von: Hajo_Zi
Geschrieben am: 12.03.2005 16:37:43
Hallo Gudi,
las letzte Zeile vor end Sub
ActiveWorkbook.Close True
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Blatt als Datei speichern"