Habe leider wieder ein Problem und ich stehe zur Zeit noch am Anfang von VBA.
In dem unten aufgeführten Code gibt es leider einen Fehler am Schluss bei Me.Range("E51:E56").ClearContents
Wenn in der Zelle E50 Sonderkonfiguration steht oder das Feld leer ist, die Felder E50-E56 geleert werden.
Dann noch eine Frage
Wäre es noch zusätzlich möglich, wenn in der Zelle H50 Sonderkonfiguration oder configuration spéciale steht, dass in die Zelle E50 den Wert aus H50 übernimmt und sonst nichts in die Zelle schreibt.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$25" Then
Cells.EntireRow.Hidden = False
Select Case Target.Value
Case "Novatronic XV 80/80", "Novatronic XV 80/70", "Novatronic XV 80/60", "Novatronic XV 80/50", "Novatronic XV 80/49"
Rows("55").EntireRow.Hidden = True
Case "Novatronic XV 35/30", "Novatronic XV 35/35", "Novatronic XV 35/40", "Novatronic XV 35/49", "Novatronic XV 35/50", "Novatronic XV 55/30", "Novatronic XV 55/35", "Novatronic XV 55/40", "Novatronic XV 55/45", "Novatronic XV 55/49", "Novatronic XV 55/55"
Rows("56").EntireRow.Hidden = True
End Select
End If
If Target.Address = "$E$52" Or Target.Address = "$F$11" Then
Range("E54:F54").ClearContents
End If
If Target.Address(0, 0) = "E50" Then
If Target.Value = "standard rechts" Or Target.Value = "standard links" Then
Me.Range("E51:E56").Value = Me.Range("H51:H56").Value
Else
Me.Range("E51:E56").ClearContents
End If
End If
End Sub
LG
Roger