Clever-Excel-Forum

Hi zusammen,

wie liegt hier der Fehler? Mir wird o.g. Fehler angezeigt und gelb markiert wird Sub und End Sub und nicht die betroffene Zeile.


Die einzigen if Sätze im Sub sind folgende

Dim Msg, Style, Title, Response
    Msg = "Beinhaltet die Sendung Gefahrgut?"
    Style = vbYesNo
    Title = "Gefahrgut"
   
    Response = MsgBox(Msg, Style, Title)
   
    If Response = vbYes Then Range("AA1").Value = "30" Else Range("AA1").Value = "0"
   
    If Response = vbYes Then
   
    Dim Mes, Syl, Tit, Res
    Mes = "Der Preis erhöht sich um 30 €."
    Syl = vbOKOnly
    Tit = "Gefahrgut"
   
    Res = MsgBox(Mes, Syl, Tit)
   
    Else
   
    Dim Mss, Syy, Tii, Ree
    Mss = "Der Preis bleibt unverändert."
    Syy = vbOKOnly
    Tii = "Zwischenergebnis"
    Ree = MsgBox(Mss, Syy, Tii)
   
    End If
   
    If Response = vbYes Then
   
    Dim Jaa, Jab, Jac, Jad
    Jaa = "Beinhaltet die Sendung mehr als 10 Positionen?"
    Jab = vbYesNo
    Jac = "Extrapositionen"
    Jad = MsgBox(Jaa, Jab, Jac)
    
If Jad = vbYes Then Application.Run "'Tyco Expressberechnung1.xlsm'!Exx"

    MsgBox "Der Endbetrag lautet " & Round(Range("AA13"), 2) & " €.", vbOKOnly, "Endbetrag"

....

If Not IsEmpty(Range("D7").Value) Then
    Application.Run "'Tyco Expressberechnung1.xlsm'!Auftragsnummer"
    Application.Run "'Tyco Expressberechnung1.xlsm'!Endpreis"
    Application.Run "'Tyco Expressberechnung1.xlsm'!Datum"
    Application.Run "'Tyco Expressberechnung1.xlsm'!GG"
    Application.Run "'Tyco Expressberechnung1.xlsm'!ExPo"
    Application.Run "'Tyco Expressberechnung1.xlsm'!ExBe"
    Application.Run "'Tyco Expressberechnung1.xlsm'!Benutzer"
    Application.Run "'Tyco Expressberechnung1.xlsm'!KommiPreis"
   



Seht ihr da was?


Vielen Dank und Grüße
Yannick P.

Hi,

   If Response = vbYes Then
   
    Dim Jaa, Jab, Jac, Jad
    Jaa = "Beinhaltet die Sendung mehr als 10 Positionen?"
    Jab = vbYesNo
    Jac = "Extrapositionen"
    Jad = MsgBox(Jaa, Jab, Jac)

End If
    
If Jad = vbYes Then Application.Run "'Tyco Expressberechnung1.xlsm'!Exx"

    MsgBox "Der Endbetrag lautet " & Round(Range("AA13"), 2) & " €.", vbOKOnly, "Endbetrag"

....

If Not IsEmpty(Range("D7").Value) Then
    Application.Run "'Tyco Expressberechnung1.xlsm'!Auftragsnummer"
    Application.Run "'Tyco Expressberechnung1.xlsm'!Endpreis"
    Application.Run "'Tyco Expressberechnung1.xlsm'!Datum"
    Application.Run "'Tyco Expressberechnung1.xlsm'!GG"
    Application.Run "'Tyco Expressberechnung1.xlsm'!ExPo"
    Application.Run "'Tyco Expressberechnung1.xlsm'!ExBe"
    Application.Run "'Tyco Expressberechnung1.xlsm'!Benutzer"
    Application.Run "'Tyco Expressberechnung1.xlsm'!KommiPreis"

End If

Hi, 

super, funktioniert.

Danke dir.
Yannick P