Ich habe wiedermal eine Frage:
Ich habe auf einem Worksheet 4 Comboboxen (ActiveX Element) die mit 1 Code hinterlegt wurden. Jedes dieser Comboboxen hat eine bestimmte Anzahl an Listenelementen, d.h. je nach dem welche Kombination dieser Listenelement ich anwähle, stellt sich im Worksheet 1 bestimmtes Szenario für eine bestimmte Rechnung, die ich dann durchführen möchte, ein. Zum Beispiel werden bestimmte Comboboxen unsichtbar/sichtbar gemacht (d.h. visible = False/True), bestimmte Zeilen werden versteckt (Hidden) etc.
Problem: Wenn ich die gewünschten Listenelemte in den Comboboxen anwähle verschwinden zuerst die Comboboxen und das gewünschte Szenario erscheint dann erst wenn ich eine Zelle anklicke. Allerdings holpert das Tool später ein bisschen, wenn ich dann die eigentliche Rechnung laufen lasse. Es hat bestimmt was mit diesen Comboboxen bzw. mit dem hinterlegten Code zu tun, das habe ich zig mal ausprobiert.
Könnt ihr mir weiterhelfen? Wisst Ihr um was es geht?
Könnte es sein, dass sich das Problem ergibt, wenn ich eine Combox unsichtbar mache und das Programm nochmals die schon unsichtbare Combobox wieder unsichtbar machen möchte (dies ist so programmiert zurzeit) Probleme kriegt?
Als Beispiel hier ein Auschnitt des Codes:
'Templates ist ein Sheet im Workbook1, Calculation ein anderes Sheet im selben Workbook1
If Sheets("Templates").Range("R7").Value = "Effect" Then
Sheets("Calculation").Range("F30:I30").Value = "Is the an effect 1 or an effect 2?"
Sheets("Calculation").OLEObjects("OtherThanEffect").Visible = True
If Sheets("Templates").Range("R10").Value = "effect 1" Then
Sheets("DNEL Calculation Animal Data").OLEObjects("Dose 1").Visible = False
Sheets("DNEL Calculation Animal Data").OLEObjects("Dose 2").Visible = True
ElseIf Sheets("Templates").Range("R10").Value = "OtherThanEffect" Then
Sheets("DNEL Calculation Animal Data").OLEObjects("Dose 1").Visible = True
Sheets("DNEL Calculation Animal Data").OLEObjects("Dose 2").Visible = False
End If
Sheets("Calculation").OLEObjects("Dose 3").Visible = False
Sheets("Calculation").Rows("60:66").Hidden = False
Sheets("Calculation").Range("B67").Value = "4. Experimental animal"
Sheets("Calculation").Rows("108:112").Hidden = False
Sheets("Calculation").Rows("113:120").Hidden = True
End If
Ich danke für Eure Hilfe,
Daniel