AW: Daten aus UserForm mit Listbox in ein Excelblatt
22.02.2016 13:04:02
Piet
Hallo Christian
ich habe einen Fehler gefunden, erinnere mich das andere das gleiche Problem hatten.
Offenbar kann man die ListBox nicht in -verbundene Zellen- auslesen. Das wurde schon
einmal im Forum angefragt. Erinnere mich nicht ob es dafür eine Lösung gab?
Ich habe den Code ein wenig geandert, bitte in Modul1 kopieren und austesten.
Im Druckblatt die verbunden Zellen in B:C und E:F auf normale Zelle setzen.
Dann müsste es klappen. Wenn es funktioniert, kannst du damit leben?
Zum Thred selbst: nach meinem Wissen fliegt er automatisch raus, weil neue
nachgeschoben werden. Das ist im PC System des Admin so festgelegt, darauf
haben wir keinen Einfluss. Auch wenn du ihn offen stellst wird er gelöscht.
Dann einfach neu reinstellen mit Vermerk das ich noch daran arbeite.
Die andere Sache mit Speichern, Drucker einrichten und PDF Datei erstellen
ist nicht mein Ding. Dazu fehlt mir wirklich das Fachwissen. Ich begnüge mich
im Forum mit einfacheren Sachen, wie Daten suchen, von A nach B kopieren etc.
Ich denke wenn aber schon eine brauchbar Lösung vorliegt helfen andere weiter.
Wenn ich fertig bin sende ich eine neue Beispieldatei, wo andere mein "Fertig"
Programm mit den offenen Sachen ergaenzen können. Das will ich vorbereiten.
mfg Piet
Sub ListBox2_komplett_auslesen()
Dim dlg As Object
'On Error GoTo Feh
Set dlg = Telefonliste.ListBox2
lfc = Telefonliste.ListBox2.ListCount
'keine Ausführung wenn ListBox2 leer ist !!
'If lfc = 0 Then PgFlag = "No Duck-List": _
MsgBox "kein Eintrag in ListBox2": Exit Sub
With ThisWorkbook.Sheets("Liste 2")
'alte Druckliste löschen
Range("B7:B500") = Empty
Range("E7:G500") = Empty
dc = 11
MsgBox lfc
On Error Resume Next
For j = 0 To dc - 1 'dc=Druckzaehler über DMax
Range("A7").Cells(j * 4 + 1, 6) = dlg.List(j, 0)
Range("A7").Cells(j * 4 + 1, 2) = dlg.List(j, 1)
Range("A7").Cells(j * 4 + 2, 2) = dlg.List(j, 2)
Range("A7").Cells(j * 4 + 3, 2) = dlg.List(j, 3)
Range("A7").Cells(j * 4 + 1, 5) = dlg.List(j, 4)
Range("A7").Cells(j * 4 + 2, 5) = dlg.List(j, 5)
Range("A7").Cells(j * 4 + 3, 5) = dlg.List(j, 6)
Next j
' Next k
End With
On Error GoTo 0: Exit Sub
Feh: MsgBox "Fehler bei: ListBox2_auslesen"
End Sub