Microsoft Excel

Herbers Excel/VBA-Archiv

Alternative im Programm

Betrifft: Alternative im Programm von: Oliver
Geschrieben am: 26.07.2014 23:42:14


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

  

Betrifft: AW: Alternative im Programm von: Nepumuk
Geschrieben am: 27.07.2014 00:35:17

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


  

Betrifft: AW: Alternative im Programm von: Oliver
Geschrieben am: 27.07.2014 10:52:06

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
...



  

Betrifft: Danke - erledigt von: Oliver
Geschrieben am: 27.07.2014 11:00:00

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


 

Beiträge aus den Excel-Beispielen zum Thema "Alternative im Programm"