Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1528to1532
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Daten aus Userform übernehmen und im Modul

VBA Daten aus Userform übernehmen und im Modul
27.12.2016 10:16:20
Jenny
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

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Daten aus Userform übernehmen und im Modul
27.12.2016 10:47:01
Beverly
Hi,
was ist lbxTo und weshalb soll die Schleife von lbxTo bis lbxTo laufen? Das sind doch anscheinend irgendwie dieselben Werte.

AW: VBA Daten aus Userform übernehmen und im Modul
27.12.2016 10:58:12
Jenny
Hallo Karin
Hatte mir ein Userform gebaut, mit Werten von 1 bis 246 die ich von lbxfrom nach lbxto verschiebe. Danach steht zb. 1/5/9 in lbxto um einzeln abgearbeitet zu werden. Als ich die intRow geschrieben hatte verlange es ein TO, wie kann ich dies umgehen. Besten Dank und Lg Jenny
AW: VBA Daten aus Userform übernehmen und im Modul
27.12.2016 15:32:33
Beverly
Hi Jenny,
versuche es nach diesem Prinzip:
For intRow = 0 To UserForm1.lbxTo.ListCount
MsgBox UserForm1.lbxTo.List(intRow)
Next intRow


Anzeige
AW: VBA Daten aus Userform übernehmen und im Modul
27.12.2016 16:06:32
Jenny
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
Anzeige
AW: VBA Daten aus Userform übernehmen und im Modul
27.12.2016 18:51:54
Beverly
Hi Jenny,
also m.E. müsste es so heißen:
Tabelle2.Range("D1").Value = ListBox1.List(intRow)
und nicht
Tabelle2.Range("D1").Value = intRow


