ich erfasse im Code des "übernehmen" Buttons einer Userform über eine Input Box Werte (Bezahlung von freien Mitarbeitern) für ein Array, das ich anschliessend in eine Tabelle schreibe.
In der Input Box liefere ich dem Anwender Informationen (die geleisteten Stunden), die ihm bei der Entscheidung welchen Betrag er bezahlen will, helfen sollt. Aussserdem wird die Input Box mit einem Vorschlag für dem Betrag vorbelegt.
Der Code funktioniert genau so wie ich das will. Einziges Problem: ich habe auch nach langer Recherche keinen Weg gefunden, wie ich den Abbrechen Button in der Input Box los werden kann. Anscheinend geht das nicht. Und ich will dem Anwender an dieser Stelle nicht die Möglichkeit geben abzubrechen oder versehentlich abzubrechen.
Die Fehlermeldung beim Abbrechen fange ich mit On Error Resume Next ab.
Alternativ könnte ich das wohl (?) über eine Userform machen. Aber ich weiß nicht wie.
Hier der Auszug aus meinem Code, der die oben beschriebene Funktionalität abbildet. Wie gesagt,,, der Code funktioniert. Bis auf den lästigen Abbrechen Button.
For I = 0 To LetzteGefuellteZeile - 3
BezahlungVorschlag = Stunden(I) * Stundensatz
If BezahlungVorschlag > 60 Then
BezahlungVorschlag = 60
End If
On Error Resume Next
Bezahlung(I) = InputBox("Ehrenamtlicher " & Ehrenamtliche(I) & " hat diesen Monat " & vbLf & vbLf & Stunden(I) & vbLf & vbLf & _
"Stunden gearbeitet. Geben Sie im Feld unten die Vergütung ein ", Default:=BezahlungVorschlag)
Next I
Wie kann ich das mit einer Userform realisieren? Ich habe leider gar keine Idee.
Danke für einen Codeschnipsel
Liebe Grüße
Klaus