Laufzeitfehler '9'
14.07.2022 17:07:13
Iyvory
ich habe folgendes Problem. Nachdem ich eine If Funktion in VBA erstellt habe, lief zunächst einmal alles unproblematisch. Ich möchte nur eine Msg.Box angezeigt bekommen, wenn in der Tabelle "E-Mail 1" Zelle C15 ein Gewicht ausgewählt wird und dieser größer als das hinterlegte Gewicht in der Tabelle "Kontaktdaten" Zelle H9 ist.
Alles funktioniert eigentlich einwandfrei.
Sobald ich jedoch eine andere Excel Datei öffne (.xlsm), erhalte ich einen "Debuggen" Fehler.
Laufzeitfehler '9':
Index außerhalb des gültigen Bereichs
Möglicherweise kann ich ja angeben, dass dieser VBA Code nur für eine Bestimmte Tabelle gilt. Habe den VBA Code in der Tabelle 12 eingefügt und nicht in irgendeinem Modul. Wenn ich den Code in "Diese Arbeitsmappe" abspeichere erhalte ich keinerlei Reaktion seitens Excel (Code wird nicht ausgeführt).
Private Sub Worksheet_Calculate()
If Worksheets("E-Mail 1").Range("A4").Value = "W e.K." And Worksheets("E-Mail 1").Range("C15").Value > Worksheets("Kontaktdaten").Range("H7").Value Then
MsgBox (" Vorsicht:" & vbCr & vbCr & " Die Maximale Nutzlast bei diesem Anbieter liegt bei 1,1 Tonnen!")
Exit Sub
End If
If Worksheets("E-Mail 1").Range("A4").Value = "UU" And Worksheets("E-Mail 1").Range("C15").Value > Worksheets("Kontaktdaten").Range("H9").Value Then
MsgBox (" Vorsicht:" & vbCr & vbCr & " Die Maximale Nutzlast bei diesem Anbieter liegt bei 1,1 Tonnen!")
Exit Sub
End If
If Worksheets("E-Mail 1").Range("A4").Value = "DD" And Worksheets("E-Mail 1").Range("C15").Value > Worksheets("Kontaktdaten").Range("H10").Value Then
MsgBox (" Vorsicht:" & vbCr & vbCr & " Die Maximale Nutzlast bei diesem Anbieter liegt bei 1,5 Tonnen!")
Exit Sub
End If
End Sub
Ich danke euch im Voraus.Beste Grüße
Iyvory