Unterstehende Code mit Select Case, in der Zeile 5 steht immer die Überschrift der Spalte und in dieser Zelle ist auch immer der entsprechende Name zugewiesen. Z.B TB1, TB2, TB3
Wenn ich Z.B. in Zelle B5 TB1 eingeben kann ich ab Zelle B8 mit Doppelklick Z.B. ein Userform öffnen, das geht auch ohne Probleme.
Gerne möchte ich aber mehrfach Z.B. im C5, E5 oder eine andere Zelle TB1 eingeben sodass ich im betreffende spalte unterandere gleiche Userform aufrufen kann, aber das geht bis jetzt nicht, nur letzte Name ist zulässig. Wie geht das?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) 'Klaus _
_
Schubert
Dim letzteZeile As Integer, i As Integer
Dim Ueberschrift(2) '0 - 2
For i = 1 To 256
Select Case Cells(5, i) ' in der Zeile 5 steht immer die Überschrift der Spalte und dieser _
_
Zelle
' ist auch immer der entsprechende Name zugewiesen. Z.B TB1, TB2, TB3
Case "TB1": Ueberschrift(0) = i
Case "TB2": Ueberschrift(1) = i
Case "TB3": Ueberschrift(2) = i
'hier einfach erweitern, mit jeder Erweiterung
'die Zahl bei der Variablen und bei
'Dim Ueberschrift(2) um eins erhöhen!
End Select
Next i
If Target.Row > 8 Then
Select Case Target.Column
Case Ueberschrift(0) '1
'Mach was
Text_Form.Show "1"
Case Ueberschrift(1) '2
'Mach was anderes
MsgBox "blabla"
Case Ueberschrift(2) '3
'Noch was anderes
MsgBox "Status"
End Select
End If
End Sub
Grüße,Karel