Abfrage beim übertragen

Private Sub CommandButton1_Click() Dim lngLR As Long Dim intCount As Integer Dim rngData As Range lngLR = Worksheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row + 1 Set rngData = Worksheets("Tabelle2").Cells(lngLR, "B").Resize(1, 9) For intCount = 1 To rngData.Cells.Count rngData.Cells(intCount).Value = Me.Controls("TextBox" & intCount).Value Next intCount End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Daniel,
danke für Deine Hilfe.
Habe das nun folgendermaßen gelöst:

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 1 ' Gibt an wie viele Spalten der Bereiches angezeigt werden sollen
ListBox1.RowSource = "Tabelle2!K1:K5" ' Definiert den Bereich
ListBox1.ColumnWidths = "20" ' Gibt an wie Breit die Ausgabe der einzelnen Zellen sein soll
End Sub

Private Sub CommandButton1_Click()
Dim lngLR As Long
Dim intCount As Integer
Dim rngData As Range
lngLR = Worksheets(ListBox1.Text).Cells(Rows.Count, 2).End(xlUp).Row + 1
Set rngData = Worksheets(ListBox1.Text).Cells(lngLR, "B").Resize(1, 9)
For intCount = 1 To rngData.Cells.Count
rngData.Cells(intCount).Value = Me.Controls("TextBox" & intCount).Value
Next intCount
End Sub

Einziger Schönheitsfehler... wie bekomme ich den Wert den ich in der Listbox ausgewählt habe auch in das betreffend Tabellenblatt / die dazugehörigen Zellen
Im Moment schreibt er mir nur die Daten der TextBoxen in die Tabelle
Gruß
Stefan

Hi
wenn du konsequent gearbeitet hast und die Textbox1 durch die Listbox1 ersetzt hast, dann darf es die Textbox1 nicht mehr geben und deine erste Textbox ist die Textbox2.
Dh deine Schleife sollte dann bei 2 beginnen und und die erste Zelle müsste leer bleiben.
Dann kannst du ja den Listboxtext direkt in die Entsprechende Zelle schreiben, halt ausserhalb der Schleife:

...
rngData.Cells(1).Value = Listbox1.Text
For intCount = 2 To rngData.Cells.Count
rngData.Cells(intCount).Value = Me.Controls("TextBox" & intCount).Value
Next intCount
End Sub

als DirtyLittleTrick gäbs noch die Variante, dass du deine ListBox1 in Textbox1 umbenennst, dann kannst du sie normal über die Schleife wie die anderen Textboxen ansprechen (die Eigenschaft Text gibt es ja bei beiden Steuerelementtypen)
Für die Programmierung ist das kein Problem, weil des den Steuerelementen egal ist, wie sie benannt werden, aber für denjenigen der den Code list könnte es verwirrend sein, deswegen ist von sowas eher abzuraten.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Abfrage beim übertragen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread