Hallo ihr,
folgendes Problem:
In einem Program soll die Nachhallzeit in einem Raum berechnet werden. Um die Beschaffenheit der Wände, Decke & Boden einzugeben werden Comboboxen (6 Stück) mit vorgegebenen Einträgen verwendet. In Abhängigkeit zu der abgefragten Frequenz soll in der Excel Tabelle nach dem Eintrag aus der Combobox gesucht werden und dann je nach Frequenz 1 Spalte für 125Hz, 2 Spalten für 250HZ, 3 Stellen für 500Hz usw rechts von der "gefundenen" Zelle aus, der Nachhallwert eingelesen und in eine Variable gespeichert werden.
Das gleiche Passiert auch noch mit den Werten der Störfaktoren wie Bilder an den Wänden. Die selbe Prozedur soll auch hier angeand werden.
Leider funktioniert das jedoch nciht so wie ich es mr vorgestellt habe. Meine Vermutung war, dass ich die Variablen der Objekte falsch definiert habe. Aber seht am besten selbst.
Die Abkürzungen: CB=Combobox, BT = Bauteil, Stör = Störfaktor, OB=ObjektBox.
For i = 1 To 6
OB(i) = UserForm1.Controls("OB" & i).Value
If OB(i) = True Then
For j = 1 To 6
CBBT(j) = UserForm1.Controls("CBBT" & j).SelText
CBStör(j) = UserForm1.Controls("CBStör" & j).SelText
For lauf = 1 To 49
If CBBT(j) = Cells(lauf, 1) Then
Oberfläche(j) = Cells(lauf, 1).Offset(0, i)
End If
If CBStör(j) = Cells(lauf, 1) Then
Störfläche(j) = Cells(lauf, 1).Offset(0, i)
End If
Next lauf
Next j
End If
Next i
LG
Dennis
|