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

PHP:

         Dim lngZeile As Long
For lngZeile = "'Kompensation Fenster 1'!" 5 To 17
nur in ComboBox.Liste eintragen wenn kein Fehler in der laufenden Zelle steht
If Not IsError(Cells(lngZeile, 1)) Then ComboBox1.AddItem Cells(lngZeile, 1)
Next lngZeile


 

Wenn du dich auf ein bestimmtes (und nicht das gerade aktive) Tabellenblatt beziehen willst, dann kannst du die With-Anweisung verwenden:

Code:

Beachte jeweils den Punkt (.) vor Cells - damit beziehst du die auf das Objekt, welches in der Code-Zeile With .... steht. Wenn du diesen Punkt weglässt, setzt Excel die Bezüge auf das gerade aktive Tabellenblatt und das kann zu unerwünschten Ergebnissen oder gar Laufzeitfehlern führen.

 

Ne, irgendwas fehlt hier noch.

Vorgabe.jpg

wenn ich nun meine Daten in die Form eingebe, bleibt die Combo leer.

Ich weiß nicht, ob ich mich richtig ausgedrückt habe. Also in der UserForm sollen halt die Werte eingegeben werden und durch drücken auf "Daten übernehmen", sollen die Werte halt in die Tabelle bzw. Tabellenblätter übermittelt werden.

Eine Combobox in dieser UserForm soll eine Liste aufzeigen, welche sich allerdings erst durch einen Wert aus dieser UserForm ermittelt.

Das Problem ist ja, dass der Wert erst übermittelt wird, sobald man alle Daten übernehmen drückt.

Die TextBox sollte wohl den Wert am besten nach drücken von "Enter" auf der Tastatur übernehmen.

 

Excel kann ein Bild leider nicht in eine funktionierende Arbeitsmappe umwandeln und ohne den Aufbau deiner Tabellenblätter zu kennen kann man nur raten. Lade deine Mappe mit dem aktuellen Stand hoch, dann kann man vielleicht besser nachvollziehen was du erreichen willst.

 

Ich denke ich brauche diese Funktion.

TextBox.ControlSource-Eigenschaft

Wie verknüpfe ich die Zelle in "Tabelle2!I16 mit der TextBox13?

PHP:

         TextBox13.ControlSource = "'Zusammenfassung Messwerte'!I16"


 

Wenn du denkst, dass du diese Funktion brauchst, dann versuche es damit.

 

also damit komme ich der Vorstellung viel näher

PHP:

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


 

Ändere in meinem Code aus Beitrag von 14:38 diese Zeile:

Code:

 

Meinst du so?

PHP:

         Dim lngZeile As Long
With Worksheets("Kompensation Fenster 1")
For lngZeile = 5 To Worksheets("'Zusammenführung Messwerte'").Range("j16").Value
If Not IsError(.Cells(lngZeile, 1)) Then ComboBox1.AddItem .Cells(lngZeile, 1)
Next lngZeile
End With


 

Beim Tabellennamen musst du die Apostrophe weglassen - in einem VBA-Bezug auf ein Tabellenblatt ist das nicht notwendig, nur in Formelbezügen.

 

PHP:

         Dim lngZeile As Long
With Worksheets("Kompensation Fenster 1")
For lngZeile = 5 To Worksheets("Zusammenführung Messwerte").Range("j16").Value
If Not IsError(.Cells(lngZeile, 1)) Then ComboBox1.AddItem .Cells(lngZeile, 1)
Next lngZeile
End With


 

J16 in deiner hochgeladenen Arbeitsmappe ist leer und Excel kann nicht von 5 bis LEER zählen - dazu wird logischerweise eine Zahl benötigt.

 

J16 bekommt ja auch erst in der UserForm einen Wert.

Hier nochmal die aktuelle Datei

TEST.xlsm

Stand:
- Auf Blatt Temperatur 20 Grad gehen und auf Vorgabe klicken
- Combobox anklicken ->>> jetzt ist die Liste voll mit "#WERT"
->sollte aber jetzt leer sein, da man noch keine Angaben gemacht hat!

- Temp.MIN (z.B. 16 Grad) eingeben
- Temp.Max (z.B. 45 Grad) eingeben
- Grad-Schritte (z.B. 1,5) eingeben
->Combobox hat jetzt eine Liste mit Werten drin.
Diese Werte gehen aber aktuell auch ÜBER den Wert von Temp.MAX und das sollte es nicht!
-->>Die ComboListe ist auf dem Blatt "Kompensation Fenster 1". Dieses Blatt wird erst sichtbar, wenn man auf der UserForm den Haken
bei Fenster 1 rein macht!!!

 

Ohne deine Mappe jetzt angesehen zu haben, würde ich anhand dieses Zitats aus deinem Beitrag schon mal folgendes festellen müssen:

Wenn du den Wert erst in die Zelle einträgst, wenn etwas im UserForm steht, dann kannst du den anderen Code, der den Wert aus J16 für die Schleife benötigt nicht schon VORHER ausführen wollen, denn - wie ich schon geschrieben habe und du es selbst erlebt hast: ist die Zelle J16 LEER, dann gibt es den bekannten Fehler. Entweder du führst den Code, der J16 als Variablen Wert benutzt, erst aus NACHDEM der Zahlenwert in J16 steht, oder - wenn du den Code vorher ausführen willst - dann musst du den Inhalt aus dem UserForm-Steuerelement nehmen. Dabei aber darauf achten, dass tatsächlich dort ein Zahlenwert steht - sonst passiert dasselbe in Grün.