Formel wiederherstellen ?
18.12.2019 07:44:25
Alex
Ich benutze in einen CommandButton um in einer Spalte zu dem Markierten Bereich Einträge zu machen,
Beispiel "U" für Urlaub, jetzt ist es aber so dass dann die Formel die sich in der jeweiligen Zelle überschrieben wird mit dem "U". Das selbe hätte ich jetzt gern so gehabt das es auch einen CommandButton gibt mit dem ich die Formel in dem Markierten Bereich wiederherstellen kann, mit samt den Zellbezügen. Ist das möglich ?
Die Formel wäre:
=WENN(N10=1;"X";WENN(N10=0;"";WENN(N10=2;"X";)*WENN(N10=3;"X";WENN(N10=4;"X";WENN(N10=5;"X"; WENN(N10=6;"X";WENN(N10=7;"X";WENN(N10=8;"X";WENN(N10=9;"X";WENN(N10=10;"X";WENN(N10=11;"X"; WENN(N10=12;"X";WENN(N10=13;"X";WENN(N10=14;"X";WENN(N10=15;"X";WENN(N10=16;"X";WENN(N10=17;"X"; WENN(N10=18;"X";WENN(N10=19;"X";WENN(N10=20;"X";WENN(N10=21;"X";WENN(N10=22;"X";WENN(N10=23;"X"; WENN(N10=24;"X";WENN(N10=25;"X";WENN(N10=26;"X";WENN(N10=27;"X";WENN(N10=28;"X";WENN(N10=29;"X"; WENN(N10=30;"X";WENN(N10=31;"X";WENN(N10=32;"X";WENN(N10=33;"X";WENN(N10=34;"X";WENN(N10=35;"X"; WENN(N10=36;"X";WENN(N10=37;"X";WENN(N10=38;"X";WENN(N10=39;"X";WENN(N10=40;"X";WENN(N10=41;"X"; WENN(N10=42;"X";WENN(N10=43;"X";WENN(N10=44;"X";WENN(N10=45;"X";WENN(N10=46;"X";WENN(N10=47;"X"; WENN(N10=48;"X";WENN(N10=49;"X";WENN(N10=50;"X";WENN(N10=51;"X";WENN(N10=52;"X";WENN(N10=53;"X"; WENN(N10=54;"X";WENN(N10=55;"X";WENN(N10=56;"X";WENN(N10=57;"X";WENN(N10=58;"X";WENN(N10=59;"X"; WENN(N10=60;"X";))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))
Aktuell benutze ich diesen Code um die Einträge in den markierten Bereich zu erstellen:
Private Sub UrlaubGenehmigt_Click()
Antwort = MsgBox("Urlaub im markierten Bereich genehmigen", 292, "Urlaub genehmigen")
If Antwort = vbYes Then
With Selection.Interior
.Pattern = xlSolid
.Color = RGB(0, 255, 0)
.TintAndShade = 0
End With
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
Selection.Value = "U"
End If
End Sub