verschieben per Schaltfläche

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: verschieben per Schaltfläche
von: Dani
Geschrieben am: 08.05.2015 15:12:07

guten Tag Freunde
ich habe ein Problem und keine Ahnung wie ich das umsetzten soll.
Die Datei findet ihr im Anhang.
https://www.herber.de/bbs/user/97541.xlsm
Ziel sollte es sein, dass die jeweiligen Zeilen nach klick auf die Auf/Ab Schaltfläche innerhalb des Breichs frei verschoben werden resp. eingefügt werden können ohne das es die anderen Zeilen löscht. Stellt es euch vor wie bei einem Fluglotzen der seine Flüge auf dem Regler auf und abschiebt. Die Reihenfolge der Zeilen sollte also frei soertierbar sein.
Brauche keine ganze Lösung nur ein Ansatz wie ich das umsetzen kann. Wäre toll. Würde die Lösung dann auch hier für andere Interssierte uploaden.
Danke und Grüsse.
Dani

Bild

Betrifft: AW: verschieben per Schaltfläche
von: Kenny
Geschrieben am: 08.05.2015 15:32:06
Hi Danit,
Spontan fällt mir das ein.
Vielleicht auf die Art?


Private Sub SpinButton2_SpinDown()
Cells(4, 1).EntireRow.Insert
Worksheets("Tabelle1").Rows(3).EntireRow.Select
Selection.Copy
Cells(4, 1).Select
Selection.PasteSpecial
Worksheets("Tabelle1").Rows(5).EntireRow.Select
Selection.Copy
Cells(3, 1).Select
Selection.PasteSpecial
Worksheets("Tabelle1").Rows(5).EntireRow.Delete
End Sub


Bild

Betrifft: AW: verschieben per Schaltfläche
von: Dani
Geschrieben am: 08.05.2015 15:59:14
hallo Kenny
Sehr gut! Genau sowas brauchte ich
Versuche nun, dass die SpinButtos dort bleiben wo ursprünglich palziert.
Ein Problem habe ich noch bei der eingefügten Zeile: EntireRow.
Hier suche ich eher eine Möglichkeit den untern Teil zu verschieben. Etwa mit "BEREICH.VERSCHIEBEN"
Danke

Bild

Betrifft: AW: verschieben per Schaltfläche
von: Nepumuk
Geschrieben am: 08.05.2015 16:06:52
Hallo,
ich hab dir mal eine Mustermappe gemacht wie ich das angehen würde:
https://www.herber.de/bbs/user/97544.xlsm
Gruß
Nepumuk

Bild

Betrifft: AW: verschieben per Schaltfläche
von: Dani
Geschrieben am: 08.05.2015 16:22:20
Hallo Nepumuk
Herzlichen Dank. Dachte nicht, dass ich so schnell eine fertige Lösung erhalte.
Ist genau das, was ich gesucht habe. Werde nun versuchen den Code zu verstehen.
1000 Dank
Dani

Bild

Betrifft: AW: verschieben per Schaltfläche
von: Nepumuk
Geschrieben am: 08.05.2015 16:26:41
Hallo Dani,
ich hab noch was vergessen. Ändere das Terminate-Event der Klasse so:

Private Sub Class_Terminate()
    Set SpinButton = Nothing
    Set OLEContainer = Nothing
End Sub

Gruß
Nepumuk

Bild

Betrifft: AW: verschieben per Schaltfläche
von: Dani
Geschrieben am: 08.05.2015 16:37:46
Danke :)

Bild

Betrifft: AW: verschieben per Schaltfläche geht auch einfach
von: Daniel
Geschrieben am: 08.05.2015 17:38:48
Hi
schau dir das mal an.
ist etwas einfacher, aber funktioniert genauso.
Hochschieben mit Doppelklick in Spalte F der jeweiligen Zeile, Runterschieben mit Doppekllick auf Spalte G (geprüft wird auf das Pfeilzeichen, dh du kannst weitere Zeilen einfach hinzunehmen, indem du du das jeweilige Zeichen in die Zelle kopierst.
https://www.herber.de/bbs/user/97545.xlsm
Gruß Daniel

Bild

Betrifft: AW: ps wichtig ist nur der Code im Modul
von: Daniel
Geschrieben am: 08.05.2015 17:41:08
... Tabelle1
den Code im Modul1 kannst du ignorieren.
Gruß Daniel

Bild

Betrifft: AW: ps wichtig ist nur der Code im Modul
von: Dani
Geschrieben am: 09.05.2015 10:39:10
Danke auch für deine Lösung
Gruss

 Bild

Beiträge aus den Excel-Beispielen zum Thema "verschieben per Schaltfläche"