Hilfe bei beigefügtem Code
31.01.2014 16:12:39
Frank
Vorab allen ein schönes WE!
Ab Spalte 4 stehen die zu Daten die gefunden werden sollen.
Auf einer UF befinden sich die dazugehörigen TextBoxen 41 - 80. Ich würde gern mittels einer Schleife die TextBoxen mit den Daten füllen.
Wie muss ich das anstellen. Mein Code-Anfang sieht in etwa so aus.
Private Sub ComboBox1_Change()
With frmDatenerfassung
Sheets("Daten").Activate
Dim c, m As String
Dim y As Integer
c = 3
m = ComboBox2.ListIndex * 12 + ComboBox1.ListIndex
y = c + m
'Hier müsste 'ne For -. Next Schleife eingebaut werden, aber wie?
End With
Sheets("Gehaltsberechnung").Activate
End Sub
Ich bitte um Hilfe und bedanke mich im Voraus!Liebe Grüße Frank H.