Automatisches Anlegen eines Toggle-Buttons

Hallo,
ich stehe gerade vor einem kleinen Problem.

In meiner Excel-Datei werden soviele Spalten mit einem Rahmen formatiert, wie es angegeben wird Zeilen von-bis), um Pflichteingaben kennzuzeichnen.


Bei diesen Feldern wird normalerweise manuell ein Zahlenwert eingegeben.
Allerdings könnte auch mal ein klar definierter Text drin stehen ("negativ" bzw. "positiv")

Damit der User, wenn er keinen Wert, sondern nur "negativ" oder "positiv" eintragen nöchte will ich iHm etwas Tipparbeit ersparen.

Dazu möchte ich gerne einen Toggle-Button zur Auswahl dieser zwei Wete anzeigen. In meinem Fall müssten also dieToggon-Button in jeder Zelle des definierten Bereiches erzeugt werden und damit zur Auswahl zur Verfügung stehen. Der ausgewählte Text soll dann in der Zelle erscheinenund eventuell ein weiteres Makro gestartet werden.

Wie könnte ich das hinbekommen?

Ach so, eines wundert mich auch noch sehr. den Zeilenbereich kann man ja hier frei eingeben. Die Zellformatierung soll aber definitiv erst ab der Zeile 7 anfangen, selbst wenn der Startwert kleiner als 7 ist.

Angedacht hatte ich es so:

Ich hatte es probiert mit:


Leider macht mein Excel 2007 aber das aber nicht mit, sondern ignorirt es einfach.an dieser Stelle


Nun hab ich mittels folgender Krücke die Eingabe abgeprüft und im Falle "<7" einfach den Wer der Variable mit 7 überschrieben um auf mindestens 7 zu erhöhen.


Nicht gerade besonders elegant...

Vielleicht hat da auch jemand eine Idee?

Vielen Dank im voraus !!!

Torsten

Sub AddValidation()
    With ThisWorkbook.Sheets("Tabelle1").Range("A1").Validation  
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="negativ,positiv"  
        .IgnoreBlank = True
        .InCellDropdown = True
        .ErrorTitle = "Falscheingabe"  
        .ErrorMessage = "Entweder ""negativ"" oder ""positiv"" eingeben."  
        .ShowInput = False
        .ShowError = True
    End With
End Sub

    For Each Cell In Selection.Cells

Option Explicit

Const StartZeile = 7

Sub Datenübernahme()
    Dim a As Long
    Dim b As Long
    Dim c As Long
    Dim d As Long
    Dim e As Long
    
    a = Range("I1").Value  
    b = Range("J1").Value  
    c = Range("H3").Value  
    d = Range("I3").Value  
    e = Range("J3").Value  
    
    If a < StartZeile Then a = StartZeile
    If b < StartZeile Then b = StartZeile
    
' Pflichtfelder zum Einträgen formatieren  

    With Range("H7:K20")  
        .Borders.LineStyle = xlNone
        .Interior.ColorIndex = xlNone
    End With
    
    With Range(Cells(a, "H"), Cells(b, "K"))  
        .Borders.LineStyle = xlContinuous
        .Interior.ColorIndex = 27
    End With
End Sub