Text aus Zelle in TextBox
17.08.2020 14:59:36
Stefan
Ich bin in VBA nicht ganz so bewandert wie die vielen Profis hier und habe leider nichts zu meinen Problem gefunden.
Ich habe folgendes Problem:
Ich habe eine Excel-Liste in der sich in Spalte B der Produktname und in Spalte F das jeweilige Eingabedatum befindet. Dabei werden fortlaufend Daten in Spalte B und F zu anderen Produkten und deren Eingabedatum eingepflegt.
Nun habe ich schon geschafft mit Hilfe dieses Forum, die Userform nach 14-Tage bei Überschreitung des Eingabedatums aus Spalte F wo wir noch keine Proben enthalten haben, diese entsprechend automatisch aufzurufen.
Private Sub Workbook_Open()
Dim i As Long
For i = 2 To Cells(Rows.Count, 6).End(xlUp).Row
If Cells(i, 6) "" Then
If Date > Cells(i, 6) + 14 Then
Userform1.Show
End If
End If
Next i
End Sub
Ist sowas überhaupt möglich?
Mein Ansatz sieht soweit aus:
Private Sub UserForm_Initialize()
Dim i As Long
For i = 2 To Cells(Rows.Count, 6).End(xlUp).Row
If Cells(i, 6) "" Then
If Date > Cells(i, 6) + 14 Then
Test.TextBox1 = vbLf & Cells(i, 2)
'MsgBox "Datum überschritten für Produkt: " & vbLf & Cells(i, 2) _
_
End If
End If
Next i
End Sub
Hier gibt die Schleife mir über eine MsgBox aus den jeweiligen Zellen aus Spalte B die überfälligen Produktnamen aus, über die Textbox zeigt er mir immer nur den selben Produktnamen.
Danke für eure Hilfe und Liebe Grüße,
Stefan
Anzeige