Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Laufzeitfehler '13'


Betrifft: Laufzeitfehler '13' von: Steffan
Geschrieben am: 26.09.2019 17:14:40

Hallo Gemeinde,

hier mal ein Auszug aus meinem recht langen Makro:

For z = 0 To i - 3 'einzelne hinzugefügte Teile NR
For m = 3 To j - 1 'Position Gesamtstueckliste
If Cells(j + z, 4).Value = Cells(m, 4) Then
If Cells(m, 15).Value = "" Then
Cells(m, 4).Value = Cells(m, 4).Value * Cells(j + z, 4).Value
'^-diese Zeile mein ich
Else
n = 0
Range(Cells(m, 15), Cells(m, 18)) = ""

Cells(m, 4).Value = Cells(m, 4) / n
Cells(m, 4).Value = Cells(m, 4) * Cells(j + z, 4).Value
End If
End If

Next m
Next z


Beim Starten des Makros erscheint die Fehlermeldung "Laufzeitfehler '13' " an der markierten Stelle .. ich verzweifle langsam . Fällt euch etwas ein, was ich falsch gemacht habe?

Gruß
Steffan


  

Betrifft: AW: Laufzeitfehler '13' von: Werner
Geschrieben am: 26.09.2019 17:19:40

Hallo,

ohne die Datei wohl eher nicht.
Schuß ins Blaue: Es steht keine Zahl in der Zelle cells(j + z, 4)

Gruß Werner


  

Betrifft: AW: Laufzeitfehler '13' von: Piet
Geschrieben am: 26.09.2019 21:19:11

Hallo

ich schliesse mich Werner an, in der Zelle muss ein Text oder Satzeichen sein, denn auch 0 verursacht keinen Laufzeitfehler.
Leicht su prüfen mit diesem Befehl vor der Fehler Zeile:
If Not IsNumeric(Cells(2, 4)) Then MsgBox Cells(m, 4).Value & " / " & Cells(j + z, 4).Value: Exit Sub
Dann sieht man ob mit der Zelle was nicht stimmt. Unklar bleibt, warum da ein Text drin steht??

mfg Piet


Beiträge aus dem Excel-Forum zum Thema "Laufzeitfehler '13'"