Office: Excel 2010 - Klick auf Zelle öffnet UserForm

Hallo Ihr Lieben,

Habe folgenden Sub:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 And Target.Row >= 6 And Target.Row <= 183 Then UserForm1.Show
End Sub

Sprich: klicke ich in eine Zelle im Bereich I6:I183 soll sich meine UserForm öffnen.
Allerdings möchte ich das nicht nur in Spalte 9 also I, sondern auch in K, M, O, etc.
Kopiere ich den Sub und ändere die Spalte, bekomme ich die Fehlermeldung, dass SelectionChange mehrfach vergeben ist.

Hilfe?

MfG Julius

 

Hi Julius,

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Row >= 6 And Target.Row <= 183 Then
      Select Case Target.Column
         Case 9, 11, 13, 15
            UserForm1.Show
      End Select
   End If
End Sub

Bis später,
Karin

 

Das ging ja schnell, danke dir!