Daten aus UserForm mit Listbox in ein Excelblatt

Christian · 2016-02-17T07:08:25+00:00

Hallo zusammen, ich habe eine Exceldatei mit der ich Daten mit Hilfe einer UserForm in mehrere Excelblätter schreibe. Die Excelblätter werden dann als PDF gespeicher und dann wieder gelöscht. Ich möchte jetzt gerne, dass die Daten nicht mehr in unterschiedliche Excelblätter geschrieben werden. Sie sollen nur noch in eins und zwar unter einander geschrieben werden. Jenachdem wieviel Positionen ich in die UserForm1 schreibe, soll auch das Excelblatt (Packauftrag2) nach unten wachsen. Nachdem alles in den Packauftrag2 geschrieben worden ist, soll dieser einmal gedruckt werden und einmal als PDF gespeichert werden, das mache ich jetzt schon mit den PackauftragALT. In der Anlage habe ich eine Musterdatei. Es werden nicht alle Code funktionieren. Ich habe nur die UserForm1 und das ALTE und das NEUE Excelblatt gelassen. Ich gehe davon aus, dass sich nach Ansicht der Datei noch Fragen ergeben. Diese können und dürfen gerne gestellt werden. Vielen Dank

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

Hallo Christian
hier ein neues Makro für die Druckliste ohne Überschrifts Zeile
mfg Piet
Option Explicit
'neue Lösung -ohne Überschrift- in jedem Blatt
'letzte Anfrage von Christian - 23.2.2016
Dim Wb As Object
Dim Edr As String
Dim ok As Variant

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

Daten aus UserForm mit Listbox in ein Excelblatt

Forumthread: Daten aus UserForm mit Listbox in ein Excelblatt

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Daten aus UserForm mit Listbox in ein Excelblatt

Forumthread: Daten aus UserForm mit Listbox in ein Excelblatt

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread