Neuer Datensatz in Listbox

Hallo liebe Forennutzer,
ich habe auf einer userform eine Listbox und möchte immer unter dem aktuell markierten Datensatz, einen neuen einfügen.
Folgenden Code habe ich zusammengebsatelt:


Private Sub Button_new_Click() 'Beim anklicken des Button new in userform wird folgender Code ausgeführt
On Error GoTo Fehlermeldung 'Wenn eine Fehlermeldung auftritt, nach unten springen und Code übergehen
Dim b As Long, d As Long, e As Long, c As Long
d = Me.ListBox1.ListIndex
b = (Me.ListBox1.List(d, 0) * 1) + 2 'Zeilennummer
c = (Me.ListBox1.List(d, 0) * 1) - 2 'Zeilennummer -2
e = Application.WorksheetFunction.Max(Tabelle2.Columns(1)) + 1 'Maximalwert der Spalte 1 in Tabelle2 +1 als Variable definieren
Tabelle2.Rows(b & ":" & b).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 'Einfügen einer Zeile unter der Makierung
Tabelle2.Cells(b, 1) = e 'Einfügen von Beispielwerten für den neuen Datensatz
Tabelle2.Cells(b, 2) = "blau" 'Einfügen von Beispielwerten für den neuen Datensatz
Tabelle2.Cells(b, 23) = "1" 'Einfügen von Beispielwerten für den neuen Datensatz
Tabelle2.Cells(b, 24) = "d" 'Einfügen von Beispielwerten für den neuen Datensatz
Tabelle2.Cells(b, 25) = "Quadrat" 'Einfügen von Beispielwerten für den neuen Datensatz
Tabelle2.Cells(b, 26) = "01.01.2026" 'Einfügen von Beispielwerten für den neuen Datensatz
Tabelle2.Cells(b, 27) = e 'Den Maximalwert+1 in der Spalte übernehmen
ListBox1.Clear 'Alle Listboxeinträge entfernen
UserForm_Initialize 'Aufruf des Initialize Ereignis
Me.ListBox1.Selected(c) = True 'Auswahl des Listboxeintrags der angezeigt werden soll
Exit Sub
Fehlermeldung:
MsgBox ("Please choose one") 'Wenn eine Fehlermeldung auftritt, öffnet sich eine Messagebox mit dem in "" stehenden Inhalt
End Sub

Anbei hierzu auch meine Beispieldatei: https://www.herber.de/bbs/user/148201.xlsm
Mein Problem: Füge ich bspw. bei Datensatz 3 ein, funktioniert alles wie geplant. Füge ich allerdings bei 50,57,60 ein, wird die eingefügte Zeile nicht immer über der gewünschten eingefügt.
Hängt dies mit meinen Variablen zusammen? Müssen die irgendwie zurückgesetzt werden? Bin für jeden Hinweis sehr dankbar!
Viele Grüße
Thomas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Piet,
vielen Dank für deinen Input zur usability, ich werde die Filter den entsprechenden Spalten zuordnen.
Mit dem anfügen hast du genau mein Problem beschrieben. Ich möchte immer den neuen Datensatz unter dem in der Listbox markierten darstellen. Dies funktioniert, wenn ich bspw. als erstes hinter dem in Spalte eins mit 3 bezeichneten Datensatz einfüge. Wenn ich bei 94 einen ersten Datensatz einfügen würde ist dieser schon an der falschen Stelle, nämlich nicht unter dem zuvor gewählten.
Ziel war es: Datensatz in Listbox markieren - Button New anklicken - Datensatz wird unter der Markierung eingefügt - neuer Datensatz selektiert
Ich komme momentan nicht hinter die Logik, warum es bei in Spalte 1 mit 3 bezeichneten Datensatz funktioniert, allerdings mit dem mit 94 und anderen nicht.
Wenn du hierzu noch eine Idee hast, wäre das wirklich klasse.
Vielen Dank für deinen Input und viele Grüße
Kai

Private Sub FilterList() Dim oDic As Object, meAr Dim A As Long, S As Long mavntValues = ListBox1.List 'Die Variable mavntValues entspricht den zuvor festgelegten Einträgen in der Listbox Set oDic = CreateObject(Class:="Scripting.Dictionary") 'oDic wird als Dictionary definiert For S = 1 To 4 'Schleife 1-4 With Worksheets("Tabelle3") ' Das folgende bezieht sich auf Tabelle 3 meAr = .Range(.Cells(2, S), .Cells(.Rows.Count, S).End(xlUp)).Value 'Das Dictionary wird befüllt mit den Werten aus der Spalte 1-4 und den Zeilen 2 bis letzte gefüllte End With For A = 1 To UBound(meAr) oDic(meAr(A, 1)) = vbNullString Next Controls("ComboBox" & CStr(S)).List = oDic.Keys 'Die jeweilige Liste der ComboBox 1-4 entspricht den zuvor gemachten Einträgen oDic.RemoveAll Next Set oDic = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Neuer Datensatz in Listbox

9 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)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread