Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Excel2013 64 bit (Userform bei Mappenstart soll zuffälliges Bild laden
#1
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
Antworten Top
#2
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'
gruß
Marco
Antworten Top
#3
(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
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste