Ich erstelle zur Zeit eine Datei die einem Lagerprogramm nahe kommt.
Nun bin ich an ein Problem gestoßen, welches ich selbst nicht lösen kann und hoffe ihr könnt mir helfen :/
Der Code
Private Sub CommandButton_Suchen_Click()
With ListBox_Suche
.Clear
.ColumnCount = 12
.ColumnHeads = True
.ColumnWidths = "30;90;90;50;20;50;25;75;150"
.RowSource = "Lagerbestand!A3:M" & Sheets("Lagerbestand").Range("A3").End(xlDown).Row
End With
With ListBox_Reparatur
.Clear
.ColumnCount = 12
.ColumnHeads = True
.ColumnWidths = "30;90;90;50;20;50;25;75;150"
.RowSource = "In Reparatur!A3:M" & Sheets("In Reparatur").Range("A3").End(xlDown).Row
End With
With ListBox_Lager
.Clear
.ColumnCount = 12
.ColumnHeads = True
.ColumnWidths = "30;90;90;50;20;50;25;75;150"
.RowSource = "Auf Lager!A3:M" & Sheets("Auf Lager").Range("A3").End(xlDown).Row
End With
With ListBox_Einsatz
.Clear
.ColumnCount = 12
.ColumnHeads = True
.ColumnWidths = "30;90;90;50;20;50;25;75;150"
.RowSource = "Im Einsatz!A3:M" & Sheets("Im Einsatz").Range("A3").End(xlDown).Row
End With
End Sub
Das Makro ist im Code der Userform hinterlegt.
Die erste ListBox funktioniert, bezieht sich auf die erste Tabelle (Lagerbestände)
Die zweite ListBox funktioniert nicht, bezieht sich auf die zweite Tabelle (In Reparatur).
Der einzige Unterschied: die zweite ListBox liegt in einer Multiseite.
Ich hoffe das reicht an Infos, wenn ihr weitere wollt oder die Datei, einfach schreiben.
Weiter hoffe ich Ihr könnt mir helfen!
Lg Philip