Hallo,
nachdem ich, hier im Forum, schon länger mitlese und bis jetzt, für jedes meiner Probleme eine Lösung gefunden habe (Danke dafür ,) ist nun der Zeitpunkt meines ersten Beitrags gekommen .
Zu meinem Problem:
Ich habe ein bestimmtes Verzeichnis, in diesem liegen, in vielen Unterordner verteilt .idw´s die mit Artikelnr. benannt sind.
Aus diesem Verzeichnis muss ich nun von verschiedenen Artikelnr., PDF´s erstellen.
Meine Vorstellung ist, dass ich über eine Textbox, in der ich die Artikelnr. eingebe, die Zeichnung in Invnetor öffne und mit einem PDF-Drucker abspeichere.
Den Code für die Textbox habe ich schon geschrieben, (Bild der Userform ist im Anhang)
Dim a As Integer
Private Sub Bestätigen_Click()
Dim b As Integer
'Schleife um bei "Bestätigen" alle Eingaben abzuarbeiten
Do While b < UserForm1.ListBox1.ListCount
UserForm1.ListBox1.Selected(b) = True
b = b + 1
MsgBox (UserForm1.ListBox1.Value) 'Testbox
Loop
End Sub
Private Sub Hinzufügen_Click()
Dim Eingabe As String
'Eingabe in Textbox
Eingabe = UserForm1.TextBox1.Value
'Eingabe in ListBox
With UserForm1.ListBox1
.ColumnCount = 1
.AddItem
.List(a, 0) = Eingabe
End With
If UserForm1.ListBox1.List(a, 0) <> "" Then
UserForm1.TextBox1.Value = ""
a = a + 1
End If
End Sub
Als nächstes müsste das Verzeichnis nach den Artiklnr. durchsucht werden.
Da habe ich aber keine Ahnung wie das funktionieren soll.
Vielleicht kann mir hierbei jemand helfen.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP