Hallo liebes Forum,
ich verzweifle gerade an einer Aufgabe bei der ich euch um Hilfe bitte.
Ich möchte in Tabelle Abrechnung folgenden Code eingeben der dann eine Zelle in Tabelle Stammdaten überprüft ob eine Zelle einen Wert enthält.Wenn sie leer ist soll ein Wert aus der InputBox übergeben werden.
Die InputBox funktioniert prima aber die Abfrage wird nicht abhängig davon ausgeführt ob die angegebene Zelle in Tabelle Stammdaten leer ist, sondern bei jedem Seitenaufruf.
Was mache ich falsch?
Sheets("Stammdaten").Activate
If IsEmpty(R34) Then MsgBox "Bite gebe den Bruttolohn für Monat Januar ein" Else:
Dim eingabe As String
'InputBox mit eigenem Dialogfeld + Titel + Textfeld
eingabe = InputBox("Zur Berechnung des Durchschnitlichen Stundenlohns wird der Bruttolohn Januar 2021 benötigt", "Bruttolohn Januar 2021")
'Prüfen ob etwas eingetragen wurde
If eingabe = "" Then
'Kein Eintrag
MsgBox "Ohne Eingabe des Bruttolohns funktioniert die Berechnung des Durchschnittslohns leider nicht", vbOKOnly + vbInformation, "Hinweis"
Sheets("Stammdaten").Activate
Range("R34").Value = "0"
Else
'Es wurde etwas eingetragen
MsgBox "Eintrag wurde übernommen", vbOKOnly + vbInformation, "Hinweis"
Sheets("Stammdaten").Activate
Range("R34").Value = eingabe
End If