Guten Morgen @all,
habe ein kleines Problem mit meinem "Fakturierungsprogramm":
In der Tabelle Jahresübersicht existiert der Button Mahnung senden, welcher die Userform2 ausführt mit den offenen Rechnungen. Beim anklicken in der Listbox sollten dabei jeweils alle Daten in der Userform ausgefüllt werden, was auch solange funktioniert, wenn die Rechnungsnummer in B2:B6 eine normale Zahl ist. (siehe Rechnung 1 bis 3). Rechnung 4 und 5 ist aber folgendermaßen formatiert 5 / 2017 und 4 / 2017, diese werden mir zwar in der Listbox der Userform2 angezeigt, aber beim anklicken in der Listbox wird mir der Pfad zum pdf nicht angezeigt.
In der Anlage ist das Dokument, im Tabellenblatt Eingabe ist der Adminbutton mit Password: 123
Zur Ermittlung des Pfads und Clickevent der Listbox verwende ich folgenden Code:
Wie gesagt, verstehe nicht, wieso der Clickevent für den Pfad zur Pdf nur funktioniert, wenn in der Spalte B die Zahl eine ganze Zahl ist.
Danke im voraus
habe ein kleines Problem mit meinem "Fakturierungsprogramm":
In der Tabelle Jahresübersicht existiert der Button Mahnung senden, welcher die Userform2 ausführt mit den offenen Rechnungen. Beim anklicken in der Listbox sollten dabei jeweils alle Daten in der Userform ausgefüllt werden, was auch solange funktioniert, wenn die Rechnungsnummer in B2:B6 eine normale Zahl ist. (siehe Rechnung 1 bis 3). Rechnung 4 und 5 ist aber folgendermaßen formatiert 5 / 2017 und 4 / 2017, diese werden mir zwar in der Listbox der Userform2 angezeigt, aber beim anklicken in der Listbox wird mir der Pfad zum pdf nicht angezeigt.
In der Anlage ist das Dokument, im Tabellenblatt Eingabe ist der Adminbutton mit Password: 123
Zur Ermittlung des Pfads und Clickevent der Listbox verwende ich folgenden Code:
Code:
Private Sub ListBox1_Click()
Dim pfadPDF As String
Dim lZeile As Long
'Wenn der Benutzer einen Namen anklickt, suchen wir
'diesen in der Tabelle3 heraus und tragen die Daten
'in die TextBoxen ein.
'Wir löschen standardmäßig alle bisherigen TextBoxen-Inhalte
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
'Nur wenn ein Eintrag selektiert/markiert ist
'If ListBox1.ListIndex >= 0 Then
lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschriftrn
'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
Do While Trim(CStr(Tabelle6.Cells(lZeile, 2).Value)) <> ""
'Wenn wir den Namen aus der ListBox1 in der Tabelle3 Spalte 1
'gefunden haben, übertragen wir die anderen Spalteninhalte
'in die TextBoxen!
If ListBox1.Text = Trim(CStr(Tabelle6.Cells(lZeile, 2).Value)) Then
'TextBoxen füllen
TextBox1 = Trim(CStr(Tabelle6.Cells(lZeile, 1).Value))
TextBox2 = "Nr_" & Tabelle6.Cells(lZeile, 2).Value
TextBox3 = Tabelle6.Cells(lZeile, 3).Value
TextBox4 = Tabelle6.Cells(lZeile, 4).Value
TextBox5 = Tabelle6.Cells(lZeile, 5).Value
TextBox6 = Tabelle6.Cells(lZeile, 6).Value
TextBox7 = Format(Tabelle6.Cells(lZeile, 7).Value, "Currency")
TextBox7.BackColor = Tabelle6.Cells(lZeile, 12).DisplayFormat.Interior.Color
TextBox8 = Tabelle6.Cells(lZeile, 9).Value
Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
End If
lZeile = lZeile + 1 'Nächste Zeile bearbeiten
Loop
pfadPDF = Worksheets("Konfiguration").Range("C3").Value
Dim MyObj As Object, MySource As Object, file As Variant
file = Dir(pfadPDF)
While (file <> "")
If InStr(file, UserForm2.TextBox2) Then
UserForm2.TextBox9.Value = pfadPDF & file
Exit Sub
End If
file = Dir
Wend
Wie gesagt, verstehe nicht, wieso der Clickevent für den Pfad zur Pdf nur funktioniert, wenn in der Spalte B die Zahl eine ganze Zahl ist.
Danke im voraus