Userform Daten aktualisieren - BUG
18.02.2020 12:31:55
Thomas
ich kenn mich zwar in Excel etwas aus aber bei VBA bin ich ein Neuling.
ich möchte eine Userform erstellen mit welcher ich Daten aus einem Tabellenblatt auslesen kann und über eine aktualisieren-Schaltfläche ändern kann.
Wie soll es funktionieren?
1) Listbox dient zur Auswahl der Kalenderwoche
2) 5 Textboxen Zeigen Werte an welche in einem Tabellenblatt in der selben Zeile stehen (Jede Kalenderwoche = 1 Zeile)
3) Wenn ich die Werte ändere und auf einen Command-Button klicke sollen die Werte im Tabellenblatt aktualisiert werden.
Problem
1) Es aktualisiert immer nur den den Wert der ersten Textbox.
2) Wenn ich die Spaltennummer im Quellcode ändere dann funktioniert die Aktualisierung nur bis zur Spalte H (Spalte Nr. 8)
könnt ihr mir sagen wo da der Haken ist?
hier mein Quellcode
Private Sub LogistikSpeichernAktualisierenButton_Click()
'Daten in Datenbank schreiben
Dim x As Long
Dim y As Long
x = Tabelle4.Range("B" & Rows.Count).End(xlUp).Row
For y = 2 To x
If Tabelle4.Cells(y, 2).Text = KLWAuswahlWert.Value Then
'Aktualisierung Datenbank
Tabelle4.Cells(y, 8) = LogistikArbeitsstundenWert.Text
Tabelle4.Cells(y, 9) = LogistikÜberstundenWert.Text
Tabelle4.Cells(y, 10) = LogistikUrlaubsstundenWert.Text
Tabelle4.Cells(y, 11) = LogistikKrankheitsstundenWert.Text
Tabelle4.Cells(y, 12) = LogistikMutterschaftsstundenWert.Text
End If
Next y
End Sub