Datensatz in Userform einlesen/überschreiben
22.01.2021 11:51:46
Michael
und weider einmal benötigte ich Hilfe.
Ich habe in der 3. Zeile meinen letzten Datensatz in Spalte A bis L stehen.
Darunter stehen die vorherigen Datensätze. Nun möchte ich einen "Rück" & "Vor" CommandButton anlegen,
sowie eine "Datensatz korrigieren" Commandbutton anlegen. Jetzt weis ich nicht wie ich den Datensatz in meine
TextBoxen bzw. Comboboxen einlesen kann.
schreiben tue ich meine Datensätze wie folgt:
Private Sub CommandButton1_Click()
Range("A2").Value = "'" & Left(ComboBox1, 3)
Range("B2").Value = "'" & Left(TextBox12, 4)
Range("C2").Value = "'" & Format(TextBox13, "00")
Range("D2").Value = "'" & Format(TextBox14, "00")
Range("E2").Value = "'" & Format(ComboBox5, "00000")
Range("F2").Value = "'" & Left(ComboBox6, 2)
Range("G2").Value = "'" & Format(TextBox17, "00")
Range("H2").Value = "'" & Format(TextBox18, "00")
Range("V2").Value = "" & Format(TextBox17, "00") & ":" & Format(TextBox18, "00")
Range("I2").Value = "'" & Format(TextBox19, "00")
Range("J2").Value = "'" & Format(TextBox20, "00")
Range("W2").Value = "" & Format(TextBox19, "00") & ":" & Format(TextBox20, "00")
Range("K2").Value = "'" & Format(TextBox21, "000")
Range("L2").Value = "'" & Format(TextBox2, "00000")
Range("X2").Value = "=(W2-V2)"
Range("N3").Value = "=Maske!A3&""&Maske!B3&""&Maske!C3&""&Maske!E3&""&Maske!F3&""&Maske!G3&""& _
_
Maske!H3&""&Maske!I3&""&Maske!J3&""&Maske!K3&""&Maske!L3"
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("N1").Select
Selection.AutoFill Destination:=Range("N1:N4"), Type:=xlFillDefault
Range("N1:N4").Select
Range("M3").Select
MsgBox "Datensatz wurde erfolgreich geschrieben!", _
Cancel = True
TextBox1.Text = ""
TextBox2.Text = ""
TextBox17.Text = ""
TextBox18.Text = ""
TextBox19.Text = ""
TextBox20.Text = ""
TextBox21.Text = " "
ComboBox1.SetFocus
End Sub
Ich müsste also die Zeile Dynamisch machen. Drücke ich "Rück" so müsste zur Zeile 2 ein +1 addiert werden
bis letzten Datensatz und mit "vor" eine -1 bis der erste erreicht ist. So könnte ich in meiner Maske zwischen den Datensätzen hin und her blättern und es wird der jeweilige in meine BOXEN angezeigt.
Wenn ich auf überschreiben gehe wird der in der ausgesuchten überschrieben. Geht das nicht so kann der auch gelöscht werden und als neuer in die 3. Zeile geschieben werden.
Hat jemand einen Ansatz für mich?
Gruß
Michael