Tabelle2.Range ("A6:C" & lastRow) . Sort _
Key1:=Tabelle2.Cells (, 1),
Header:=xINo, Order1:=x1Descending
.optAusgang.Value = True
.TextBox1 = "“
.TextBox1. SetFocus
End With
Call Summ
If FormLager. optAusgang. Value = True Then
Call Überpf
End If
Hallo zusammen,
ich bin Anfänger und bastel schon länger an einem vorhandenen Projekt und komme da nicht weiter.
Es werden über eine Userform Daten eingegeben und auf einem Tabellenblatt geschrieben, nun sollen die Daten nach Datum und Uhrzeit sortiert werden, das Datum, Uhrzeit stehen in Spalte A beginnend mit Zeile 6 bis zum Ende, es gibt noch zwei weitere Spalten B und C.
Angezeigt wird das Ganze dann in einer Listbox.
Auf dem Foto ist der aktuelle Code zu sehen, dieser funktioniert aber nur Teilweise, wo liegt der Fehler?
|