VBA Daten aus Userform übernehmen und im Modul

Jenny · 2016-12-27T10:16:20+00:00

Hallo zusammen, Möchte Daten aus einem Userform übernehmen und im Modul nacheinander abarbeiten: Die einzelnen Zahlen müssen nacheinander in Tabelle2 geschrieben werden und einzeln als PDF exportiert werden, wenn ich das ganze mit For intRow = 1 To 246 für alle mache läuft es gut, nun wie bringe ich die Userform Daten hinein. Sub Auswahl() Dim intRow As Integer 'Die Daten werden aus dem Formular "lbxTo" übergeben For intRow = UserForm1.lbxTo To UserForm1.lbxTo "läuft nicht!" Tabelle2.Range("D1").Value = intRow Tabelle2.Range("$A$9:$H$91").AutoFilter Field:=1 Tabelle2.Range("$A$9:$H$91").AutoFilter Field:=1, Criteria1:=">0" Tabelle2.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\" & Tabelle2.Range("H2").Value & Format(Date, "YYYYMMDD") & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False Next intRow End Sub Besten Dank für Eure Hilfe. Lg J

Hallo Karin
Danke für den Input, kann es bis zur msgbox ausführen, danach erhalte ich eine Fehlermeldung "Laufzeitfehler13" Typenunverträglich bei Abschnitt "FETT".
Tabelle2.Range("D1").Value = intRow
Tabelle2.Range("$A$9:$H$91").AutoFilter Field:=1
Tabelle2.Range("$A$9:$H$91").AutoFilter Field:=1, Criteria1:=">0"
Tabelle2.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & Tabelle2.Range("H2").Value & Format(Date, "YYYYMMDD") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Next intRow
End Sub Habe ich hier bereits Zahlen eingelesn oder nicht?

Sub ShowDialog()
Dim i As Long
UserForm1.lbxFrom.RowSource = ""
'   Dem Listenfeld Einträge hinzufügen
With UserForm1.lbxFrom
.RowSource = ""
For i = 1 To 246
.AddItem Format(i, 0)
Next i
End With
'Erstes Element auswählen
UserForm1.lbxFrom.ListIndex = 0
UserForm1.Show
End Sub

Sorry drehe mich gerade im Kreis. Danke im Voraus für weiter Inputs. Lg Jenny

Hallo Christian,
Habe ein Userformular, was ich wie folgt fülle:

Sub ShowDialog()
Dim i As Long
UserForm1.lbxFrom.RowSource = ""
'   Dem Listenfeld Einträge hinzufügen
With UserForm1.lbxFrom
.RowSource = ""
For i = 1 To 246
.AddItem Format(i, "0")
Next i
End With
'Erstes Element auswählen
UserForm1.lbxFrom.ListIndex = 0
UserForm1.Show
End Sub

Und danach schiebe ich die ausgewählen Werte in lbxto (ListBox) und nun möchte ich alle Zahlen aus lbxto nacheinander einzeln abarbeiten.

Sub Auswahl()
Dim intRow As Integer
'Die Daten werden aus dem Formular "lbxTo" übergeben
For intRow = "DIESER TEIL FEHLT"
Tabelle2.Range("D1").Value = intRow
Tabelle2.Range("$A$9:$H$91").AutoFilter Field:=1
Tabelle2.Range("$A$9:$H$91").AutoFilter Field:=1, Criteria1:=">0"
Tabelle2.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & Tabelle2.Range("H2").Value & Format(Date, "YYYYMMDD") & ".pdf",  _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Next intRow
End Sub

Besten Dank im Voraus für Eure Hilfe. Lg Jenny

VBA Daten aus Userform übernehmen und im Modul

Forumthread: VBA Daten aus Userform übernehmen und im Modul

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

VBA Daten aus Userform übernehmen und im Modul

Forumthread: VBA Daten aus Userform übernehmen und im Modul

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread