Problem
Ralph
Sub VAT()
Const sngVAT As Single = 0.076
Const strPath As String = "C:\Test\VAT.xlsx"
Dim dblValue As Double
Workbooks.Add
dblValue = 500
With Worksheets("Tabelle1")
.Range("A1") = dblValue
dblValue = dblValue + (dblValue * sngVAT)
.Range("A2") = sngVAT
.Range("A3") = dblValue
End With
ThisWorkbook.SaveAs strPath
End Sub
Leider gibt es bei der Ausführung immer eine Fehlermeldung in der vorletzten Zeile beim strPath, die "Konstanter Ausdruck erforderlich" lautet. Oben ist aber doch der Pfad als Konstante deklariert. Kann mir jemand sagen, warum die Prozedur nicht läuft ?
Gruß aus Bremen
Ralph