Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
944to948
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
944to948
944to948
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Run Time Error 13 handeln

Run Time Error 13 handeln
30.01.2008 22:12:13
Florian
Hallo liebes Forum,
hab mal wieder eine Frage:
Meine Prozedur zieht aus Dateinamen jeweils eine fünfstellige Nummer raus, d.h. die Nummer wird nicht eingegeben, sondern kommt automatisch. Es kann nun theoretisch sein, dass die Nummer mal nicht dasteht, für diesen Fall möchte ich einen Schutz einbauen, so dass Fehler- und Fehlerart registriert werden und ein anderer Dummywert verwendet wird. Nun meine Frage: wie kann ich den Fehler (Run Time Error 13) identifizieren?
Danke!

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

Betreff
Datum
Anwender
Anzeige
AW: Run Time Error 13 handeln
30.01.2008 22:42:53
Josef
Hallo Florian
das geht zB. so.
Sub nn()

On Error GoTo ErrHandler

'dein Code

ErrHandler:

If Err.Number = 13 Then
    'was beim Fehler 13 geschehen soll
End If

Err.Clear
End Sub


Gruß Sepp



Anzeige
AW: Run Time Error 13 handeln
30.01.2008 23:43:00
Florian
Hi Sepp,
Danke Dir erstmal. Habs schon ein paar mal probiert, zeigt jetzt einen anderen Fehler an, (Objekt erforderlich). Also, ich habs mir so gedacht: sollte die Ordernummer keine Zahl sein, so soll der Variable Ordernummer der Wert 99999 gegeben werden. Kannste des vieleicht kurz mal beispielhaft reinschreiben? Besten Dank!

Sub DataEinlesen()
Dim OrderNummer as Double
For i = 1 To LastRow
OrderNummer = SheetEinleser.Cells(i, 2)
'  [ hier Error-Handler einbauen, sollte Ordernummer nicht im Dateiname stehen]
Next i
End Sub


Anzeige
AW: Run Time Error 13 handeln
31.01.2008 07:39:00
Josef
Hallo Florian,
Sub DataEinlesen()
Dim OrderNummer As Double

For i = 1 To LastRow
    
    If IsNumeric(SheetEinleser.Cells(i, 2)) Then
        OrderNummer = SheetEinleser.Cells(i, 2)
    Else
        OrderNummer = 9999
    End If
    
    
Next i

End Sub


Gruß Sepp



Anzeige
Danke! oT
31.01.2008 12:16:58
Florian
ff

220 Forumthreads zu ähnlichen Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
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
Array Groesse - Run Time Error 13 Type Mismatch
Christoph

Hallo liebes Forum,
mein Problem ähnelt diesem: https://www.herber.de/forum/archiv/452to456/t455164.htm
Hier mein Code:
Option Explicit
Option Base 1
Sub Test() Dim z As Long Dim arr(10000) As Double Dim dblAverage As Double, dblStDev As Double For z = 1 To 10000 Random...
28.12.2008 17:13:00
Thread-ID: 1035594
6 Beiträge
Anzeige
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
For Each zelle In Range("a2:a1000") erweitern
Karsten

Hallo,
Wenn ich diesen Befehl ausführe befinde ich mich gerade in Tabelle1. Ich möchte aber, dass u.s. Befehl in Tabelle2 ausgeführt wird. Kann mir jemand die Tabelle2 in den Befehl hineinkonstruieren.
Danke.
Gruß
Karsten
Dim zelle As Range
For Each zelle In Range("a2:a...
08.07.2009 10:59:35
Thread-ID: 1087125
3 Beiträge
Seltsame Fehlermeldung: Run-time error 1004
Timo

Hatte jemand schonmal diesen Error habe ich teilweise Ausführen eine Makros, aber teilweise auch, wenn ich Schriftgrößen ändern will):
Run-Time Error 1004:
No more new fonts may be applied to this workbook
Kann man dies irgendwie umgehen?
12.07.2009 21:57:18
Thread-ID: 1088057
4 Beiträge
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ß
M...
21.07.2009 13:57:27
Thread-ID: 1090250
5 Beiträge
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

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
3
4
4
5
6
4
2
3
4
4
13
2
6
3
6
12
1
10
3
9
2
6
3
5
2