Anzeige
Archiv - Navigation
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Code zusammen fügen

Code zusammen fügen
13.11.2006 19:55:52
sascha
Hallo
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

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

Betreff
Datum
Anwender
Anzeige
AW: Code zusammen fügen
13.11.2006 20:33:04
Andi
Hi,
so müsste es gehen:

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

Schönen Gruß,
Andi
AW: Code zusammen fügen
13.11.2006 20:37:52
Peter
Hallo Sascha,
versuch es einmal so:

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

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Code zusammen fügen DANKE
13.11.2006 20:50:14
sascha
Danke Andi
Danke Peter
Funktioniert doppel.
Danke
Gru0
Sascha
gern geschehen... (ot)
13.11.2006 21:08:24
Andi
.

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige