Clever-Excel-Forum

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

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

Zitat:[…] 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'

(09.07.2019, 12:15)Mase schrieb: [ -> ]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

ReiffürdieINSEL

Mase

ReiffürdieINSEL