Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

von UserForm1 in Userform2 wechseln

Forumthread: von UserForm1 in Userform2 wechseln

von UserForm1 in Userform2 wechseln
19.01.2018 17:22:59
UserForm1
64 BIT Version
Hallo Excel Profis,
möchte gerne von der UF1 mit einem Button UF2 öffnen
Hintergrund: in UF1 werden Daten gesucht und bei Betätigen des Button jpgREIHE soll diese Datei mit UF2 angezeigt werden (UF2) dient nur zur Darstellung der Bilder
Private Sub cmdJPGREIHE_Click()
'Link in jpg Reihe-Spalte öffnen
Dim Zeile As Long
Dim Zelle As Range
Dim jpgReiheFile As String
With Me.ListBox1
If .ListIndex  -1 Then
Zeile = .List(.ListIndex, .ColumnCount - 1)
Set Zelle = wksData.Cells(Zeile, 10) 'Zelle mit jpg Reihe-Hyperlink
jpgReiheFile = Zelle.Hyperlinks(1).Address
'            ShellExecute 0, "open", jpgReiheFile, "", "", 0 '0 = Parameter zur Anzeige
ActiveWorkbook.FollowHyperlink jpgReiheFile
End If
End With
End Sub
IN UF2 ist aber der Pfad als Konstante angegeben aber dieser ändert sich ja immer
Const strPfad = "C:\Users\.......\"
Private Sub UserForm2_Initialize()
Dim strDatei As String
Dim i As Integer
Dim i_Anz As Integer
i_Anz = Me.mlt_Bilder.Pages.Count
i = 0
strDatei = Dir(strPfad & "*.jpg")
While strDatei  ""
If i_Anz - 1 
Ich würde mich freuen wenn mir jemand dabei helfen könnte.
Gruß Richard
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: von UserForm1 in Userform2 wechseln
19.01.2018 18:47:16
UserForm1
Hallo,
Private Sub UserForm2_Initialize()

...Ohne die 2...
Du müsstest dann Deine jpgReiheFile/Address-Variable an die zweite Form übergeben, am einfachsten über die .Tag-Eigenschaft...
Gruß, Mullit
Anzeige
AW: von UserForm1 in Userform2 wechseln
19.01.2018 19:37:36
UserForm1
Hallo Mulit,
ich bin leider kein großer Könner und noch feste am lernen.
wie geht das mit der .Tag Eigenschaft ?
Richard
AW: von UserForm1 in Userform2 wechseln
19.01.2018 19:54:20
UserForm1
Hallo Richard,
vor aufruf
Userform2.Tag="Ordner +Bildname"
Me.mlt_Bilder.Pages(i).Picture = LoadPicture(Userform2.Tag)
Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung....."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert und folgende lese ich nicht.
Anzeige
AW: von UserForm1 in Userform2 wechseln
20.01.2018 13:26:50
UserForm1
Hallo Hajo,
ich gehöre noch zu der Generation die sich Bedanken
ALSO DANKE werde es versuchen
Gruß Richard
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige