Programmieren - alles kontrollieren 4.938 Themen, 20.667 Beiträge

Verfolgung starten Optionen

"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
In der Werkzeugleiste von VBA gibt es unter weiteren Steuerelementen das ... The Quimp
Hallo The_Quimp ! Zunächst einmal danke für deine schnelle Antwort. Wo ... Mic2004
Die Werkzeugleiste findest du unter : Ansicht Symbolleisten ... The Quimp
Hallo! So richtig mag das bei mir nicht funktionieren. Ich habe so ein ... Mic2004
Das Steuerelement CommonDialog ist zur Laufzeit unsichtbar. Deshalb siehst ... The Quimp
Hallo! Ich wollte die Sache gerade mal an meinem Arbeitsplatzrechner ... Mic2004
Hast du auf dem Rechner eine ältere Version von Excel? The Quimp
Hallo! Ja, ich sagte, wir arbeiten noch mit Excel 2000 . Man kann zwar da ... Mic2004
Workbooks Mappe1.xls .Sheets Nummer des zu verschiebenden Blattes .Move _ ... The Quimp
Genau das funktioniert nicht, weil ich eben keinen Wert Mappe1.xls habe, ... Mic2004
Dann probier mal: a activeworkbook und verwende dann diesen String The Quimp
Hallo! Mal dumm gefragt: Wie verwende ich denn den String a richtig? Kann ... Mic2004
Dim a as string a activeworkbook.name Diese Variable kannst du innerhalb der ... The Quimp
Hallo Quimp, darf ich dich mit einer ähnlich gelagerten Frage belästigen? ... mauszuhaus
Hallo mauszuhaus ! Vielleicht darf ich mich an der Stelle mal einmischen. ... Mic2004
Vielen Dank an Mic2004 für die superschnelle Antwort! Ich mache mich ... mauszuhaus
Hallo! Deinen Worten nach hilft dir mein Tipp weiter? o Noch ein Tipp: Du ... Mic2004
Hallo Mic, ich bin scheint s doch zu dumm, um ein funktionierendes Macro zu ... mauszuhaus
Mic2004 mauszuhaus „Hallo Mic, ich bin scheint s doch zu dumm, um ein funktionierendes Macro zu...“
Optionen

Hallo!

Ich würde dir theoretisch gern helfen aber wie du vielleicht an den langen Zeitabständen meiner Forums-Einträge siehst, ist Zeit bei mir momentan etwas knapp und so ein Profi, dass bei mir alles in Windeseile geht, bin ich dann leider doch nicht...

Ganz begreife ich deinen Fall aber auch noch nicht. Wenn du die zu kopierende Zeile dort hin kopieren willst, wo das erste mal ein anderer Text in Spalte A steht, überschreibst du doch alles, was danach kommt. Ist das richtig und so gewollt? Ansonsten würde ich noch mal auf meine „Idee“ mit dem „Suche die erste leere Zeile“ verweise. Eventuell müsstest du mal versuchen die Variable Zeile noch einmal zu deklarieren. Gib als am Anfang deines Subs mal ein Dim Zeile As Integer und versuche es dann noch einmal.

Ich habe aber jetzt doch mal versucht ein kleines Makro, anhand dem, wie ich es verstanden habe, zusammenzunageln. Sicher kann man das noch ausbauen aber vielleicht hilft es dir als „Sprungbrett“. Es sind einige Notizen eingebaut. Du müsstest es dir aber noch in deine Excel-Tabelle oder in die „Makrosammlung“ von Excel einfügen.

Du kannst dir die Datei unter folgendem Link downloaden. Nachteil ist, dass du dafür nur 48 Stunden Zeit hast. Dann wird sie wieder vom Server gelöscht. Das dürfte aber ausreichen.

http://www.materialordner.de/CKH3F0w7AL5QuE6igMgFstxy7xWxlpZ.html

Also viel Spaß damit...

Grüße,
Mic2004.

bei Antwort benachrichtigen
Hallo! Ich habe mal noch eine andere Frage. Kann man irgendwie Eingabewerte, ... Mic2004
Setz einmal zwei Textfelder und zwei Buttons auf dein Blatt und probier mal ... The Quimp
Sorry, hatte dich falsch verstanden: Dies hier geht: Dim a As String Text ... The Quimp
Hallo! Danke für den Tipp aber so ganz das Ziel ist damit noch nicht ... Mic2004
Hallo! Mal noch eine Frage: Was müsste ich denn als Pfad der Text-Datei ... Mic2004
Na hallo, dachte du lebst nicht mehr : also: Frage 1: Du kannst den Pfad, in ... The Quimp
Hallo! Zu der Pfadangabe: Ich möchte die Dateien aber nun nicht im ... Mic2004
Dann gib entweder den gewünschten Pfad selber in den Code ein. Wenn das ... The Quimp
Hallo! Also ich glaube das mit der TXT-Datei funktioniert jetzt. Ich bin ... Mic2004
Hallo nochmal! Ich habe gleich mal noch eine Frage dazu. Ich würde nun gern ... Mic2004
Natürlich kannst du dies alles auch mit VB 6.0 machen. Dort hast du auch ... The Quimp
Hallo! Also das was wir bisher besprochen hatten, scheint in meinem ... Mic2004