Code kürzen
13.11.2006 18:33:41
sascha
Folgenden Code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("$C$8:$C$1000")) Is Nothing Then Exit Sub
Select Case Target.Address(0, 0)
Case "C8"
UserForm1.Show 0
UserForm1.Picture = LoadPicture(ActiveCell.Offset(0, 4).Value)
UserForm2.Show 0
Case "C9"
UserForm1.Show 0
UserForm1.Picture = LoadPicture(ActiveCell.Offset(0, 4).Value)
UserForm2.Show 0
Case "C1000"
UserForm1.Show 0
UserForm1.Picture = LoadPicture(ActiveCell.Offset(0, 4).Value)
UserForm2.Show 0
Case Else
End Select
End Sub
Möchte ich kürzen also irgendwie möchte ich vermeiden das oa Code in Prinzip 1000mal geschrieben wird. Also für jedes einzelnes Case8 Case9 ..Case1000 in ein befehl zusammenbinden sonst habe ich Code mit 4000 Zeilen.
Geht das und wie
Danke in voraus
Gruß
Sascha