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

Kannst du es dir bitte mal selber anschauen.

Vorher war das so:
- dass ich auf dem Blatt "Temperatur 20°C" unten meine benötigten
Checkboxen (Fenster 1,2,...) aktivieren konnte.
- Dadurch wurden mir einfach nur ein paar weitere Blätter eingeblendet
- Auf dem Blatt "Zusammenführung Messwerte" wurden dann weitere
Vorgaben gemacht, welche auf den Blättern "Kompensation 1, 2,..." in
einer Formel verarbeitet wurden.
- Auf dem Blatt "Zusammenführung Messwerte" sind weitere
Checkboxen aufgestellt, welche einfach nur das Vorzeichen in den Formeln
der Blätter "Kompensation 1,2,..." ändern sollten.

Nun habe ich in dieser Datei eine Userform erstellt, auf welcher man die ganzen Vorgaben angeben müsste.

- Und das mit dem Vorzeichen ändern, sollte wohl am besten auf den Blättern "Kompensation 1,2,..." durch ne Schaltfläche gelöst werden.

- Bei der Ausgangstemperatur soll die Temperaturliste aus dem Blatt "Kompenation 1,2,...) auswählbar sein.

Ist es viel Arbeit, dass ganze nun auf die Userform einzustellen?

Ich denke es würde schon reichen, wenn die Angaben aus der UserForm einfach nur in die schon vorhandenen Zellen übertragen wären, damit man nicht noch an den Formeln basteln muss.

Die vorhanden Zellen, wo die Angaben dann abgefragt werden, kann man ja einfach die Schriftart auf weiß setzen um es unsichtbar zu machen, und gut is. Oder was meinst du?

Temperaturkompensation_Vorlage - mit Vorgabe.part01.rar

Temperaturkompensation_Vorlage - mit Vorgabe.part02.rar

Temperaturkompensation_Vorlage - mit Vorgabe.part03.rar

Temperaturkompensation_Vorlage - mit Vorgabe.part04.rar

 

Ich benutze nur das von Windos bereitgestellt Packprogramm und das kann keine rar-Dateien lesen.

Du musst auch nicht die gesamte Originalmappe hochladen, wenn diese zu groß ist - die für das Problem relevanten Daten sind da ausreichend.

 

Sorry kenne mich da nicht aus. Ja die Mappe ist fast 2MB groß.

Wie sollte ich das denn versenden, damit du dir das ganze mal vernünftig anschauen kannst?

Mail?

 

Vielleicht reicht ja, wenn du in einer Kopie deiner Ursprungsmappe nur ein paar Tabellenblätter belässt und in diesen auch nur ein paar Zeilen, die für das Problem notwendig sind um zu sehen, was die CheckBoxen machen sollen.

 

so, jetzt vielleicht
TEST.xlsm

 

Wenn ich das richtig verstehe, handelt es sich um das Tabellenblatt "Zusammenfürhung Messwerte"? Du könntest dort anstelle der CheckBoxen in Zeile 18 das Doppelklick-Ereignis des Tabellenblattes verwenden, welches entweder WAHR oder FALSCH einträgt - dann kannst du alle weiteren Auswertungen, die sich auf diese Zellen beziehen problemlos auch weiter benutzen.
Mit folgendem Code im Codemodul des Tabellenblattes wird immer zwischen WAHR und FALSCH gewechselt und dabei noch die Zellfarbe/Schriftfarbe auf Grün bzw. Rot gesetzt, sodass man den Unterschied auch erkennen kann:

Code:

 

ja schon richtig.
Nein, ich habe die Checkbox bereits durch den Schalter auf dem Blatt "Kompensation 1" ersetzt.

Die Vorlage sollte jetzt so Aussehen, wie in der TEST-Datei.

Es soll halt ne UserForm verwendet werden, wo die Angaben dann in die Tabelle übertragen werden.

Könntest du mir vielleicht erklären, wie ich das hinkriege?

 

Hallo nochmal,

also ich habe jetzt meine Userform erstellt so wie ich sie mir vorgestellt habe.

Vorgabe.jpg

Aber so ganz 100%ig ist das noch nicht.

Folgendes würde ich gerne haben:

Wenn die Chechbox für Fenster 1, 2, ... aktiviert ist, sollen die unteren Textfelder aktiv oder entsprechend deaktiviert sein.

Das klappt aber erst, wenn ich die Checkbox einmal betätigt habe.
Wenn die Userform geöffnet wird, sind die Felder schon aktiv, obwohl die Checkbox deaktiviert ist.

Der Code sieht aktuell so aus:

PHP:

         Private Sub CheckBox1_Click()
If CheckBox1.Value = False Then
TextBox3.Locked = True
TextBox4.Locked = True
TextBox3.BackStyle = fmBackStyleTransparent
TextBox4.BackStyle = fmBackStyleTransparent
End If
If CheckBox1.Value = True Then
TextBox3.Locked = False
TextBox4.Locked = False
TextBox3.BackStyle = fmBackStyleOpaque
TextBox4.BackStyle = fmBackStyleOpaque
End If

Worksheets("Leistungswerte 20°C F1").Visible = Not Worksheets("Leistungswerte 20°C F1").Visible
Worksheets("Leistungswerte 30°C F1").Visible = Not Worksheets("Leistungswerte 30°C F1").Visible
Worksheets("Leistungswerte 40°C F1").Visible = Not Worksheets("Leistungswerte 40°C F1").Visible
Worksheets("Kompensation Fenster 1").Visible = Not Worksheets("Kompensation Fenster 1").Visible
Worksheets("Zusammenführung Messwerte").Columns("B").Hidden = CheckBox1 = False

End Sub


 

Du musst beim Öffnen der Userform (Ereignis UserForm_Initialize)
Deine Steuerelemente entsprechend formatieren (locked, backstyle etc)

 

jo, jetzt hab ichs danke.

Eins hätte ich noch:

Und zwar will ich, dass in der Combobox eine Liste aus einem Tabellenblatt angezeigt werden soll.

Der Code ist ja eigentlich recht einfach, und trotzdem bekommen ich einen Laufzeitfehler 380.

PHP:

         ComboBox1.RowSource = "Kompensation Fenster 1!A5:A17"


 

Da dein Tabellenname Leerzeichen enthält, musst du ihn in Apostrophe setzen:

Code:

 

Korrekt. Das war der Fehler.

Nun ist es aber leider so, wie ich schon sagte, dass sich die Liste erst mit dem Wert der "Temp.MIN" bildet. Und da müsste ich ja zuerst alle Daten übernehmen, damit sich die Liste überhaupt bilden kann.

Aktuell hat die Liste nur #WERT!-Zeilen.

Wie könnte man das lösen?

 

Dann prüfe z.B. in einer Schleife, welche Zellen bereits auswertbare Daten enthalten und weise diese der ComboBx mit AddItem zu anstatt dass du RowSource komplett zuweist.

 

Sorry, ich bin ein totaler Anfänger was VBA angeht.

Könntest du mir bitte eine Schleife erstellen, wie du das meinst!?

 

Nach diesem Prinzip:

Code: