Userform abfüllen
03.10.2020 21:45:42
Richi
Ich habe ein Userform bei welchem ich bestehende Daten aus einer Tabelle initial einlesen will. Hierzu habe ich den Code geschrieben. Er läuft ohne Fehler ab. Schreibt mir aber nichts in die Textboxen. Den "for to" habe ich gewählt, weil sich die Tabelle ändern kann, somit mehr oder weniger Textboxen gefüllt werden.
Ich hoffe, jemand von euch kann mir sagen, was ich falsch mache.
Gruess Richi
Private Sub UserForm_Initialize()
Dim wb As Workbook
Dim wsH As Worksheet 'Hilfsdaten
Dim wsD As Worksheet 'Daten
Dim last As Integer
Dim letzterName As Integer
Dim lRow As Long, i As Integer
Dim Zähler As Integer
Dim tbs_Namen As String
Set wb = ThisWorkbook
Set wsH = wb.Worksheets("Hilfsdaten")
Set wsD = wb.Worksheets("Daten")
last = wsD.Cells(Rows.Count, 1).End(xlUp).Row
letzterName = wsH.Cells(Rows.Count, 13).End(xlUp).Row
Zähler = 1
For i = 14 To letzterName
tbs_Namen = ("Uf_Neuerfassung.Name_" & Zähler)
tbs_Namen = wsH.Cells(14, 13).Value
Zähler = Zähler + 1
Next i
End Sub
Anzeige