Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
972to976
972to976
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

VBA: XL-Macro für Word ändern

Forumthread: VBA: XL-Macro für Word ändern

VBA: XL-Macro für Word ändern
25.04.2008 11:36:00
urs
Guten Morgen allerseits
ich habe Mühe mit der Anpassung eines Macros für Word. Das Macro soll mir im Windows_Explorer
einen bestimmten Ordner öffnen und ihn anzeigen, damit ich die Datei(en) auswählen kann.
In Excel lautet der Code:
  • 
Sub Allg_Best()
Application.Dialogs(xlDialogOpen).Show "Q:\Produkte\Technik\WN\Allg. Bestimmungen\"
End Sub


    • Wie lautet die Syntax wenn ich aus Word das gleiche möchte?
    Vielen Dank für Eure Hilfe
    Urs

    Anzeige

    4
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: VBA: XL-Macro für Word ändern
    25.04.2008 11:43:45
    Renee
    Hi Urs,
    statt:
    xlDialogOpen
    das:
    wdDialogFileOpen
    GreetZ Renée

    AW: VBA: XL-Macro für Word ändern
    25.04.2008 12:46:00
    urs
    Hallo Renée
    Vielen Dank für den Tip. Bin jetzt aber erst soweit, dass das Explorer-Fenster bei dem unter Word Optionen eingestellten Ordner öffnet. Bei mir jetzt den Ordner "eigene Dateien". 
  • 
Sub Allg_Best()
Application.Dialogs(wdDialogFileOpen).Show "Q:\Produkte\Technik\Weissnorm\Allg. Bestimmungen\"
End Sub


    • Ich muss also noch irgend etwas beim Pfad machen. Den ganzen Pfad nimmt das Macro nicht zur Kenntnis!
    Gruss Urs

    Anzeige
    AW: VBA: XL-Macro für Word ändern
    25.04.2008 13:19:31
    Renee
    Hi Urs,
    Eigentlich ist das hier ja ein Excel-Forum, aber vielleicht so:
    
