If case Schalter 1oder2 inUserform gedrückt dann BildAoderB

RoWaLo · 2024-09-11T19:16:56+00:00

Hallo liebe Forenmitglieder - mein Vorhaben ist für euch wahrscheinlich nur ein Kinderspiel ich bin in VBA aber leider nur ein Laie. Ich habe eine Excel Datei “Test.xlsm“ in der ich schon mal vorbereitend eine Userform1 gebastelt habe, mit Text und 3 Schaltflächen. Ich möchte jetzt folgendes verwirklichen Wird die Excel Datei geöffnet, dann soll automatisch die Userform 1 angezeigt werden Bei Klick auf „Commandbotton1“ soll eine Bilddatei_A.jpg geöffnet werden und die Userform1 geschlossen werden Bei Klick auf „Commandbotton2“ soll eine Bilddatei_B.jpg geöffnet werden und die Userform1 geschlossen werden Bei Klick auf „Commandbotton3“ soll die Userform1 geschlossen werden und ............................................................................................... die ExcelDatei geschlossen werden. Ich habe mal angefangen wie folgt: Private Sub Workbook_Open() Dim DateiA As String Dim DateiB As String Dim PfadDateienAundB As String DateiA = Bilddatei_A.jpg DateiB = Bilddatei_B.jpg Userform1 .show ………………………………….Wie löse ich jetzt die Abfrage? select case Commandbotton1 Case = Commandbotton1.click Userform1.hide ‘…………………………………………….oder Userform1.close? PfadDateienAundB = E:/Test & DateiA '................................................................. Pfad und DateiA FollowHyperlink PfadDateienAundB '........................................................................Anzeigen BilddateiA End select select case Commandbotton2 case Commandbotton2.click Userform1.hide ‘…………………………………………….oder Userform1.close? PfadDateienAundB = E:/Test & DateiB '................................................................... Pfad und DateiB FollowHyperlink PfadDateienAundB '........................................................................Anzeigen BilddateiB End select select case Commandbotton3 case Commandbotton2.click Userform1.hide ‘…………………………………………….oder Userform1.close? ThisWorkbook.Close '.............................................. Schließen der Excel Datei

Hallo Karl Heinz
ich bin einen Schritt weiter und habe das Problem einen Beitrag zuvor gelöst.
Ich hate fäschlicherweise den Code in "diese Arbeitsmappe" kopiert und nicht in die Userform2 .... Jetzt steht der Code dort und ist in der Arbeitsmappe gelöscht.
Die userform2 wird mir jetzt auch angezeigt aber nach dem Drücken z. B. des commandButtons1 passiert nicht das gewünschte Öffnen der Bild Datei,
stattdessen erhalte eine eine Fehlermeldung s. Bild
Ich habe an der Stelle ein Problem mit der Syntax beim Aufrufen eines Hyperlinks und weiß nicht wie es richtig lauten muss.
Wie aus dem Code / Screenshot ersichtlich versuche ich, dass der Hyperlink mittels einer zuvor an die Variable „PfadDatei“ übergebene Info zum Pfad plus Dateinamen eine Bilddatei aufzurufen die den gleichen Namen wie die benutzte Excel Datei hat -- bis auf ein verändertes Ende “ 1 _ .jpg“
Die Veränderung des Namens plus Übernahme in Variable "Datei" -----funktioniert, habe ich mit MsgBox getestet.
Die Übernahme vom Pfad der Excel Datei ----- in Variable "PfadDatei" funktioniert, habe ich mit MsgBox getestet.
In einer Prozedur vorher wird der Variablen “Datei“ der entsprechend veränderte Datei Namen der Excel Datei
übergeben. Und durch die Call LadeBild(Datei) Anweisung (also mit der Variable) sollte doch eigentlich diese in der Sub LadeBild mit übergeben werden.

In der Sub LadeBild tritt allerdings nach dem Prüfen mit -- If Dir(PfadDatei) > "" -- ob die Datei in dem Ordner existiert
im Fall von Ja …. Then … bei der Anweisung .FollowHyperlink ein Kompilierungs-Fehler auf. s. Bild
Was muss ich an der Stelle anders machen dami die Bild Datei aufgerufen / angezeigt wird.?

Danke für deine Hilfe oder die Hilfe von einem anderen Leser..
VG Roman
Userbild

Private Sub CommandButton1_Click()

'Dim Datei     As String



        Datei = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 10) & " 1 _ .jpg"



 Call LadeBild(Datei)

End Sub





Private Sub LadeBild(Wert As String)

  Dim PfadDatei As String

  

  Unload Me                                     ' Userform schließen



      PfadDatei = ThisWorkbook.Path & "\" & Wert

      If Dir(PfadDatei) > "" Then             ' Bilddatei im Ordner der Exceldatei?

         .FollowHyperlink PfadDatei            ' Bilddatei öffnen

      Else

         PfadDatei = "E:\Temporär\Test\" & Wert

         If Dir(Wert) > "" Then          ' Bilddatei im Alternativordner?

            PfadDatei = "E:\Temporär\Test\" & Datei

            .FollowHyperlink PfadDatei          ' Bilddatei öffnen

         Else

            MsgBox "Die ausgewählte Datei " & Wert & " " & Chr(13) & _

            " existiert nicht im Ordner dieser Excel Datei", vbCritical, "Quiz"

         End If

      End If

   End With

End Sub

Hallo Karl Heinz
Also mal als Erstes -- Erfolgsmeldung – es läuft bei mir wie gewünscht!! Juchhuuuu 😁
Ich habe mit deinem Code noch ein bisschen herum experimentiert ,weil leider irgendwo noch etwas hakte.
Du hast mir ja vor kurzem schon mal super geholfen und aus dem Code habe ich etwas übernommen und wie gesagt jetzt funktioniert es.
Ich habe aber trotzdem eine Nachfrage.
Ich habe einen Screenshot von einem Word Doc (Quer) gemacht wo ich mal den Code den du mir geschickt hast auf der einen Seite gestellt und auf der anderen Seite den Code der bei mir jetzt läuft.
Ich habe jetzt doch noch mal Variablen benutzt von denen du ja sagst, dass man sie nicht braucht, weil man es auch anders schreiben kann. Aber damit kenne ich mich noch nicht so aus.
Kannst du dir das nochmal anschauen und mir mir sagen, was ich von dem Code einfacher schreiben kann und wie?
----- und was von dem Code der unter
Private Sub CommandButton1_Click() --- und --- Private Sub CommandButton2_Click() ---- quasi doppelt vor kommt
wirklich so erhalten bleiben muss (= 2x) oder was ich vor die beiden Subs zusammenfassen / schreiben kann oder obich es überhaupt brauche.
Wie du sehen kannst, habe ich die code Zeilen mit dem „With ThisWorkbook“ noch mal benutzt aber eben 2x, geht das auch in 1x?
und ich habe, damit der FollowHyperlink funktioniert die “If“ Abfrage vorgeschaltet um zu prüfen, ob die Bilddateien in demselben Ordner liegen wie die Arbeitsmappe und ich habe vor dem FollowHyperlink noch einen Punkt gesetzt.
So funktioniert es, aber mit der Syntax der Befehle habe ich noch richtig Probleme, weil ich nicht weiß was wann wie benötigt wird an Klammern, Anführungszeichen, verbunden mit Unterstrich, Punkt etc. Ich würde lieber wissen wie was zu tun ist und es nicht nur durch rumprobieren zufällig rausfinden. Ich bin schon mal froh das es bei mir läuft aber ich weiß, es geht bestimmt einfacher.🤔
Jetzt siehst du meinen Code nur auf dem Bild, soll ich den noch mal anders schicken.
Die Test Excel Datei hatte jetzt nicht den passenden Namen zu den Bilddateien. Bei der richtigen Benutzung hat die Excel Datei dann ja den gleichen Namen wie die Bild Dateien die sich nur durch den Dateityp und eine 1 bzw. 2 am Namensende unterscheiden. Für die richtige Benutzung habe ich dann schon mal den Code in Grün vorbereitet
Dank schon mal vorab für deine Hilfe
Mit besten Grüßen Roman
Userbild

If case Schalter 1oder2 inUserform gedrückt dann BildAoderB

Forumthread: If case Schalter 1oder2 inUserform gedrückt dann BildAoderB

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

If case Schalter 1oder2 inUserform gedrückt dann BildAoderB

Forumthread: If case Schalter 1oder2 inUserform gedrückt dann BildAoderB

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread