Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

UserForm aufrufen | Herbers Excel-Forum


Betrifft: UserForm aufrufen von: Stephan
Geschrieben am: 28.10.2008 13:57:16

Hallo zusammen,

ich habe mal wieder ein für euch sicherlich kleines Problem.
Mit dem Code soll eine UserForm aufgerufen werden, sobald eine Zelle im Bereich C3:C200 oder H3:H200 aktiviert wird. Aber das funktioniert nicht so ganz. Muss ich es vielleicht mit Row und Column versuchen?

Vielen Dank im Voraus!
Grüße, Stephan


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Range = ("C3:C200") Or Target.Range = ("H3:H200") Then
    UserForm3.Show
End If

End Sub


  

Betrifft: AW: UserForm aufrufen von: Beverly
Geschrieben am: 28.10.2008 14:07:19

Hi Stephan,

versuchs mal so


If Not Intersect(Target, Union(Range("C3:C200"), Range("H3:H200"))) Is Nothing Then
    UserForm3.Show
End If



GrußformelBeverly's Excel - Inn


  

Betrifft: AW: UserForm aufrufen von: JogyB
Geschrieben am: 28.10.2008 14:08:01

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    If Not Intersect(Target, Range("C3:C200")) Is Nothing Or Not Intersect(Target, ActiveSheet. _
Range("H3:H200")) Is Nothing Then
        UserForm3.Show
    End If
End Sub


Gruss, Jogy


  

Betrifft: AW: UserForm aufrufen von: Stephan
Geschrieben am: 28.10.2008 14:19:31

Vielen Dank an euch beiden für die fixe Hilfe!! Beide Vorschläge klappten auf Anhieb!! Und wieder was dazu gelernt! Grüße, Stephan


Beiträge aus den Excel-Beispielen zum Thema "UserForm aufrufen"