Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen

ListBox Einträge verwalten

Betrifft: ListBox Einträge verwalten von: xtian
Geschrieben am: 08.10.2020 21:12:22

Guten Abend zusammen,
ich hoffe das mir jemand bei meinem Problem helfen kann. Eine ListBox aus einer UserForm soll
die Daten aus meiner Excel Tabelle1 selbstständig ziehen.

In der Spalte A (immer ab Zeile 2) befindet sich der Name, in Spalte B der Vorname, in Spalte C
die Straße, in Spalte D die Postleitzahl und in Spalte E die Stadt.

Die ListBox soll den Namen (A), den Vornamen (B) und die Stadt (E) anzeigen. Das bekomme ich
auch so halbwegs hin. Die Anpassung der Spaltenbreite ist noch nicht so das gelbe vom Ei.

Mit SpinButtons (Up/ Down) möchte ich jetzt gerne den ausgewählten Datensatz in der ListBox
und auch in der Excel Datei (immer Spalte A bis E) entsprechend in der Position verschieben.

Viele Grüße
Christian

Betrifft: AW: ListBox Einträge verwalten
von: AlterDresdner
Geschrieben am: 08.10.2020 21:27:29

Hallo Christian,
und wenn Du uns Deinen bisherigen Ergebnisfile mal postest, ist das Helfen wesentlich einfacher...
Gruß der ALteDresdner

Betrifft: AW: ListBox Einträge verwalten
von: xtian
Geschrieben am: 08.10.2020 22:14:45

Hallo,
das habe ich bereits rausgefunden.
Private Sub UserForm_Initialize()
  With ListBox1
    .List = Sheets(1).Range("A:B:D").Value
    .ColumnCount = 3
    .ColumnWidths = "5cm;2cm;4cm"
    .ListIndex = -1
  End With
End Sub
Gruß
Christian

Betrifft: AW: ListBox Einträge verwalten
von: Oberschlumpf
Geschrieben am: 14.10.2020 09:34:12

Hi Christian,

mit "Ergebnisfile" ist eine Bsp-Datei gemeint, die du uns per Upload zeigen könntest.
Die Bsp-Datei sollte ausreichend viele Datenzeilen enthalten.
Und natürlich ganz wichtig!
In der Datei muss auch dein Userform enthalten sein.

Ciao
Thorsten

Betrifft: AW: ListBox Einträge verwalten
von: Matthias
Geschrieben am: 14.10.2020 19:58:08

Moin!
Wie die anderen schon sagten, mit einer Beispieldatei wäre es einfacher. Ansonsten mal Ideen zur Lösung. Da die Liste immer ab Zeile 2 losgeht und (vermutlich) fortlaufend ist, kannst du damit direkt auf die Liste und das Blatt zugreifen.
Beim Blatt ist die Zuordnung dann listindex +2. Je nach Button und der Richtung dann die Zeile zwei nach vorne oder hinten kopieren und die Ursprungszeile löschen.
In der lIstbox die Zeile mit dem Listindex mit dem davor bzw. dahinter tauschen. Das geht in einer Schleife über die Spalten. Dabei alten Wert zwichenspeichern, die Werte tauschen und in der neuen Position den gespeicherten Wert eintragen.
VG