AW: VBA Daten aus Userform übernehmen und im Modul
28.12.2016 08:17:25
Jenny
Hallo Karin
Habe die Anpassungen vorgenommen, bin kurz vor dem Ziel, die PDF´s werden hergestellt habe aber noch einen Laufzeitfehler"381" Eigenschaft List konnte nicht abgerufen werden. Index des Eigenschaftenfelds ungültig.
Sub Auswahl()
Dim intRow As Integer
'Die Daten werden aus dem Formular "lbxTo" übergeben
For intRow = 0 To UserForm1.lbxTo.ListCount
'MsgBox UserForm1.lbxTo.List(intRow)
Tabelle2.Range("D1").Value = UserForm1.lbxTo.List(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 und Lg Jenny
Anzeige
AW: VBA Daten aus Userform übernehmen und im Modul
28.12.2016 09:02:52
Beverly
Hi Jenny,
ändere diese Zeile:
For intRow = 0 To UserForm1.lbxTo.ListCount - 1


AW: VBA Daten aus Userform übernehmen und im Modul
28.12.2016 09:32:52
Jenny
Hallo Karin,
Es läuft super. Besten Dank und wünsche noch einen guten Rutsch. Lg Jenny
AW: VBA Daten aus Userform übernehmen und im Modul
27.12.2016 10:50:38
Christian
hallo Jenny,
wie trägst du denn die Daten in das Userform(ular) ein?
in TextBoxes, ComboBoxes, ...?
  • Dein verwendetes Typ-Kürzel "lb..." lässt auf Label schließen. In einem Label kann aber vom Anwender kein Eintrag erfolgen, denn das ist ein reines "Beschriftungsfeld".

  • Bei der For-Schleife brauchst du Zahlen (Long, Integer) für die Grenzen. Text funktioniert nicht. Wenn die Einträge des Userforms zB. in TextBoxes erfolgen, musst du diese in Zahlen umwandeln (zB. mit "Clng").

  • Außerdem hast du bei der For-Schleife den gleichen Start- und Endwert genutzt. Dann bräuchtest du die Schleife ja nicht, da diese nur einmal durchlaufen wird.

    • Grüße
    Christian
    Anzeige
    AW: VBA Daten aus Userform übernehmen und im Modul
    27.12.2016 13:47:43
    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
    Anzeige

    301 Forumthreads zu ähnlichen Themen

    VBA Dropdown Userform
    Ralf

    Hallo
    ich möchte in einer Userform ein Dropdownfeld erzeugen das aus einer bestimmten Tabelle zum Bsp. aus Spalte A die ersten Zehn Zeilen als Auswahlmöglichkeiten anzeigt.
    Wäre nett wenn mir da jemand helfen könnte
    Gruss Ralf
    15.08.2008 11:16:56
    Thread-ID: 1002117
    2 Beiträge
    Anzeige
    vba stopp aus userform
    Hugo

    Hallo
    In einem Userform habe ich einen Button Stopp.
    Wenn ich diesen drücke solle das Makro beendet werden damit User im WorkSheet Eingaben tätigen
    kann. Private Sub CommandButton1_Click() Unload UserForm Exit Sub End Sub
    Nun kehrt es zum Ort wo das Userform gestartet wurde...
    01.11.2009 16:17:48
    Thread-ID: 1113650
    14 Beiträge
    VBA-Code von Userform anpassen (DTPicker)
    Userform

    Hallo Excel-Forum Community,
    Leider stoße ich bei der Anpassung des VBA-Codes einer „UserForm“ gerade an meine Grenzen. Vielleicht findet ihr ein paar Minuten um euch die Beispieldatei des nachfolgenden Links anzusehen?
    https://www.herber.de/bbs/user/69747.xls
    Ich habe einen sehr...
    26.05.2010 21:15:00
    Thread-ID: 1158924
    8 Beiträge
    Anzeige
    VBA Userform
    Rene

    Hallo zusammen ,
    zunächst vielen Dank an Franz der mir mit seinem letzten Code sehr geholfen hat.
    ich habe folgenden Code,der problemlos funktioniert , was muß ich tun damit ich ihn in einer Userform benutzen könnte ,will heißen ich möchte in ein textboxs scannen ,und die Abfrage ergeb...
    15.04.2011 11:57:09
    Thread-ID: 1209840
    2 Beiträge
    VBA für UserForm mit Multiseiten
    Klaus

    Hi Leute
    ich habe eine UF mit Multiseiten erstellt und weiß jetzt nich wie ich den Code schreiben soll. In dieswer UF sollen Namen eingetragen werden und auf die Richtigen Tabellen verteilt werden und wenn ich die UF aufrufe sollen die eingetragenen Namen in der UF wiedergegeben werden. Bit...
    25.09.2011 13:08:50
    Thread-ID: 1231382
    6 Beiträge
    mehrzeilig eintragen vba userform
    Chris

    Ich habe vielen von euch schon gelernt, recht herzlichen Dank.
    Anbei habe ich mal mein Excel Project hochgeladen. Da der VBA code zu lang wäre um ihn hier verständlich zu schreiben. Wenn man die userform startet hat man die auswahl mehrere Sender einzutragen um sich arbeit zu erleichtern di...
    09.01.2012 22:41:55
    Thread-ID: 1245334
    2 Beiträge
    VBA: Userform Minimieren Maximieren (Klassenmodul)
    Lombe

    Hi Leute,
    ich kenn mich mit Klassenmodule wenig aus und habe daher folgendes Problem.
    Meine Userform hat neben dem Schließkreuz rechts oben nun auch die Minimeren und Maximieren Schaltflächen dank der Codes (siehe Quellenangaben) die u.a. im Klassenmodul stehen.
    Frage:
    Ich möcht...
    13.01.2012 00:54:48
    Thread-ID: 1245764
    4 Beiträge
    Suchmaske VBA userform
    Gatz

    Guten Abend, nachdem das mit der Eingabemaske so gut gekappt, dank der Hilfe von euch, würde ich gerne meine Ausgabemaske erstellen wollen. Hierzu finden sich mehrere Textfelder, Comboboxen und Checkboxen in der userform.
    Angenommen der Benutzer trägt in Textbox1 einen Wert ein, dann soll i...
    12.01.2012 23:41:27
    Thread-ID: 1245933
    3 Beiträge
    Anzeige

    Links zu Excel-Dialogen

    ListBox TextBox

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    1
    13
    13
    7
    5
    1
    5
    1
    3
    2
    27
    4
    9
    1
    1
    3
    2
    3
    6
    3
    9
    10
    4
    1
    3