vielleicht kann mir einer bei meinem Problem helfen.
Ich möchte, dass wenn auf Tabellenblatt "Eingabe" bei G11 der Name "Neubau" erscheint automatisch auf dem Tabellenblatt "Vorbelegung" die Werte bei J5 und K5 gelöscht werden ohne das die Ansicht zum Tabellenblatt "Vorbelegung" wechselt.
Meine Version geht leider nicht.
mfg
Edmund
Private Sub Neubau_Beitragssatz_löschen()
If Sheets("Eingabe").Range("G11") = "Neubau" Then
Sheets("Vorbelegung").Range("J5:K5").Select
ActiveSheet.Unprotect
Selection.Locked = False
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("J5").Select
Selection.ClearContents
Range("K5").Select
Selection.ClearContents
ActiveSheet.Unprotect
Range("J5:K5").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub