|
Mache ich. In Zelle A47 ist die DropDown-Liste, in der ich drei Auswahlmöglichkeiten habe: "Luftvolumenstrom Reduzierte Lüftung", "Luftvolumenstrom Nennlüftung" und "Luftvolumenstrom Intensivlüftung". Je nach dem, welcher der drei Einträge angeklickt wird, soll in Zelle D47 das Formelzeichen dafür eingetragen werden. Die Formelzeichen enthalten tiefgestellte Buchstaben, deswegen mache ich es über VBA und nicht in der Zelle über eine normale "WENN()"-Abfrage.
Dim Lüftungsstufe As String
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A47")) Is Nothing Then
Else
Lüftungsstufe = Target.Value
If Lüftungsstufe = "" Then
Range("D47").Value = ""
ElseIf Lüftungsstufe = "Luftvolumenstrom Reduzierte Lüftung" Then
With Range("D47")
.Value = "q v,ges,NE,RL ="
.Characters(3, 11).Font.Subscript = True
End With
ElseIf Lüftungsstufe = "Luftvolumenstrom Nennlüftung" Then
With Range("D47")
.Value = "q v,ges,NE,NL ="
.Characters(3, 11).Font.Subscript = True
End With
ElseIf Lüftungsstufe = "Luftvolumenstrom Intensivlüftung" Then
With Range("D47")
.Value = "q v,ges,NE,IL ="
.Characters(3, 11).Font.Subscript = True
End With
End If
End If
End Sub
|