Code zusammen fügen
13.11.2006 20:55:52
sascha
Folgendes möchte ich zusammen fügen
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("$C$8:$C$1000")) Is Nothing Then Exit Sub
UserForm1.Show 0
UserForm1.Picture = LoadPicture(ActiveCell.Offset(0, 4).Value)
UserForm2.Show 0
End Sub
Und
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("$E$8:$E$1000")) Is Nothing Then Exit Sub
UserForm3.Show 0
UserForm3.Picture = LoadPicture(ActiveCell.Offset(0, 2).Value)
UserForm2.Show 0
End Sub
Und weil ich keinem blasen Schimmer habe wie das zu machen ist wende mich an Euch
(also bei klick auf C sollten Userform 1 und 2 hoch gehen und bei klick auf E sollten 2 und 3 hoch gehen)
Ist das Möglich und wie
Danke in voraus
Anzeige