Code funktioniert nur wenn Datenüberprüfung aktieviert wurde
22.11.2025 10:49:08
NicoHendrik
ich habe hier einen Code der aus A1:A16 einen Wert in einer Infobox ausgibt, wenn ich auf eine Zelle in M9:NN88 wo eine Zahl drin steht klicke. Wenn ich die Tabelle starte muss ich erst einmal Datenüberprüfung (ohne was einzugeben) aufrufen dann funktioniert der Code prima. Wenn ich jetzt aber in M9:NN88 was ändere kommt der Laufzeitfehler 1004. Wenn ich aber jetzt wieder die
Datenüberprüfung (ohne was einzugeben) aufrufe funktioniert der Code wieder und die Infobox gibt mir wieder einen Wert von A1:A16.
Bitte um Hilfe
Gruß Nico
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Info wer hat sich eingetragen
If Intersect(Range("M9:NN88"), Target) Is Nothing Then Exit Sub
If Target.CountLarge > 1 Then Exit Sub
If Target > 0 And Target 17 Then
With Target.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = Cells(Target.Value, 1).Value
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Else
Target.Validation.Delete
End If
End SubAnzeige