Office: (Office 2013) Ganze Spalten mit einer Checkbox aus-/einblenden (VBA?)

In deiner Codezeile steht

Code:

was einen Fehler auslöst, wenn die Zelle leer ist. Benutze stattdessen z.B. CDbl("TextBox"). Du musst aber prüfen - wie schon geschrieben - ob in der TextBox tatsächlich ein numerischer Wert steht und nicht z.B. "AA" - also If IsNumeric("TextBox") Then.... und dann die Schleife von 5 to CDbl("TextBox")

 

sorry, dass ich so Pflegefall hier bin.

Meinst du so?

PHP:

         If IsNumeric("textbox14") Then


Dim lngZeile As Long
With Worksheets("Kompensation Fenster 1")
For lngZeile = 5 To CDbl("TextBox14")

If Not IsError(.Cells(lngZeile, 1)) Then ComboBox1.AddItem .Cells(lngZeile, 1)
Next lngZeile
End With

End If


 

Also so müsste das aussehen:

Code:

 

Die Combobox ist mit diesem Code aber leer

 

In deiner Mappe finde ich den Code nicht, der mit For lngZeile = 5 To beginnt - deshalb kann ich nichts testen.

 

TEST.xlsm

 

Der Code im Initialize-Ereignis nützt so nichts, weil in diesem Fall die TextBox logischerweise immer leer ist - damit beißt sich die Katze in den Schwanz. Da passt also einiges überhaupt nicht zueinander und du musst dir erst einmal klar darüber werden, was du überhaupt erreichen willst: wann soll die Combobox denn nun gefüllt werden? Beim Start des UserForms haben deine Zellen in Spalte A der Tabelle "Kompensation Fenster 1" alle #WERT als Inhalt, weil die Zelle J16 in Tabelle "Zusammenführung Messwerte" leer ist - also brauchst du die ComboBox auch nicht füllen. Wann und wie soll denn ein Wert in J16 eingetragen werden, damit nicht mehr in allen Zellen #WERT steht? In diesen Code, der diese Zelle befüllt, musst du die Schleife für das Füllen der ComboBox schreiben.

 

Die Box soll sich füllen, sobald ich in der UserForm die Werte
- Temp.MIN
- Temp.MAX
- Grad-Schritte

eingebe!
Das tut sie ja auch mit diesem Code:

PHP:

         ComboBox1.RowSource = "'Kompensation Fenster 1'!A5:A124"


 

Ich habe jetzt einiges an deinem Konzept geändert:

1. es gibt keine Zellverknüpfung der TextBoxn 13 bis 15 zu den Zellen mehr - stattdessen werden die TextBoxen beim Initialisieren des UserForms aus den Zellen gefüllt. Gleichzeitig werden bei Veränderungen im UserForm in diesen 3 TextBoxen diese Veränderungen sofort in die Zellen im Tabellenblatt übertragen

2. die TextBoxen 3 bis 12 sind nun standardmäßig auf Locked = True eingestellt. Beim Starten des UserForms wird geprüft, welche CheckBoxen aktiv sind und danach werden die entsprechenden TextBoxen auf Locked = False gesetzt

3. bei Klick in die ComboBox wird diese aus der Tabelle "Kompensation Fenster 1" gefüllt.
Das war ein Trugschluss, dass die ComboBox bis zum Wert aus J16 gefüllt werden muss - in J16 steht ein Temperaturwert und nicht bis zu diesem muss die ComboBox gefüllt werden sondern bis zur letzten Zeile in Spalte A Tabelle "Kompensation Fenster 1" (wie wir das schon mal zu Anfang hatten), in der durch deine Formeln Zahlen stehen.

 

Hallo,

also der ganze Code ist jetzt auf jeden Fall viel aufgeräumter und die Funktionen funktionieren besser. Vielen dank dafür *dance

zu Punkt 3:

Ist es also nicht möglich die Liste abzufragen, die im Blatt "Kompensation.."
grade aktiv ist, also nicht grau hinterlegt ist, wenn man Angaben zu Temp.MIN, MAX und den Grad-Schritten macht.

Denn für diese bedingte Formatierung (Zellen grau formatieren), sage ich ja auch, WENN J16 kleiner als meine Zelle, dann färbe sie grau.

Genauso könnte man doch sagen, "Zeige alle Zellen die zwischen Temp.MIN und MAX liegen". Oder stelle ich mir das zu einfach vor!?

P.S.: Was ich allerdings nicht verstehe, ist, warum meine alten bedingten Formatierungen auf dem Blatt "Kompensation.." nicht mehr über die UserForm steuerbar sind. Die Formatierungen funktionieren jetzt nur noch, wenn auf dem Blatt "Zusammenführung..." die Werte
manuell in die Zellen eintragen. Obwohl ja die Werte aus der Form in diese Zellen übertragen werden.

 

Hi,

sicher kann man vieles machen, aber dazu muss man genau wissen, was das Ziel sein soll - das kennst aber nur du *wink.gif*

Es sollen in der ComboBox also von Zeile 5 an abwärts nur die Werte aufgelistet werden, die

 

Richtig *top

 

Hi,

dann test mal diesen Code:

Code:

Du solltest aber im UserForm noch prüfen, ob die der TextBox-Inhalt für Minimum < dem der TextBox für Maximum ist - andernfalls könnte es möglicherweise zu Problemen führen.

 

Jaaaa, perfekt, genau das wollte ich!!! *knuddel *10points *top *happy

Wie Checke ich das denn ab, dass noch temp.max wirklich kleiner wie temp. min ist?

Das einizige Problem dabei ist, dass die Comboliste dann leer bleibt, wenn ich Temp.min größer wähle wie max.

Ist glaube ich nicht so tragisch, solange ich keinen Laufzeitfehler dabei kriege.

Was mir aber nicht gefällt ist, dass meine bedingte Formatierung aus dem Blatt "Kompensation..." nicht mehr funktioniert, obwohl die Bedingungen aus die Zellen noch da sind. Nur komischerweise realisiert Excel das nicht mehr, dass in den Zellen sich doch Werte für die Bedingung befinden.

 

Hi,

beim Eintragen in die TextBoxen kann man ganz einfach prüfen, welche von beiden größer bzw. kleiner ist (rot markierter Teil):

Code:

Für die TextBox13 der Code dann analog.


Das Eintragen der TextBox-Inhalte löst für die bedingte Formatierung anscheinend keine Neuberechnung im Tabellenblatt aus. Dem kann man aber Abhilfe schaffen, indem man eine Neuberechnung auslöst (blau markierter Teil)