Microsoft Excel

Herbers Excel/VBA-Archiv

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

select Ereigniss UF Show

Betrifft: select Ereigniss UF Show von: Fred
Geschrieben am: 04.01.2008 16:48:49

Hallo zusammen

Weiss jemand wie ich ein select ereigniss per VBA erzeugen kann, wenn in Zeile D3:D40 eine Zahl eingegeben wird.

Z.B. die Zahl 2 dann soll Userform 1 angezeigt werden, Zahl 51 dann Userform 2 usw.
vielen Dank im vorraus
Fred

  

Betrifft: AW: select Ereigniss UF Show von: Daniel
Geschrieben am: 04.01.2008 17:00:13

hi
dieses Makro im Modul der Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("D3:D40")) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub

Select Case Target.Value
    Case 2
        UserForm1.Show
    Case 51
        UserForm2.Show
    Case Else
End Select

End Sub



Gruß, Daniel


  

Betrifft: AW: select Ereigniss UF Show von: Fred
Geschrieben am: 04.01.2008 17:11:08

Hallo

vielen Dank


 

Beiträge aus den Excel-Beispielen zum Thema "select Ereigniss UF Show"