Hallo Mingos, zunächst mal so:
Sub clean()
Range("C4", "G40").ClearContents
Range("C2").Select
End Sub
Außerdem musst du den Code im Tabellenmodul noch um folgende Zeilen ergänzen (einfach unten nach der letzten Zeile anfügen)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2")) Is Nothing Then
Range("B4").Select
ElseIf Not Intersect(Target, Range("B4")) Is Nothing Then
Range("C4").Select
End If
End Sub
Soweit so gut. Allerdings wird bei mir aufgrund eines VBA-internen Bugs, für den ich nichts kann, durch Ausführen von End Sub alles zurückgesetzt. Bedeutet: In C4 musst du deine Eingabe wie gewohnt mit Enter abschließen. Ich habe in den letzten Tagen versucht diesen Bug zu umgehen, aber keine Chance. Vielleicht tritt das Problem ja bei dir nicht auf. Falls doch musst du wohl damit leben oder C4 manuell anwählen.
Gruß Mr. K.