Hallo ZUsammen
ich benötige bei folgendem Problem Hilfe:
Untenstehender Code funktioniert soweit ohne Probleme
Nun möchte ich aber erreichen, dass der z.B. der Bereich B6:B9 dynamisch ist und die Userform geöffnet wird.
Obere und untere Grenze des dynamsichen Breiches soll abhängig vom Zelleninhalt der Spalte B sein
Es kann sein, dass in dem Bereich B6:B9 noch eine Zeile hinzugefügt wird und somit kann die Userform bei Doppelklick in B10 geöffnet werden
Wie bekomme ich das hin?
Für Eure Hilfe bin ich sehr dankbar.
VG
Markus
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'abbrechen wenn mehr als eine Zelle ausgewählt wurde
If Target.Count > 1 Then Exit Sub
'Prüfen ob wir in der richtigen zeklle sind
If Not Intersect(Target, Range("B6:B9")) Is Nothing Then UserForm1.Show
If Not Intersect(Target, Range("b11:b13")) Is Nothing Then UserForm2.Show
If Not Intersect(Target, Range("b15:b17")) Is Nothing Then UserForm3.Show
If Not Intersect(Target, Range("b19:b28")) Is Nothing Then UserForm4.Show
If Not Intersect(Target, Range("b30:b40")) Is Nothing Then UserForm5.Show
End Sub