Excel2013 64 bit (Userform bei Mappenstart soll zuffälliges Bild laden

[ReiffürdieINSEL]

Einen schönen guten tag ( vorab) ich beschäftige mich gerade mal zwei Tage im VBA Excel , bin also der nicht erfahrene , doch ich würde mir gerne etwas Erstellen, ein Kalender ( meine Idee , Ich Habe 12 Ordner, je Monat einen, in jeden Ordner an die 22 Bilder zum Monat passend.


nun sollte die UserForm bei jeden Mappenstart selbständig starten ( lol das geht schon mal ), allerdings wie muss ich es festlegen das jedes mal aus den 12 Ordnern passend zum Monat ein anderes Bild ( direkt in die Uferform geladen wird ) nicht auf ein Image , ich habe natürlich mir einen 'code' bereits durch Fund erstellt doch es startet nur die Userform aber ohne Bildinhalt.


habe beide coce in einen Modul  für die 64bit ist das den der richtige code überhaupt?

Code:

Sub Auto_Open()
    Load UserForm1
    UserForm1.Show
End Sub
Private Sub UserForm_intialize()

  Dim strd As String
  Dim A As Date
   
    A = DateValue(Date)         'aktuelles Datum
        Select Case Month(A)    'aktueller Monat
            Case 1
                strd = Zufallsdatei("C:\Users\Gaschler\Desktop\Blue System\Blue Januar\", "jpg")
                UserForm1.Picture = LoadPicture(strd)
            Case 2
                strd = Zufallsdatei("C:\Users\Gaschler\Desktop\Blue System\Blue Februar\", "jpg")
                UserForm1.Picture = LoadPicture(strd)
            Case 3
                strd = Zufallsdatei("C:\Users\Gaschler\Desktop\Blue System\Blue März\", "jpg")
                UserForm1.Picture = LoadPicture(strd)
            Case 4
                strd = Zufallsdatei("C:\Users\Gaschler\Desktop\Blue System\Blue April\", "jpg")
                UserForm1.Picture = LoadPicture(strd)
            Case 5
                strd = Zufallsdatei("C:\Users\Gaschler\Desktop\Blue System\Blue Mai\", "jpg")
                UserForm1.Picture = LoadPicture(strd)
            Case 6
                strd = Zufallsdatei("C:\Users\Gaschler\Desktop\Blue System\Blue Juni\", "jpg")
                UserForm1.Picture = LoadPicture(strd)
            Case 7
                strd = Zufallsdatei("C:\Users\Gaschler\Desktop\Blue System\Blue System\Blue Juli", "jpg")
                UserForm1.Picture = LoadPicture(strd)
            Case 8
                strd = Zufallsdatei("C:\Users\Gaschler\Desktop\Blue System\Blue August\", "jpg")
                UserForm1.Picture = LoadPicture(strd)
            Case 9
                strd = Zufallsdatei("C:\Users\Gaschler\Desktop\Blue System\Blue September\", "jpg")
                UserForm1.Picture = LoadPicture(strd)
            Case 10
                strd = Zufallsdatei("C:\Users\Gaschler\Desktop\Blue System\lue Oktober\", "jpg")
                UserForm1.Picture = LoadPicture(strd)
            Case 11
                strd = Zufallsdatei("C:\Users\Gaschler\Desktop\Blue System\Blue November\", "jpg")
                UserForm1.Picture = LoadPicture(strd)
            Case 12
                strd = Zufallsdatei("C:\Users\Gaschler\Desktop\Blue System\Blue Dezember\", "jpg")
                UserForm1.Picture = LoadPicture(strd)
        End Select
End Sub

kann mir bitte jemand sagen was falsch ist ? danke ihr Lieben vorab

[Mase]

Hi,

meine Tipps; finde raus


a) welchen Datentyp die Methode Month() zurückgibt.
b) welcher Datentyp im Deklarationsteil bestimmt wurde
c) ob Dein Code durchläuft oder nicht (F8 Einzelschritte)
d) schau dir die Links an

[…] beschäftige mich gerade mal 2 Tage mit VBA …

Grundlagen innerhalb 2Tagen und ReiffFürsForum ? ;)

check this out;
https://www.vba-tutorial.de/
https://excelmacromastery.com/vba-articles/  <---sehr gut für den Anfang; hab ich hier in einer Signatur mal gesehen; kann die quelle leider nicht angeben, weiss nicht mehr bei wem. es sei mir verziehn'

[ReiffürdieINSEL]

Hi,

meine Tipps; finde raus


a) welchen Datentyp die Methode Month() zurückgibt.
b) welcher Datentyp im Deklarationsteil bestimmt wurde
c) ob Dein Code durchläuft oder nicht (F8 Einzelschritte)
d) schau dir die Links an


Grundlagen innerhalb 2Tagen und ReiffFürsForum ? ;)

check this out;
https://www.vba-tutorial.de/
https://excelmacromastery.com/vba-articles/  <---sehr gut für den Anfang; hab ich hier in einer Signatur mal gesehen; kann die quelle leider nicht angeben, weiss nicht mehr bei wem. es sei mir verziehn'

hallo danke, es geht bereits hab es mir dort nochmals durchgelesen wo ich mir den Grund code gezogen habe, es war ein Speicherort Problem danke Aufgabe ist gelöst



danke noch für die zwei links ..... da werde ich natürlich zuvor nachsehen ...habs mir in in Textdokument einkopiert Danke