Daten aus UserForm mit Listbox in ein Excelblatt

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Christian
Das vorbelegen habe ich nur gemacht um die Daten nachher aus der ListBox ins Tabellenblatt zu lesen. Ich habe sie anfangs jedesmal neu eingegeben. Das war mir auf Dauer zu laestig! Den Befehl dazu findest du im Code der Telefonliste. Da findest
du am Ende den Call Aufruf zum vorladen. Lösche diese Zeile einfach, oder setze ein " ' " davor.
Private Sub UserForm_Activate
.List(.ListCount - 1, 0) = "Pos"
.List(.ListCount - 1, 1) = "Name"
'** nur zur Test-Demo, nachher bitte löschen
Call UserForm_Demo_Daten_vorladen 'Demo Daten
Die Daten aus der ListBox auslesen und die Druckliste kopieren funktioniert noch nicht richtig, da arbeite ich dran.
Ich erstelle für "Fertig" ein Hauptprogramm, indem man nachfolgende Module für PDF Datei und drucken einbauen
kann, indem man nachfolgende Makros in ein neues Modulblatt laedt und sie per einfach per Call Befehl aufruft.
Dann interessiert andere Helfer mein Programm nicht, sie fügen ihr Modul in das Hauptprogramm mit ein.
Diese Woche bekomme ich Besuch den ich nur 1x im Jahr sehe, und muss noch renovieren.
Da habe ich nicht viel Zeit fürs Forum (vielleicht abends, mal sehen)
mfg 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

Sub Leeren_Druckbereich_kopieren_Neu() Dim bc, dc, hfc, lfc, lz, x, y Dim Edr As String, k, j, n 'LineFeed Zaehler, hfc Hilfszaehler lfc = Telefonliste.ListBox2.ListCount ProFlag = Empty 'Prüfflag Haupt Progr. 'keine Ausführung wenn ListBox2 leer ist !! If lfc = 0 Then ProFlag = "No ListBox Liste": _ MsgBox "kein Eintrag in ListBox2": Exit Sub On Error GoTo Feh Application.ScreenUpdating = False With ThisWorkbook.Sheets("Liste") 'alte Druckliste löschen .Range("A11:F1000").Clear 'Druckbereich löschen .PageSetup.PrintArea = "" '1.Druckfeld Namen löschen .Range("B7:C9").ClearContents .Range("E7:F9").ClearContents '1.Druckfeld Clr verbundene Zellen .Range("B7:C9").MergeCells = False .Range("E7:F9").MergeCells = False 'Schleife zum einfügen der Druckfelder (ohne Überschrift) .Range("A7:F9").Copy '1.Datenfeld kopieren For j = 0 To lfc - 1 'Druckzaehler über ListCount .Range("A7").Offset(j * 4, 0).PasteSpecial xlAll Next j Application.CutCopyMode = False Edr = .Range("A7").Offset(j * 4 + bc - 2, 5).Address .PageSetup.PrintArea = CStr("A3:" & Edr) ProFlag = "ok" 'Prüfflag Haupt Progr. End With Exit Sub Feh: MsgBox "Fehler in: Leeren_Druckbereich_kopieren" End Sub

Beliebteste Forumthreads (12 Monate)

Daten aus UserForm mit Listbox in ein Excelblatt

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten aus UserForm mit Listbox in ein Excelblatt

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread