Option
Explicit
Const
SP_LÄNGE
As
Integer
= 4
Const
SP_BREITE
As
Integer
= 5
Const
SP_HÖHE
As
Integer
= 6
Const
SP_WANDDICKE
As
Integer
= 7
Const
SP_AUSSENDURCHMESSER
As
Integer
= 8
Const
SP_INNENDURCHMESSER
As
Integer
= 9
Const
SP_SCHLÜSSELWEITE
As
Integer
= 10
Const
SP_DURCHMESSER
As
Integer
= 11
Const
DICHTE_STAHL
As
Double
= 0.00000785
Sub
Beispiel()
Dim
Zeile
As
Long
Dim
Volumen
As
Double
Dim
Gewicht
As
Double
Zeile = 2
Select
Case
Cells(Zeile, 17)
Case
1
Volumen = Cells(Zeile, SP_LÄNGE) * Cells(Zeile, SP_BREITE) * Cells(Zeile, SP_HÖHE)
Case
2
Volumen = ...
Case
3
Volumen = ...
Case
Else
Volumen = 0
Gewicht = Volumen * DICHTE_STAHL
MsgBox Gewicht
End
Sub