Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1372to1376
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Alternative im Programm

Alternative im Programm
26.07.2014 23:42:14
Oliver

Hallo
In einem Programmcode wird eine andere Tabelle aufgerufen.
Wird die Tabelle ausgesucht und angeklickt, alles gut.
Wird aber im Auswahl-Fenster für Tabelle öffnen auf Abbrechen geklickt - Fehlermeldung.
Mein Problem, ich finde nicht die richtigen Stichwörter, um im Archiv eine Lösung zu finden. Besser noch, gleich ein Programmbeispiel, wie der Abbruch in einen alternativen Teil umgelenkt werden kann. Bsp. zum Sub End oder Goto ...
...
Set wbZiel = ThisWorkbook.Worksheets(2)
Dim Daten As Variant
Daten = Application.GetOpenFilename("Excel-Arbeitsmappe (*.xlsb), *.xlsb", , "Rohdaten auslesen")
' Hier wäre eine "Umleitung" gewünscht, wenn im Auswahlfenster auf Abbrechen geklickt wird.
Workbooks.Open Daten
Set wbQuelle = ActiveWorkbook.Worksheets(2)
With wbQuelle
...
Gern auch Verweise,
wie oder wo ich nachschauen kann.
Danke - Oli

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alternative im Programm
27.07.2014 00:35:17
Nepumuk
Hallo,
so:
Dim Daten As Variant
Daten = Application.GetOpenFilename("Excel-Arbeitsmappe (*.xlsb), *.xlsb", , "Rohdaten auslesen")
If Daten <> False Then
    
    'Dein Programm
    
End If

Gruß
Nepumuk

Anzeige
AW: Alternative im Programm
27.07.2014 10:52:06
Oliver
Guten Morgen Nepumuk
Die Richtung ist gut, aber die Funktion verhält sich umgekehrt.
Beim Abbruch will das Programm fortfahren und bei einer Tabellen-Auswahl springt es zum Ende.
Danke für Deine Gedanken. Oli

Set wbZiel = ThisWorkbook.Worksheets(2)
Dim Daten As Variant
Daten = Application.GetOpenFilename("Excel-Arbeitsmappe (*.xlsb),  *.xlsb", , "Rohdaten  _
auslesen")
If Daten  False Then      'Wenn im Auswahlfenster abgebrochen wird
GoTo Abbruch
End If
Workbooks.Open Daten
Set wbQuelle = ActiveWorkbook.Worksheets(2)
With wbQuelle

Anzeige
Danke - erledigt
27.07.2014 11:00:00
Oliver
Hallo Nepumuk,
habe Deinen Vorschlag erst jetzt besser verstanden.
Der Eintrag erledigt alles selbst, das GoTo braucht es gar nicht.
Am Ende des Programms das End If gesetzt und es arbeitet nach meinem Wunsch.
Hat sich also erledigt.
Oliver

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige