Eingabemaske mit VBA - Sortieren nach Datum

Hallo zusammen,

Dies ist mein erster Beitrag und nehmt es mir bitte nicht übel, wenn ich etwas vergesse bzw. nicht beachtet habe.

Ich schreibe zur Zeit an einer Eingabemaske für eine Controlling Liste unserer Veranstaltungen (arbeite in der Eventbranche). Dies ist mir auch semi gut gelungen.
Alle Felder werden von der Eingabemaske beschrieben und in einer Tabelle aufgeführt.
Mein einziges Problem, das ich auch nach einer Suche etlicher Tutorials nicht lösen konnte, ist die Sortierung.

Im Moment werden die Eingaben einfach in die nächste freie Zeile geschrieben. Ich habe jedoch in meiner Tabelle schon ein komplettes Jahr (also 01.01.24 fortlaufend) mit Datum hinterlegt. Wenn ich jetzt in meiner Eingabemaske die Felder "Veranstaltung" "Datum" "Anlass" "Personenanzahl" etc. eingebe, wäre es super, wenn die Veranstaltung sich dem richtigen Datum in der Tabelle zuordnet (und nicht in die nächste Zeile).

Ich bräuchte also den richtigen Code für "ordne dich dem passenden Datum zu", anstatt:

Private Sub CommandButton1_Click()
Dim lZeile As Long
lZeile = 4
Do While Trim(CStr(Tabelle5.Cells(lZeile, 1).Value)) > ""
lZeile = lZeile + 1
Loop
Tabelle5.Cells(lZeile, 1) = CStr("Neuer Eintrag Zeile " & lZeile)
ListBox1.AddItem CStr("Neuer Eintrag Zeile " & lZeile)
ListBox1.ListIndex = ListBox1.ListCount - 1
End Sub

Ich hoffe, ich habe das Problem gut beschrieben, da ich die Excel Liste leider nicht posten kann (enthält schon relevante Daten).

Vielen Dank im Voraus

LG Torben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Dim lZeile As Long lZeile = Tabelle5.Cells(Rows.Count, 1).End(xlUp).Row + 1 Tabelle5.Cells(lZeile, 1) = CStr("Neuer Eintrag Zeile " & lZeile) ListBox1.AddItem CStr("Neuer Eintrag Zeile " & lZeile) ListBox1.ListIndex = ListBox1.ListCount - 1 'Tabelle5 neu sortieren 'Range + Sortieradresse bitte selbst einfügen!! Tabelle5.Range("A3:XX" & lZeile + 1).Sort Key1:=Tabelle5.Range("XXX"), Order1:=xlAscending, _ Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal End Sub

Hallo Uwe,

Ja, der Aufbau ist leider eine Vorgabe.
Die Tabelle wird auch noch von anderen Abteilungen genutzt, die zB. damit sehen welche Termine dann noch vergeben werden können (deswegen die Abbildung des kompletten Jahres) und exisitert in dieser Form schon länger (habe jetzt nur 2024 drin gelassen).
Die Eingabemaske Idee kam mir erst jetzt, da viele Zellen mit Formeln hinterlegt sind und wir z.B immer das Problem hatten, das Mitarbeiter "ausversehen" ihre Daten in die falsche Zelle eintragen und somit die Formeln löschen.
Mit der Eingabemaske hatte ich gehofft, dass ganze zu vereinfachen und sicherer zu machen.
Aber ja, die muss leider genau auf die Vorgabe angepasst werden und mein VBA Wissen beschränkt sich auf Turtorial folgen und hoffen es klappt.

Lg Torben

Option Explicit Option Compare Text Dim arrList() Private Const StartZeile As Long = 4 Private Sub LbLaden() Dim i&, j&, k& ReDim arrList(1 To 46, 1 To 440) With Tabelle5 For i = StartZeile To 440 If .Cells(i, 1) > "" And Not .Cells(i, 2) = "pro Veranstaltung" And Not .Cells(i, 2) = "Summe" _ And Not .Cells(i, 1) = "VA" And Not .Cells(i, 1) = "Februar" And Not .Cells(i, 1) = "März" _ And Not .Cells(i, 1) = "April" And Not .Cells(i, 1) = "Mai" And Not .Cells(i, 1) = "Juni" _ And Not .Cells(i, 1) = "Juli" And Not .Cells(i, 1) = "August" And Not .Cells(i, 1) = "September" _ And Not .Cells(i, 1) = "Oktober" And Not .Cells(i, 1) = "November" And Not .Cells(i, 1) = "Dezember" Then k = k + 1 arrList(1, k) = i For j = 2 To 46 arrList(j, k) = .Cells(i, j - 1) Next j End If Next i ReDim Preserve arrList(1 To 46, 1 To k) ListBox1.List = Application.Transpose(arrList) End With End Sub Private Sub UserForm_Initialize() LbLaden End Sub

Private Sub CommandButton1_Click() Dim iZeile As Variant With Tabelle5 iZeile = Application.Match(CLng(CDate(TextBox2)), .Columns(2), 0) If Not IsError(iZeile) Then .Cells(iZeile, 1) = TextBox1 .Cells(iZeile, 3) = TextBox3 .Cells(iZeile, 4) = TextBox4 ' Rest selbst einbauen Else MsgBox "Datum exixtiert nicht", vbInformation, "Datumsfehler" End If End With End Sub

Beliebteste Forumthreads (12 Monate)

Eingabemaske mit VBA - Sortieren nach Datum

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Eingabemaske mit VBA - Sortieren nach Datum

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread