Code Hilfe mit SpinButton und Textfeld.
amintire
benötige Hilfe bei dem Code. Es geht darum, das ich mit dem SpinButton1 die Bilder auswähle,
TextBox1 erhält dann den Bildpfad mit dem Dateinamen.
In TextBox2 soll nun die Eingabe von der Tabelle drinstehen.
In der Tabelle13 ab Zeile 2
A2 = Bildpfad
B2 = Name
Irgendwie funktioniert das nicht, die Bilder bekomme ich hin, aber in TextBox2 steht nur immer was in B2 steht, soll aber bei jedem neuem Bild ein neuer Name stehen.
Anbei der bisherige Code.
Private Sub SpinButton1_Change()
Image1.Picture = LoadPicture(arrFotos(SpinButton1))
Label1 = SpinButton1 + 1
TextBox1 = arrFotos(SpinButton1)
Sheets("Tabelle13").Select
'TextBox1 = Cells(2, 1)
TextBox2 = Cells(2, 2)
Repaint
End Sub
Private Sub UserForm_Activate()
'Register 1
Dim oFotos As Object, sFile As String
Dim sPath As String
sPath = Sheets("Bildpfad").Cells(2, 2) & "Kein Foto\"
Set oFotos = CreateObject("Scripting.Dictionary")
Dim Verz As String
Verz = Sheets("Bildpfad").Cells(2, 2)
sFile = Dir(Verz & "*.jpg")
Do While sFile ""
oFotos(Verz & sFile) = 0
sFile = Dir
Loop
arrFotos = oFotos.keys
SpinButton1.Max = oFotos.Count - 1
TextBox1 = arrFotos(0)
Image1.Picture = LoadPicture(arrFotos(0))
Label1 = "1"
Label2 = oFotos.Count
End SubVielen Dank für Eure Hilfe.
Lieben Gruß
Amina
Anzeige