CHHVBScriptEngine (General)(Declarations)'(Declarations) Function GetError GetError = False If err.number > 0 Then MsgBox (Err.Description) GetError = True err.clear End If End Function 'End of (Declarations) buttonOKClickSub buttonOK_Click() ; LOHNFormel.Betrag = editBetrag FormDriver.EndModal (1) End Sub CWLScript OnScriptStartSub CWLScript_OnScriptStart()  If LOHNFormel.ANKonstante (5) = 1 Then LabelSpalte = "A" Elseif LOHNFormel.ANKonstante (5) = 2 Then LabelSpalte = "B" Elseif LOHNFormel.ANKonstante (5) = 3 Then LabelSpalte = "C" Elseif LOHNFormel.ANKonstante (5) = 4Then LabelSpalte = "D" Elseif LOHNFormel.ANKonstante (5) = 5Then LabelSpalte = "E" Elseif LOHNFormel.ANKonstante (5) = 6Then LabelSpalte = "F" Elseif LOHNFormel.ANKonstante (5) = 7Then LabelSpalte = "G" Elseif LOHNFormel.ANKonstante (5) = 8Then LabelSpalte = "H" Elseif LOHNFormel.ANKonstante (5) = 9Then LabelSpalte = "I" Else MsgBox "Die ANKonstante 5 enthlt eine ungltige Zeile (1 - 10): " & LOHNFormel.ANKonstante (5) Exit Sub End If If LOHNFormel.ANKonstante (4) = 1 Then LabelZeile = "1" Elseif LOHNFormel.ANKonstante (4) = 2 Then LabelZeile = "2" Elseif LOHNFormel.ANKonstante (4) = 3 Then LabelZeile = "3" Elseif LOHNFormel.ANKonstante (4) = 4Then LabelZeile = "4" Elseif LOHNFormel.ANKonstante (4) = 5Then LabelSpalte = "5" Elseif LOHNFormel.ANKonstante (4) = 6Then LabelSpalte = "6" Elseif LOHNFormel.ANKonstante (4) = 7Then LabelSpalte = "7" Elseif LOHNFormel.ANKonstante (4) = 8Then LabelSpalte = "8" Elseif LOHNFormel.ANKonstante (4) = 9Then LabelSpalte = "9" Else MsgBox "Die ANKonstante 4 enthlt eine ungltige Spalte (1 - 10): " & LOHNFormel.ANKonstante (4) Exit Sub End If On Error Resume Next Dim appExcel Set appExcel = CreateObject ("Excel.Application") If GetError () Then MsgBox "Excel konnte nicht gestartet werden." Exit Sub End If On Error Resume Next appExcel.Workbooks.Open (CWLStart.AppPath & "biennal.xls") If GetError () Then MsgBox "Das Excel Sheet biennal.xls konnte nicht geffnet werden." appExcel.Quit Set appExcel = Nothing Exit Sub End If myRange = LabelSpalte & LabelZeile On Error Resume Next editBetrag = CStr (appExcel.Worksheets ("Sheet1").Range (myRange).Value) If GetError () Then MsgBox "Die Zelle " & myRange & " konnte nicht gefunden werden." appExcel.Quit Set appExcel = Nothing Exit Sub End If appExcel.Quit Set appExcel = Nothing End Sub UserForm ࡱ> Root Entryi*WJO𷴗efo8CompObj n 0   }&CUserFormR KQDB MS Sans Serif<, 2,(Zeile:"{ 4(Spalte:"{ 4$(Gefundener Betrag: { 4H,g { 4(OK N t(Zeile:N{ 4(Spalte:"{ 4 LabelZeile, 2,LabelSpalteO(28Label3( (editBetrag $(buttonOK (2,Label4(2,Label5O  i*WJOMicrosoft Forms 2.0 FormEmbedded Object Forms.Form.19q