Textfeld Inhalt aus VBA in Excel übertragen
08.01.2019 13:25:32
Artur
ich habe folgendes Problem.
ich habe eine Tabelle " Bestand " und eine Userform1 erstellt.
Diese Userform1 kann die Daten von Bestand mittlerweile abrufen, ich möchte jedoch auch hinkriegen das die Textfelder in denen der aktuelle Bestand eingetragen wird in die Bestandtabelle übertragen wird.
Kurz gesagt:
Spalte A = Fahrzeugnummern
Spalte B - CH : Bestand der Ausrüstung der Fahrzeuge
TextBoxen in der Userform1 nehmen die Werte auf, jedoch kriege ich den Code fürs "speichern" nicht hin.
TextBox1 soll den Wert in Spalte B eintragen + die Richtige Fahrzeugnummer vorher raussuchen, anhand von in Combobox1 angegebener Nummer.
Textbox2 soll den Wert in Spalte C eintragen + die Richtige Fahrzeugnummer vorher raussuchen.anhand von in Combobox1 angegebener Nummer.
Derzeitiger Code fürs abrufen :
Private Sub ComboBox1_Change()
'Fahrzeug wurde ausgewählt, die Daten sollen hochgeladen werden
Dim i As Long, lastrow As Long
lastrow = Sheets("Bestand").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To lastrow
If Sheets("bestand").Cells(i, "A").Value = (Me.ComboBox1) Or _
Sheets("Bestand").Cells(i, "A").Value = Val(Me.ComboBox1) Then
Me.Liste2 = Sheets("Bestand").Cells(i, "C").Value 'Fahrzeugschlüssel
Me.Liste3 = Sheets("Bestand").Cells(i, "D").Value 'Tankschlüssel
Me.Liste4 = Sheets("Bestand").Cells(i, "E").Value 'Handschuhfachschlüssel
Me.Liste5 = Sheets("Bestand").Cells(i, "F").Value 'Drucker
Me.Liste6 = Sheets("Bestand").Cells(i, "G").Value 'Wandler 220V
Me.Liste7 = Sheets("Bestand").Cells(i, "H").Value 'Adapter Kurz 12-24 V
Me.Liste8 = Sheets("Bestand").Cells(i, "I").Value 'Autoradio
End If
Next
End Sub
Danke schon im Voraus für Hilfe!
Artur
Anzeige