Abfrage Werte eingeben
18.11.2019 15:22:40
Stefan
Ich bräuchte Hilfe bei folgender Funktion.
Ich möchte ein Makro erstellen mit einer Abfrage wo ein Popup kommt.
"Frage 1: Wie hoch ist Anspruch1"
Dann soll ein Wert von 1-100 eingegeben werden können und dieser Wert soll sich dann in die Zelle R21 übertragen
"Frage 2: Wie hoch ist Anspruch2"
Dann soll ein Wert von 1-100 eingegeben werden können und dieser Wert soll sich dann in die Zelle R22 übertragen
"Frage 3: Anspruch auf FT"
Da soll dann ein Feld mit der Auswahl Ja oder Nein kommen und das Wort Ja oder Nein soll sich dann in die Zelle R23 übertragen
Direkt danach möchte ich das dieses Makro ausgeführt wird.
Sub Anspruch_Frei()
Application.ScreenUpdating = False
Range("C5").Select
ActiveCell.FormulaR1C1 = "=IF(R[22]C[1]="""",R[16]C[16],R[16]C[16]-R[22]C[1])"
Range("C6").Select
ActiveCell.FormulaR1C1 = _
"=IF((R[-1]C[-1]="""")+(R[-1]C=""""),"""",IF(R[-1]C=0,R[16]C[16])))"
Range("C31").Select
ActiveCell.FormulaR1C1 = _
"=IF((RC[-1]="""")+(R[-4]C[1]=""""),"""",(R[-19]C[17]-R[-4]C[1]))"
Range("G1").Select
ActiveCell.FormulaR1C1 = "TRUE"
Range("J8").Select
ActiveCell.FormulaR1C1 = "4"
Range("B5").Select
Application.ScreenUpdating = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:= _
_
True
End Sub
Danke