Code kürzen

Forumthread: Code kürzen

Code kürzen

13.11.2006 18:33:41

sascha

Hallo
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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Code kürzen

13.11.2006 18:49:35

Reinhard
AW: Code kürzen

13.11.2006 19:03:43

sascha
AW: Code kürzen

13.11.2006 19:06:45

Reinhard
AW: Code kürzen DANKE

13.11.2006 19:07:23

sascha

AW: Code kürzen

13.11.2006 18:49:35

Reinhard

Hi Sascha,

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("$C$8:$C$1000")) Is Nothing Then Exit Sub
UserForm1.Picture = LoadPicture(ActiveCell.Offset(0, 4).Value)
UserForm2.Show 0
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..

AW: Code kürzen

13.11.2006 19:03:43

sascha

Hallo
Reinhard code funktioniert zu teil. Was fehlt ist das Userform2 nicht anspringt
Danke
Gruß
Sascha

AW: Code kürzen

13.11.2006 19:06:45

Reinhard

Hi Sascha,
sorry,

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("$C$8:$C$1000")) Is Nothing Then Exit Sub
UserForm1.Picture = LoadPicture(ActiveCell.Offset(0, 4).Value)
UserForm1.Show 0
UserForm2.Show 0
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..

AW: Code kürzen DANKE

13.11.2006 19:07:23

sascha


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

So Funktioniert
Danke Danke
Gruß

Beliebteste Forumthreads (12 Monate)

Forumthread: Code kürzen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread