Vergleichen und kopieren(VBA-Code) Teil2
14.10.2021 15:56:32
FloSt
ich hatte unlängst eine Frage zum Vergleichen und Kopieren mittels VBA - siehe hier:
https://www.herber.de/forum/cgi-bin/callthread.pl?index=1837827
Leider konnte ich da nicht drauf antworten, ist wohl schon zu alt der Beitrag... Deshalb hier ein neues Thema gestartet
Ich habe jetzt Probleme auf neueren Rechnern, dass der DatePicker nicht mehr funktioniert, auch das nachinstallieren der Verweise funktioniert nicht.
Um alles relativ einfach und unabhängig zu gestalten, habe ich einfach ein Textfeld genommen und dieses als Datum formatiert, trotzdem klappt es noch nicht wirklich.
Hier der Code:
Private Sub CommandButton1_Click()
Dim S1 As Long
Dim S2 As Long
If ComboBox1.ListIndex = -1 Then Exit Sub
If ComboBox2.ListIndex = -1 Then Exit Sub
'hier war bisher:
'If DatePicker1.Value > WorksheetFunction.Max(Rows(6)) Then Exit Sub
'If DatePicker2.Value > WorksheetFunction.Max(Rows(6)) Then Exit Sub
'If DatePicker1.Value WorksheetFunction.Max(Rows(6)) Then Exit Sub
If TextBox2.Value > WorksheetFunction.Max(Rows(6)) Then Exit Sub
If TextBox1.Value Das wiederum beendet meinen Code in dieser Zeile:
If TextBox1.Value > WorksheetFunction.Max(Rows(6)) Then Exit Sub
Ich danke euch schon im Voraus für eure Unterstützung.
SG Flo!
Anzeige