Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1088to1092
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1088to1092
1088to1092
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Exit bei Run-Time error

Exit bei Run-Time error
Marc
Hallo zusammen. Ich möchte das wenn bei dem unten genannten Code einfach auf Cancel gedrückt wird, das Marko beendet wird. Danke.
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.InitialView = msoFileDialogViewList
.Show
datei = .SelectedItems(1)
End With
Gruß
Marc

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

Betreff
Benutzer
Anzeige
AW: Exit bei Run-Time error
21.07.2009 13:57:27
David
Hallo Marc,
die Experten hier werden mich sprichwörtlich steinigen, aber so ginge es:
On Error Resume Next
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.InitialView = msoFileDialogViewList
.Show
datei = .SelectedItems(1)
If datei = "" Then Exit Sub
End With
Gruß
David
ja, ich steinige...
21.07.2009 14:10:14
Luschi
Hallo David & Mark,
das 'On Error Resume Next' ist hier nicht erforderlich und sollte man so oft wie möglich meiden!
So geht's auch: 

With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.InitialView = msoFileDialogViewList
.Show
If .SelectedItems.Count > 0 Then
'eventuell noch Objekt-Variablen deaktivieren
Exit Sub
End If
datei = .SelectedItems(1)
End With
Gruß von Luschi
aus klein-Paris
Anzeige
kleine Korrektur
21.07.2009 14:11:50
Luschi
es muß natürlich heißen: If .SelectedItems.Count = 0 Then
Gruß... Luschi
AW: kleine Korrektur
21.07.2009 14:32:34
Marc
Besten dank für die schnelle Hilfe, hat wunderbar geklappt.

220 Forumthreads zu ähnlichen Themen

PDF'saus Excel per VBA Run-time Error
Martin

Hallo,
ich habe folgendes Problem. Ich habe ein Makro geschrieben, welches automatisch PDF erzeugen soll.
Das zu druckende Sheet ist ein Template, welches sich seine Daten über eine ID zieht. In einem weiteren Sheet möchte ich in einer Spalte über "x" auswählen welche Sheets mit welch...
12.09.2008 10:14:00
Thread-ID: 1009296
5 Beiträge
Anzeige
Runtime Error 9 in leichtem Prog
San

Hallo Excelkollegen,
ich hoffe ihr habt gut geschlafen.
Ich habe nachfolgendes Programm geschrieben.
Ich brauche es um festzustellen, was in einem bestimmten Tabellenblatt die nächste freie Zeile ist.
piofpa und numb wird laut MsgBox korrekt übermittelt.
Den Code habe ich vo...
11.02.2009 03:42:00
Thread-ID: 1049424
7 Beiträge
Run time error 1004 / LastRow /"_Global" failed
Florian

Hi Excelgemeinde!
habe einen komischen, weil neuen Fehler beim bestimmen der letzten Zeile. Letzte Zeile bestimme ich so:
LastRowData = DataSheet.Cells(Rows.Count, 1).End(xlUp).Row - Not IsEmpty(DataSheet.Cells(Rows.Count, 1).End(xlUp)) - 1
Nun kommt seit neuestem die Fehlermeldung<...
29.06.2009 13:26:56
Thread-ID: 1085115
5 Beiträge
Anzeige
excel 2003 ok, doch runtime error in 2007
Deister

Hallo,
Der Text in einer Textbox soll beim Starten der Datei von rot auf schwarz blinken. Dies klappt mit Excel 2003, jedoch wenn jemand die Datei mit Excel 2007 öffnet dann bekommt er ein runtime error.
Was mache ich hier falsch?
Sub StartBlink1()
ActiveSheet.Shapes("Blinkbox")...
22.09.2009 16:35:53
Thread-ID: 1104689
5 Beiträge
Laufzeitfehler 424: Objekt erforderlich
Himmelsbach

Hallo,
Vielen Dank für die Hinweise, hat mir schon sehr weitergeholfen. Ich glaub die groben Sachen sollte ich nun auch gefunden haben, leider hänge ich noch bei folgender Funktion: Public Function readnotchbesser(schluessel As Variant) Dim sarray As Variant 'Array Dim iindex As Integ...
16.03.2010 08:51:32
Thread-ID: 1146080
8 Beiträge
Run-Time Error 1004 unüberwindbare Hürde
André

Hallo zusammen,
nach etlichen, vergeblichen Unternehmungen den "Copy Method of Worksheet Class failed" Fehler
zu beheben bzw. zu umgehen, hoffe ich, dass ihr mir helfen könnt.
Ziel ist es, eine möglichst große Zeitspanne (min. 1/2 Jahr) von täglichen Messdaten auswerten zu könne...
01.01.1970 00:00:00
Thread-ID: 1152653
14 Beiträge
Runtime error 50290
Fettertiger

Hallo zusammen,
bei einem Tool, das bei mindestens 30 Usern problemlos läuft (egal ob unter 2003 oder 2007), kommt es bei einem bestimmten User immer wieder zu einem Fehler mit dem Code 50290 (Application defined or Object defined error). Der Fehler tritt in der untenstehenden Funktion bei...
26.04.2010 15:52:26
Thread-ID: 1153832
3 Beiträge
Fehlermeldung "Run-time Error 13, type mismatch"
b.

Hallo Excel Experten,
ich möchte mit Hilfe der Funktion Auswerten()/Evaluate() ein Summenprodukt innerhalb eines VBA Makros auswerten. Das sieht im Makro so aus:
dbResult = Evaluate("=SUMPRODUCT(('EXP Q'!$B$4:$B$14214=""" & strDiv & """)*" & _
"('EXP Q'!$C$4:$C$14214="""...
19.04.2011 21:28:12
Thread-ID: 1211101
4 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
5
6
4
3
4
7
13
2
3
6
1
6
11
1
10
3
4
6
2
11
4
8
2
1