Bei sowas eigenet sich dann schon Select Case
Option Explicit
Dim Lüftungsstufe As String
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A47")) Is Nothing Then
'...
Else
Application.EnableEvents = False
Select Case Target.Value
Case "Luftvolumenstrom Reduzierte Lüftung"
With Range("D47")
.Value = "q v,ges,NE,RL ="
.Characters(3, 11).Font.Subscript = True
End With
Case "Luftvolumenstrom Nennlüftung"
With Range("D47")
.Value = "q v,ges,NE,NL ="
.Characters(3, 11).Font.Subscript = True
End With
Case "Luftvolumenstrom Intensivlüftung"
With Range("D47")
.Value = "q v,ges,NE,IL ="
.Characters(3, 11).Font.Subscript = True
End With
Case Else
Range("D47").Value = ""
End Select
Application.EnableEvents = True
End If
End Sub
Test hat bei mir funktioniert (in allen 4 Fällen).
|