Programmieren - alles kontrollieren 4.934 Themen, 20.613 Beiträge

"Speichern unter..." in Excelmakro mit Visual Basic einfügen?

Mic2004 / 31 Antworten / Flachansicht Nickles

Hallo zusammen!

Ich möchte mir mithilfe von Visual Basic ein kleines Ecxel-Makro basteln, mir dem mal eine TXT-Datei importieren, damit ein Diagramm erstellen und diese dann speichern kann.

Kann mir dazu evtl. jemand eine kurze Anleitung geben, wie man in solch ein Makro mit Visual Basic ein „Öffnen…“ und ein „Speichern unter…“ Fenster einfügt. Sodass der Nutzer die gewünschte TXT-Datei damit suchen und öffnen kann und die fertige Excel-Datei dann auch unter wünschten Namen abspeichern kann.

Schon einmal Danke im Voraus!

Grüße,
Mic2004.

PS.: Ich bin noch etwas Neuling auf diesem Gebiet...

bei Antwort benachrichtigen
mauszuhaus The Quimp „Dim a as string a activeworkbook.name Diese Variable kannst du innerhalb der...“
Optionen

Hallo Quimp,
darf ich dich mit einer ähnlich gelagerten Frage belästigen?
Ich habe ein Macro geschrieben, um in einer Excel-Tabelle eine vorhandene Zeile zu kopieren und sie dann an einer beliebigen Stelle zusätzlich einzufügen.
Das Macro kennt aber nur den absoluten Bezug von der vorhandenen zur neuen Zeile. Ich suche aber die Einfügestelle mit der Maus. Folglich fehlt im Macro die Abfrage: "vor welcher Zeile einfügen"
Dies ist das ganze Problem meiner Frage. Ich hoffe, ein Klacks für einen Crack!tausend Dank!

Inhalt von Macro "Zeile",
Es fehlt jedoch die Benutzerrückfrage: wo soll die kopierte Zeile eingefügt werden?

Sub Zeile()
'
' Zeile Makro
' Makro am 12.06.2007 von Ralf aufgezeichnet
'
' Tastenkombination: Strg+z
'
Range(Selection, Selection.End(xlToRight)).Select (Startpunkt ist eine beliebige Zelle, z.B. A10)
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Rows("15:15").Select (ungelöst: das Ziel sollte eine zu wählende Zelle sein, z.B. vor der Zeile 15)
Selection.Insert Shift:=xlDown
Range("A15").Select (ungelöst: der Cursor sollte anschließend in Spalte A der neu eingefügten Zeile stehen)
End Sub

bei Antwort benachrichtigen