ich habe folgendes Problem:
In einer Tabelle soll ein Userform geöffnet werden, wenn man in leere Zellen bestimmter Spalten reinklickt (sobald man den ersten Klick reinmacht).
Dies funktioniert auch wunderbar. Jedoch wenn man nun auf z.B. Spalte K draufklickt und damit alle Zellen dieser Spalte markiert, kommt ein Laufzeitfehler 13, Typen unverträglich.
Dies ist der Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target "" Then Exit Sub
If Intersect(Target, Range("K:K, L:L, W:W")) Is Nothing Then Exit Sub
Load UserForm_Nutzerdaten
UserForm_Nutzerdaten.Show
End Sub
Ich hab auch schon probiert das If Target weg zu machen oder was anderes zu probieren wie If Target.Adress = K1 Then Exit Sub. Dann kommt der Laufzeitfehler zwar nicht mehr, aber er öffnet das Userform wenn ich auf K klicke und die ganze Spalte markiere. Analog passiert das auch wenn man Zeilen markiert.Auch probiert habe ich, im Intersect die Range auf K2:K2313321 zu setzen, weil ja Excel eigentlich nur die erste Zelle anspricht wenn man eine ganze Spalte markiert (also K1 wenn man auf K klickt). Hat auch nichts geholfen.
Nun meine Frage. Gibt es eine Lösung dafür? Also kann man den Code ergänzen, sodass der Code in ein Exit Sub geht, wenn man eine ganze Spalte oder Reihe markiert und somit das UserForm nicht öffnet?
Danke vorab für die Hilfe
Gruß Sven