Userform fixieren und bei Auswahl Zeile nach unten
31.01.2015 22:24:35
Tom
In einem Rechnungsformular habe ich einen Bereich definiert, in dem ich per Kontextmenü ne Userform mit listbox aufpoppen lasse. Darin sind nun die Artikel die man per Doppelcklick ins Formular übertragen kann. Das funktioniert alles bestens. Doch durch die zunehmende Datenmenge wird es sehr viel aufwendiger nach Atrikeln zu suchen, da das Fenster bei jeder Auswahl wieder verschwindet und erneut bei Zeile 1 positioniert ist. Wenn ich nun das Fenster stehen lasse, kann ich zwar alle möglichen Artikel einfügen, aber immer in die selbe Zelle im Formular, was ja nix bringt.
Ich such eine Lösung, bei der das Fenster stehen bleibt, oder kurz verschwindet und mit der selben Artikelposition wieder erscheint, so dass ich nicht ständig suchen muss. Die ausgewählte Zeile im Formular müsste dabei immer um eine Zeile nach unten switchen, um den nächsten Eintrag machen zu können. Da bin ich mit meinem Latein am Ende
Private Sub lstArtikel_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
wahlindex = frmAuswahl.lstArtikel.ListIndex
ActiveCell.Value = Worksheets("Artikel").Cells(wahlindex + 2, 2) .Value'Artikel
ActiveCell.Offset(0, -1).Value = Worksheets("Artikel").Cells(wahlindex + 2, 1).Value' _
Positionsnummer
ActiveCell.Offset(0, 1).Value = Worksheets("Artikel").Cells(wahlindex + 2, 3).Value' _
Menge1
ActiveCell.Offset(0, 2).Value = Worksheets("Artikel").Cells(wahlindex + 2, 4).Value' _
Sub1
ActiveCell.Offset(0, 3).Value = Worksheets("Artikel").Cells(wahlindex + 2, 5).Value' _
Sub2
ActiveCell.Offset(0, 4).Value = Worksheets("Artikel").Cells(wahlindex + 2, 6).Value' _
Menge2
ActiveCell.Offset(0, 6).Value = Worksheets("Artikel").Cells(wahlindex + 2, 8).Value' _
Einheit
ActiveCell.Offset(0, 7).Value = Worksheets("Artikel").Cells(wahlindex + 2, 9).Value' _
Menge3
ActiveCell.Offset(0, 8).Value = Worksheets("Artikel").Cells(wahlindex + 2, 10).Value' _
Rabatt
ActiveCell.Offset(0, 9).Value = Worksheets("Artikel").Cells(wahlindex + 2, 11).Value' _
Preis
ActiveCell.Offset(0, 14).Value = Worksheets("Artikel").Cells(wahlindex + 2, 11).Value' _
Preis
Cancel = True
Unload frmAuswahl
End Sub