Office: Makro Textdatei speichern und Dateiname aus Zelle vorgeben

Hallo,
bin neu im Forum und hoffe ich mach alles richtig. Bin verzweifelt weil das wirklich sehr anspruchsvoll ist.
Ich schreibe zurzeit ein Makro der mir aus verschiedenen Zellen eine Textdatei ausgibt. Leider bekomme ich das mit dem abspeichern nicht hin, ich möchte das dieser klasische Speicher Dialog aufgeht in dem gefragt wird wo ich die Textdatei speichern möchte(Nicht die Exceldatei!!) das ist nämlich was gerade passiert.
Desweiteren bekomme ich es nicht hin das er mir den Name aus einer Zelle
schonmal vorgibt.
Hier der Code:
Private Sub speichern()
Dim f As Integer
Dim c As Variant
Dim d As Variant
Dim e As Variant
Dim g As Variant
Dim h As Variant
Dim dateiname As String


f = FreeFile
Arg1 = Worksheets("A-Ausgabe").Range("N4")



dateiname = "X:\test"


On Error GoTo Fehler


Open dateiname For Output As f

For Each d In Worksheets("A-Ausgabe").Range("N2:N20")
Print #f, d
Next
For Each c In Worksheets("A-Ausgabe").Range("c2:c410")
Print #f, c
Next
For Each e In Worksheets("A-Ausgabe").Range("N20:N20")
Print #f, e
Next
For Each g In Worksheets("A-Ausgabe").Range("N22:N23")
Print #f, g
Next
For Each h In Worksheets("A-Ausgabe").Range("N25:N28")
Print #f, h
Next


Application.Dialogs(xlDialogSaveAs).Show (Arg1 & ".flg")


Fehler:
If Err.Number 0 Then
MsgBox Err.Description, vbCritical + vbOKOnly, "Fehler:" & Err.Number
Err.Clear

End If
Close f

On Error GoTo 0

End Sub

Vielen Dank schonmal im voraus.

:)

 

Hallo Bishu,

Mein gerne wiederholter Tipp: Das Hochladen einer Beispieldatei, gerne auch mit anonymisierten Daten, in der zu sehen ist, worin das Problem besteht und wie das Ergebnis aussehen soll, erhöht die Chance auf eine befriedigende Antwort ungemein!
Hier hat niemand Lust, eine eigene Datei auf Grund deiner Beschreibung zu erstellen, die dann vielleicht ungefähr das macht, was du möchtest. Du hast diese Datei schon, also lade sie bitte hier hoch.

 

So habe eine Bsp datei nun angefügt.

 

Hallo Bishu,

ich habe das mal mit deiner Datei getestet, und nachdem ich die Variable Arg1 als String deklariert hatte (was du nicht hattest), lief das Makro problemlos durch und erzeugte die Datei.

Gewöhne dir bitte an, am Anfang jedes Codes die Zeile Code:

einzufügen, damit solche vergesenen Deklarationen gar nicht erst passieren.
Das kannst du übrigens im VBA-Editor dauerhaft einstellen:

 

Vielen Dank für die schnelle Antwort und den Tipp.
Leider ist das problem immer noch da undzwar möchte ich nicht das er mich nach dem Speicherort der Exceldatei fragt sondern nach dem der Textdatei.

Zweitens: der Name aus der Zelle vorgeben funktioniert auch nicht.

Danke schonmal

 

Hallo Bishu,

Das verstehe ich nun gar nicht. Die Textdatei erstellt du doch gleich am Anfang mit Code:

Das ersetzt du einfach durch Code:

und den SaveAs-Dialog am Schluss lässt du weg. Code:

 

Das ersetzt du einfach durch Code:

und den SaveAs-Dialog am Schluss lässt du weg. Code:

 

Hallo Bishu,

Warum denn das?

Was spricht denn dagegen, dass der Benutzer am Anfang den Namen der Datei festlegt und dabei der Vorschlag aus einer Zelle als Default vorgegeben wird? Und wenn der Name nur als Vorschlag vorgegeben wird, kann der Benutzer ihn doch auch ändern! Code:

