Zellen verschieben

Hallo,
ich habe mal wieder ein Problem mit meinem Diensplan.
Der Aufbau ist in Spalte A5 bis A57 sind die ganzen Namen der Mitarbeiter die ich mit einem Dropdown Menü auswählen kann, die Mitarbeiter sind in einem anderen Tabellenblatt alle aufgeführt, was theoretisch auch sehr gut funktioniert.
Das Problem wenn ein neuer Mitarbeiter dazu kommt dann muss dieser eventuel als Beisbiel zwischen A9 und A10 eingefügt werden und alle anderen müssten dann um eine Zeile nach unten verschoben werden. Im moment klick ich von unten jede Zelle an und wähle den darüberligenden Namen an so das alle eine Zeile tiefer sind, was sehr mühevoll ist.
Vielleicht hat von euch einer eine Idee wie ich das vereinfachen könnte, am libesen ohne VBA da ich mich da nicht so gut auskenne, aber wenn es nicht ohne geht auch gerne mit, was man nicht kann kann man ja lernen.
Gruß Mirko
PS: Es sollte wenn es fertig ist von der Handhabung her einfach sein, da die Person wo die dienspläne schreibt nicht so der Computermensch ist :-)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Damit du schonmal ein Anfang hast:

Sub hoch()
Dim zeile As Long
'Zelle nach oben verschieben
zeile = InputBox("Bitte Zeile eingeben")
Rows(zeile - 1).Insert Shift:=xlToDown
Range("A" & zeile + 1).Cut Destination:=Range("A" & zeile - 1)
Rows(zeile + 1).Delete
End Sub
Sub runter()
Dim zeile As Long
'Zelle nach unten verschieben
zeile = InputBox("Bitte Zeile eingeben")
Rows(zeile + 2).Insert Shift:=xlToDown
Range("A" & zeile).Cut Destination:=Range("A" & zeile + 2)
Rows(zeile).Delete
End Sub

Das sind zwei eigene Makros, der Button zum nach oben verschieben muss dem Makro "hoch" zugeordnet werden und der Button zum nach Unten verschieben muss dem Makro "runter"zugeordnet werden.
Bei dem Makro muss man die Zeile eintragen wo sich der Wert befindet, den man verschieben möchte. Dementsprechend verschiebt er den Wert der ZELLE der eingegebenen Zeile nach oben oder unten. Also Zelle markieren ist in diesem Fall nicht nötig.
Aber mit ActiveCell kann man auch die markierte Zelle verschieben, aber mach das nur, wenn du dich zu genüge mit VBA auskennst.
Und ich bin davon ausgegangen dass der Wert den du verschieben möchtest sich immer in Spalte A befindet
Freundliche Grüße

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen verschieben

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

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread