VBA-Userform

Hey leute also zuerst mal mein projekt damit ihr versteht um was es geht.
beim starten von meiner excel datei werden auf dem arbeitsblatt zellen durchsucht in denen informationen stehen.
eine information gibt an wieviele reiter in die multipage kommen die auf der userform ist dies habe ich mit einer schleife gemacht und es werden zugleich steuerelemente hinzugefügt ( textboxen, labels und images)
so meine frage ist wie kann ich diesen sachen jetzt etwas zuweisen denn z.b. in das image soll ein bild und der pfad ist auf dem arbeitsblatt gespeichert. jedoch weiß ich nicht wie ich dann herrausfinde welche steuerelemente der userform hinzugefügt worden sind und wie ich diesen dann etwas zuweise.
oder gibt es eine möglichkeit jedesmal die userform mit einem befehl zu speichern das alles was dort gemacht wurde zb neue reiter in einer multipage hinzugefügt worden sind und bilder eingefügt wurden, das auch dieser stand beim nächsten öffnen meiner excel datei geladen wird
über eine schnelle antwort würde ich mich freuen
gruß VBkid
ps:falls fragen sind postet diese ruhig ich erklär alles genau ;)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Jo das ich über .picture= loadPicture(pfad) da ein bild laden kann weiß ich ja das problem ist bei workbook_open denn da werd in der userform erst die reiter + image objekte + textboxen + ... erstellt und über me. bekomme ich nicht raus was dort erstellt wurde sodass ich damit arbeiten kann
hier einmal mein workbook_open code ( ist nur ein testcode net der entgültige ^^ )


Private Sub Workbook_Open()
Dim i As Integer
Dim a As Integer
Dim add As Integer
If Tabelle1.Cells(1, 1).Value = "" Then
Load Start
Start.Show
Else
Load Start
i = Tabelle1.Cells(1, 1).Value
For h = 1 To i Step 1
a = Start.page.Pages.Count
b = Tabelle1.Cells(1, 2).Value
With Start.page.Pages.add("Page" & a + 1).Controls
.add("Forms.image.1").Move Left:=130, Top:=20, Width:=150, Height:=150
.add("forms.Textbox.1").Move Left:=5, Top:=10, Height:=18 ' Height:=150
.add("forms.Textbox.1").Move Left:=5, Top:=30 'Width:=150, Height:=150
End With
Next h
If Tabelle1.Cells(1, 2).Value = "" Then
MsgBox "Sie sollten ein Bild einfügen!"
Else
b = Tabelle1.Cells(1, 2).Value
End If
End If
Start.Show
End Sub

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA-Userform

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread