AW: VBA Text in Datum Formatieren
29.10.2016 16:29:16
Sven
Hi Gerd,
ich nochmal.
Also Alleine geht es.
Aber kann man es hier in den Code einfügen ?
'Speichern Schaltfläche Ereignisroutine
Private Sub CommandButtonSpeichernFiliale_Click()
Dim lZeile As Long
'Wenn kein Datensatz in der ListBox markiert wurde, wird die Routine beendet
If ListBoxFilialnummer.ListIndex = -1 Then Exit Sub
'Wir müssen prüfen, ob die ID Spalte auch gefüllt ist!!
If Trim(CStr(TextBoxFilialnummer.Text)) = "" Then
'Meldung ausgeben
MsgBox "Sie müssen mindestens einen Namen eingeben!", vbCritical + vbOKOnly, "FEHLER!"
'Abbrechen der Speicherroutine
Exit Sub
End If
'Ausbauoption: Prüfen, ob die ID in Tabelle1 Spalte 1 schon vorhanden ist!
'Zum Speichern benötigen wir die Zeilennummer des ausgewählten Datensatzes
lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschriften
'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
Do While Trim(CStr(Tabelle3.Cells(lZeile, 1).Value)) ""
'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen
If ListBoxFilialnummer.Text = Trim(CStr(Tabelle3.Cells(lZeile, 1).Value)) Then
'Eintrag gefunden, TextBoxen in die Zellen schreiben
Tabelle3.Cells(lZeile, 1).Value = Trim(CStr(TextBoxFilialnummer.Text))
Tabelle3.Cells(lZeile, 2).Value = TextBoxFiliale.Text
Tabelle3.Cells(lZeile, 3).Value = TextBoxOrt.Text
Tabelle3.Cells(lZeile, 4).Value = TextBoxJahr.Text
Tabelle3.Cells(lZeile, 5).Value = TextBoxFilialleiter.Text
'Die ListBox muss nun neu geladen werden
'allerdings nur, wenn sich der Name (ID) geändert hat
If ListBoxFilialnummer.Text Trim(CStr(TextBoxFilialnummer.Text)) Then
Call UserForm_Initialize
If ListBoxFilialnummer.ListCount > 0 Then ListBoxFilialnummer.ListIndex = 0
End If
Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
End If
lZeile = lZeile + 1 'Nächste Zeile bearbeiten
Loop
End Sub
Gruß
Sven