AW: Wie wärs mit ein paar Infos?
05.10.2018 16:34:35
Werner
Hallo Andre,
da ist so einiges durcheinander/unklar mit deiner Beschreibung.
So wie ich das sehe, willst du das Datum aus dem Tabellenblatt "Kunde". Dort gibt es nämlich eine Spalte Datum WE. Das ist aber die Spalte F und nicht G.
Möglicherweise meinst du ja das hier:
Private Sub TextBox_KDNR_AfterUpdate()
'KDNR prüfen
If WorksheetFunction.CountIf(Tabelle3.Range("A:A"), DATENERFASSUNG.TextBox_KDNR.Value) = 0 Then
MsgBox "Hier muss ´ne gültige Kunden-Nummer rein!"
DATENERFASSUNG.TextBox_KDNR.Value = ""
Exit Sub
End If
'Daten zur Kundennummer ausfüllen
With DATENERFASSUNG
.TextBox_KDNAME = Application.WorksheetFunction. _
VLookup(CLng(DATENERFASSUNG.TextBox_KDNR), Tabelle3.Range("Lookup"), 2, 0)
.TextBox_PLZ = Application.WorksheetFunction. _
VLookup(CLng(DATENERFASSUNG.TextBox_KDNR), Tabelle3.Range("Lookup"), 3, 0)
.TextBox_ORT = Application.WorksheetFunction. _
VLookup(CLng(DATENERFASSUNG.TextBox_KDNR), Tabelle3.Range("Lookup"), 4, 0)
.TextBox_DATUMWE = Application.WorksheetFunction. _
VLookup(CLng(DATENERFASSUNG.TextBox_KDNR), Tabelle3.Range("Lookup"), 6, 0)
If .TextBox_DATUMWE = CDate(Application.WorksheetFunction. _
VLookup(CLng(DATENERFASSUNG.TextBox_KDNR), Tabelle3.Range("Lookup"), 6, 0)) = 0 Then
.TextBox_DATUMWE = "kein WE erfasst"
Else
.TextBox_DATUMWE = CDate(Application.WorksheetFunction. _
VLookup(CLng(DATENERFASSUNG.TextBox_KDNR), Tabelle3.Range("Lookup"), 6, 0))
End If
End With
End Sub
Gruß Werner