Userform Übernehmen
27.11.2018 09:26:50
Joern
erst mal möchte ich mich für viele hilfreiche Themen und Anregungen bedanken, die hier im Forum erhältlich sind.
Ich beschäftige mich seit einiger Zeit mit VBA und liebe es einfach.
Nun habe ich allerdings, ein für mich schier unlösbares Problem und auch vorhandene Themen konnten leider bisher keinen Erfolg bringen.
Ich habe ein Worksheet in dem viele Maschinen mit internen Nummern und Maschinendaten gespeichert sind.
Um nun weitere Maschinen hinzufügen zu können habe ich eine Userform erstellt, welche die letzte vergebene Nummer sucht und die Eingaben in der Maske als neue hinzufügt.
Klappt super.
Nun werden die Maschinen allerdings jährlich geprüft. Diese Daten möchte ich hinzufügen.
Dazu gibt es eine weitere Userform.
Hier wird über die einzugebene Inventarnummer die Liste durchsucht und die Userform entsprechend gefüllt. Klappt
Mit der Option Daten Ändern werden die gesperrten Textboxen entsperrt und die Daten können geändert werden.
Klappt auch.
Nun zu meinem Problem:
Wie schaffe ich es, dass die eingegebenen Daten auch überschrieben werden und durch das Prüfdatum ergänzt werden - Mein Problem :roll:
Ich hoffe ihr könnt mir helfen. Hier ist mein verwendeter Code für die Suche:
Sub Suchen()
Dim Zelle As Range
With Worksheets("Geräteliste - Inventar")
For Each Zelle In .Range("B1:B" & Cells(Cells.Rows.Count, 2).End(xlUp).Row)
If Zelle = TBox_Inventar.Text Then
Prüfung.TBox_Nummer.Text = .Cells(Zelle.Row, 1)
Prüfung.TBox_Maschine.Text = .Cells(Zelle.Row, 3)
Prüfung.TBox_Serien.Text = .Cells(Zelle.Row, 4)
Prüfung.TBox_Inbetrieb.Text = .Cells(Zelle.Row, 5)
End If
Next
End With
End Sub
Jetzt die Frage wie ich die Daten in der jeweiligen Liste überschreiben und ergänzen kann?
'Daten übernehmen und ergänzen des Prüfdatums in Spalte F
Private Sub CButton_Enter_Click()
'Hier beginnt die Verzweiflung
End Sub