Sub Allg_Best()
With Application.Dialogs(wdDialogFileOpen)
.Name = "Q:\Produkte\Technik\Weissnorm\Allg. Bestimmungen\"
.Show
End With
End Sub


    GreetZ Renée

    Anzeige
    :-) That's the way I like it :-)
    25.04.2008 17:21:38
    urs
    Hallo Renée
    Echt stark Lady! Vielen Dank, dass Du erbarmen mit mir hattest und auch einen "Nicht Excel" Tip weiter-
    gegeben hast. Meist wende ich mich an Spotlight.de wenn Word anliegt, aber Peter geht in die Ferien.
    Ein sonniges Wochenende wünscht Dir urs

    Forumthreads zu verwandten Themen

    ExitSub beiApplication.Dialogs(xlDialogOpen).Show
    chrissey

    Hallo Leut,
    hab eine Frage. Starte mit Application.Dialogs(xlDialogOpen).Show das Explorerfenster
    um eine Datei zu öffnen, wenn ich aber auf im Fenster keine Datei öffne sondern auf
    Abbruch gehe, dann hätte ich gerne dass das Sub abgebrochen wird.
    Ist das irgendwie zu bewerkste...
    24.02.2010 16:21:27
    Thread-ID: 1141114
    3 Beiträge
    Daten mit Mrakro aus Arbeitsmappe lesen
    Martin

    Hallo,
    ich hatte schon einmal eine Anfrage diesbezüglich hier gepostet und eine Antwort erhalten. Ich habe etwas Zeit benötigt, um mir Gedanken darüber zu machen. Jetzt scheint der alte Thread nicht mehr in der Form hier gespeichert zu sein, dass ich direkt auf ihn antworten kann.
    Ich p...
    24.04.2009 12:41:22
    Thread-ID: 1070867
    1 Beitrag
    Application.Dialogs(xlDialogOpen).Show
    serge

    Hallo Leute
    wie kann ich folgendes anpassen, dass der Pfad vorgeben wird?
    (z.B.: C:\transfer\ablage)
    Application.Dialogs(xlDialogOpen).Show
    danke Serge
    03.12.2009 11:03:38
    Thread-ID: 1121533
    1 Beitrag
    Anzeige
    Datei öffnen
    Klaus

    Hallo liebe Excel-User,
    mit der Anweisung "Application.Dialogs(xlDialogOpen).Show" bekomme ich den Inhalt eines Ordners angezeigt, aus dem ich dann eine Datei per Mausklick öffnen kann. Nach dem Öffnen führt ein über den Makrorecorder aufgezeichnetes Modul eine Aktion aus und es wird ansch...
    04.09.2011 15:04:55
    Thread-ID: 1228577
    10 Beiträge
    Application.Dialogs(xlDialogOpen).Show
    Sebastian

    Hi zusammen, hoffe es kann mir jemand weiterhelfen. Weiss jemand, ob man an den Befehel noch eine Pfadangabe hängen kann?
    Application.Dialogs(xlDialogOpen).Show
    Danke für eure Hilfe. Grüße Sebastian
    12.10.2005 20:34:11
    Thread-ID: 680821
    2 Beiträge
    Dialogfeld per Makro öffnen
    otto

    Hi,
    ich möchte mit folgendem Code nacheinander zwei Dialogfelder mit unterschiedlicher Adresse anzeigen lassen, die Adresse ist aber immer die gleiche. Was ist daran falsch?
    Private Sub Nein_Click() Dim ziel, ziel1 ziel = "C:\Scanner" ziel1 = "\\server\Kundenzeichnungen\" ChDir ziel dl...
    02.03.2006 11:33:04
    Thread-ID: 739412
    4 Beiträge
    Application.Dialogs(xlDialogOpen).show problem
    selo

    hallo an alle
    in meinem Workbook soll der anwender mittels
    Sub weiter() Application.Dialogs(xlDialogOpen).show "*.xls" Workbooks("planung.xls").Sheets("Tabelle1").Activate With Workbooks("planung.xls").Sheets("Tabelle1") .Columns("A:o").Copy Workbooks("tool.xls").Sheets("Tabelle1").R...
    14.11.2006 01:51:14
    Thread-ID: 819399
    5 Beiträge
    Beim Import Datei nicht zweimal öffnen
    maruseru

    Hallo zusammen
    Aufgrund der guten Hilfe hier im Forum benutze ich unenstehenden Code um aus einer zu öffnenden Datei Zeilenweisen Daten aus verschiedenen Arbeitsblätter in einer anderen Datei zu importieren.
    Nun bin ich daran kleine "Unschönheiten" zu beseitigen. So habe ich das Macro k...
    05.09.2007 11:32:00
    Thread-ID: 903752
    3 Beiträge
    Anzeige
    Dateien automatisch öffnen und verarbeiten
    Peter

    Hallo,
    aus einem Unterordner möchte ich automatisch alle vorhandenen Dateien auswählen und öffnen. Leider fehlt mir der entsprechende Code dafür. Hat jemand eine Idee ? Ich weiß, dass es funktioniert, aber leider nicht wie.
    Mein ProgrammCode lautet folgendermaßen:
    Public NameDatAufr...
    15.10.2009 18:33:56
    Thread-ID: 1109887
    2 Beiträge
    Daten übertragen mit Makro 2
    dansmo
    Hallo Zusammen!

    Leider hat ChrisL, der mir bisher geholfen hat keine Zeit mehr.
    Ich hoffe mir kann jemand anderes weiterhelfen.

    Die bisherieg Dikussion befand sich hier:
    http://xlforum.herber.de/messages/311952.html

    Ich fasse meinen „Wunsch“ hier noch mal kurz zusa...
    02.10.2003 00:15:48
    Thread-ID: 317901
    2 Beiträge
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
    Anzeige
    Anzeige
    Live-Forum - Die aktuellen Beiträge
    Datum
    Titel
    14.05.2026 13:31:09
    Zeichen ausblenden
    14.05.2026 09:50:42
    Makro für MacOs
    13.05.2026 19:14:18
    Gleichheitszeichen
    13.05.2026 14:24:56
    VBA Projekt Passwort automatisch eingeben
    13.05.2026 08:49:41
    Reale Berechnung ohne Nachkommawerte
    Keine passende Antwort im Forumarchiv gefunden?
    Stelle deine Frage im Live-Forum