Ganze Spalte markieren löst Code aus
25.06.2021 15:08:39
Sven1403
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
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