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