Mit dem SaveAs-Dialog speicherst du die aktuelle Mappe (oder ein Tabellenblatt), aber nicht eine Textdatei, in die du schreibst.

 

Hallo Bishu,

hier ein anderer Ansatz:

Code:

Bei diesem Beispiel öffnest Du Notepad und übergibst die Daten an ein "nicht im Vorfeld" gespeichertes Fenster in Notepad. Im weiteren benutzt Du den "Speichern unter" -Dialog von Notepad.

Viele Grüße
Hauke

 

Mit dem SaveAs-Dialog speicherst du die aktuelle Mappe (oder ein Tabellenblatt), aber nicht eine Textdatei, in die du schreibst.

Guten Morgen,

also das der Dateiname als Default angegeben wird funktioniert bisher nicht, der Benutzer kann den namen gerne ändern aber es soll beim speichern schon ein Wert aus einer Zelle als Vorschlag da stehen.
Es geht mir nur um die Textdatei da dieses Excelprogramm sehr viele Textdateien ausgeben soll und beim erstellen möchte ich dann das er mich nach dem Speicherort der Textdatei fragen soll. Das Excelprogramm kann ich nachdem ich die ganzen Textdateien erstellt habe selber speichern und schließen.

Gruß Bishu

 

Bei diesem Beispiel öffnest Du Notepad und übergibst die Daten an ein "nicht im Vorfeld" gespeichertes Fenster in Notepad. Im weiteren benutzt Du den "Speichern unter" -Dialog von Notepad.

Viele Grüße
Hauke

Hallo,

vielen Dank für die Hilfe, leider funktioniert das nicht da ich das Save-As dialog für die Textdatei brauche und im Save-As dialog soll schon ein Vorschlag Name aus einer Zelle stehen.

Viele Grüße
Bishu

 

Hallo Bishu,

Irgendwie redet man bei dir gegen eine Wand. Der SaveAs-Dialog bezieht sich auf die Excel-Datei. Die Textdatei brauchst du nicht zu "saven" - beim Anlegen der Datei in der Zeile Code:

legst du den Namen und den Ordner der Textdatei fest, in die deine Ausgabe erfolgt. Da wird nicht mehr "gesaved"!
Du könntest allerdings am Anfang einen FileDialog(msoFileDialogFolderPicker) einbauen, so dass der Anwender das Verzeichnis auswählen kann (in rot die Änderungen zum bisherigen Code): Code:

 

legst du den Namen und den Ordner der Textdatei fest, in die deine Ausgabe erfolgt. Da wird nicht mehr "gesaved"!
Du könntest allerdings am Anfang einen FileDialog(msoFileDialogFolderPicker) einbauen, so dass der Anwender das Verzeichnis auswählen kann (in rot die Änderungen zum bisherigen Code): Code:

Perfekt das war genau das was ich haben wollte. Vielen Dank!!!

 

Hallo,

habe noch zwei kleine probleme, die mich aber schon wieder den ganzen Tag gekostet haben.
Undzwar möchte ich das die Spalte C alle Dezimalzahlen nicht mit Komma sondern Punkt trennt. Habe gelesen das man das über die Ländereinstellung machen kann, leider geht das in meinem Fall nicht da die Datei von vielen Computern und Benutzern verwendet wird. Gibts da evtl. ein VBA-Code?

Das zweite steckt in der Zeile N22 undzwar möchte ich eigentlich das hier aus der Spalte H gelesen wird ob da was drin steht und wenn ja soll er alle Zeilen in der Spalte kopieren und in die Zeile N22 einfügen also diese dann um die länge der Zeilen nach unten verlängern.
Vielen Dank euch schonmal :-))

Hier noch eine Datei die abgespeckt wurde :

 

Hallo Bishu,

Das geht so: Code:

Ich hoffe, ich habe das richtig verstanden. Das würde dann so gehen: Code:

Das Ergebnis sähe dann so aus: