Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1600to1604
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
Inhaltsverzeichnis

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

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
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige