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

Application.Dialogs(xlDialogOpen).show problem

Forumthread: Application.Dialogs(xlDialogOpen).show problem

Application.Dialogs(xlDialogOpen).show problem
14.11.2006 01:51:14
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").Range("b1")
End With
End Sub

die möglichkeit haben eine exeldatei auszuwählen aus der später daten importiert werden.
jedoch stellt sich für mich nun die frage wie ich die Fehlermeldung abfange, falls jemand auf abbrechen drückt und nicht eine bzw. die Planung.xls datei auswählt
ich hoffe ihr versteht was ich meine
gruß
selo
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Application.Dialogs(xlDialogOpen).show problem
14.11.2006 02:06:52
chris-ka
hiho

Sub santiv()
x = Application.Dialogs(xlDialogOpen).Show("*.xls")
If x = False Then
MsgBox "keine Datei gewählt"
Exit Sub
End If
End Sub

AW: Application.Dialogs(xlDialogOpen).show proble
14.11.2006 02:19:02
selo
danke dir chris-ka
funzt perfekt
hast du vielleicht eine idee wie ich eine msgbox anzeigen lassen kann in der Falsche Datei angezeigt wird wenn die aufgerufene datei nicht Planung.xls ist
gruß
selo
Anzeige
AW: Application.Dialogs(xlDialogOpen).show proble
14.11.2006 02:28:05
chris-ka
hiho

Sub santiv()
x = Application.Dialogs(xlDialogOpen).Show("*.xls")
If x = False Then
MsgBox "keine Datei gewählt"
Exit Sub
ElseIf ActiveWorkbook.Name <> "Plannung.xls" Then
MsgBox "falsche datei Bitte........."
ActiveWorkbook.Close savechanges:=False
Exit Sub
End If
End Sub

gruß
chris
Anzeige
Planung.xls nicht Plannung.xls__ot
14.11.2006 02:41:31
chris-ka
zz
Einfach nur perfekt
14.11.2006 02:44:27
selo
danke dir chris
gruß
selo

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
Anzeige
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
Anzeige
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
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
Tabellen Sichern und Wiederherstellen
Michael

Hallo Excel Profi´s,
mit meinen bestehenden Marko´s werden meine 12 Monatstabellen ( Janaur - Dezember ) gesichert und bei bedarf wieder eingelesen. Wie kann ich noch weiter Tabellen sichern lassen bzw. wieder einlesen lassen.
Es würde mich freuen, wenn auch noch z.B. Tabelle1, Tabelle2...
09.12.2006 14:53:24
Thread-ID: 827875
2 Beiträge
Anzeige
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