Ich habe mir einen Stundennachweis gebastelt, welcher für In- und Ausland gültig sein soll. Ich habe dazu eine Liste gemacht, um dort zu unterscheiden. Abhängig von dem Inhalt soll eine Eingabe bei der Auslöse möglich sein. Ist aber die Auswahl auf Inland soll der inhalt gelöscht werden und keine Eingabe möglich sein.
Hier der Code fürs sperren:
Private Sub Worksheet_SelectionChange(ByVal Target _
As Range)
Application.EnableEvents = False
If Target.Column = 10 Then
If Range("H3").Value <> "Ausland" Then
Range("B8").Activate
End If
End If
Application.EnableEvents = True
End Sub
Wenn die Eingabe nicht möglich ist, soll der Zellinhalt von J9,J13,J17,J21,J25,J29 und J33 auch gelöscht werden. Für Vorschläge wäre ich sehr dankbar.
MfG
Peter