Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellen verschieben

Zellen verschieben
31.01.2018 08:55:52
Mirko
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 :-)
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen verschieben
31.01.2018 14:33:22
Mirko
... so wie es aussieht ist das garnicht so einfach? Habe mir überlegt zwei Tasten mit Pfeil nach oben und unten, dann vielleicht so das wenn man einen Namen markiert und Pfeil nach unten drückt verschiebt er sich eine Zeile nach unten und der wo da gestanden hat geht nach oben, dann wäre aber auch wichtig das wenn ich zum Beisbiel 10 Namen markiere das ich die alle auf einmal eine Zeile nach unten schieben kann.
Weis aber garnicht ob sowas überhaupt machbar ist, wenn ja würde ich mich freuen wenn mir da einer von euch weiter helfen könnte, würde ja gerne Googel aber weis garnicht so recht nach was da ich mich mit VBA überhaupt noch nie beschäftigt habe.
Gruß Mirko
Anzeige
AW: Zellen verschieben
01.02.2018 21:49:13
Mirko
Nochmal Hallo,
sieht so aus als ob das so nicht möglich wäre wie ich mir das vorstelle.
Vielleicht gibt es eine Möglichkeit das ich nur eine Zelle markiere und diese dann mit zwei Button je eins nach oben oder unten verschieben kann. Allerdings sollte sich nur der Inhalt verschieben die Zellen sollten an ihrem Platz bleiben.
Ich würde mich freuen wenn mir einer einen Tipp geben könnte ob das überhaupt möglich ist.
Gruß Mirko
Anzeige
AW: Zellen verschieben
01.02.2018 21:51:20
Mirko
Nochmal Hallo,
sieht so aus als ob das so nicht möglich wäre wie ich mir das vorstelle.
Vielleicht gibt es eine Möglichkeit das ich nur eine Zelle markiere und diese dann mit zwei Button je eins nach oben oder unten verschieben kann. Allerdings sollte sich nur der Inhalt verschieben die Zellen sollten an ihrem Platz bleiben.
Ich würde mich freuen wenn mir einer einen Tipp geben könnte ob das überhaupt möglich ist.
Gruß Mirko
Anzeige
AW: Zellen verschieben
02.02.2018 07:59:02
Burak
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
Anzeige
AW: Zellen verschieben
04.02.2018 16:05:30
Mirko
Hallo Burak,
erstmal vielen Dank für deine Hilfe, aber leider funktioniert es nicht, vielleicht stell ich mich bloß blöd an, aber wie gesagt ich habe eigentlich auch kaum Ahnung mit VBA.
Es kommt die Fehlermeldung: Fehler beim Kompilieren: Variable nicht Definiert und das ist Markiert x1ToDown
Hab ich da was falsch gemacht?
Gruß Mirko
Anzeige
AW: Zellen verschieben
04.02.2018 16:31:15
Mirko
habs hin bekommen, hab xlToDown in xlDown geändert.
Aber das Problem ist das in der Zeile wo jetzt der Name ist keine Formeln mehr sind?
AW: Zellen verschieben
04.02.2018 16:31:22
Mirko
habs hin bekommen, hab xlToDown in xlDown geändert.
Aber das Problem ist das in der Zeile wo jetzt der Name ist keine Formeln mehr sind?
;
Anzeige
Anzeige

Infobox / Tutorial

Zellen verschieben in Excel: Einfache Methoden für deinen Dienstplan


Schritt-für-Schritt-Anleitung

Um Zellen in Excel einfach zu verschieben, befolge diese Schritte:

  1. Zelle auswählen: Klicke auf die Zelle, die du verschieben möchtest.
  2. Rechtsklick: Wähle "Ausschneiden" aus dem Kontextmenü oder drücke Strg + X.
  3. Zielzelle auswählen: Klicke auf die Zelle, unter der du die ausgeschnittene Zelle einfügen möchtest.
  4. Rechtsklick und Einfügen: Wähle "Einfügen" aus dem Kontextmenü oder drücke Strg + V. Die Zellen darunter werden automatisch nach unten verschoben.

Wenn du mehrere Zellen gleichzeitig verschieben möchtest, markiere einfach die gewünschten Zellen und wiederhole den Vorgang.


Häufige Fehler und Lösungen

  • Fehler: Nach dem Verschieben sind Formeln verschwunden.

    • Lösung: Stelle sicher, dass du die Zelle ausschneidest und nicht einfach nur kopierst. Dadurch bleibt die Formel in der ursprünglichen Zelle erhalten.
  • Fehler: Fehlermeldung: "Variable nicht definiert".

    • Lösung: Überprüfe den VBA-Code auf Tippfehler, z.B. xlToDown sollte xlDown sein.

Alternative Methoden

Eine Alternative zum manuellen Verschieben ist die Verwendung von VBA-Makros. Hier ist ein einfaches Beispiel:

Sub hoch()
    Dim zeile As Long
    zeile = InputBox("Bitte Zeile eingeben")
    Rows(zeile - 1).Insert Shift:=xlDown
    Range("A" & zeile + 1).Cut Destination:=Range("A" & zeile - 1)
    Rows(zeile + 1).Delete
End Sub

Sub runter()
    Dim zeile As Long
    zeile = InputBox("Bitte Zeile eingeben")
    Rows(zeile + 2).Insert Shift:=xlDown
    Range("A" & zeile).Cut Destination:=Range("A" & zeile + 2)
    Rows(zeile).Delete
End Sub

Um diese Makros zu nutzen, musst du zwei Buttons erstellen und die entsprechenden Makros zuordnen.


Praktische Beispiele

  1. Beispiel 1: Du hast einen Dienstplan und möchtest einen neuen Mitarbeiter zwischen den bestehenden Namen einfügen. Wähle den Namen aus, den du verschieben möchtest, und nutze die oben beschriebenen Schritte.

  2. Beispiel 2: Wenn du VBA verwendest, kannst du die oben genannten Makros anpassen, um mehrere Zeilen gleichzeitig zu verschieben, indem du eine Schleife einfügst, die durch die ausgewählten Zeilen iteriert.


Tipps für Profis

  • Verwendung von Tastenkombinationen: Nutze Strg + Pfeiltasten, um schnell durch große Datenmengen zu navigieren.

  • Automatisierung mit VBA: Wenn du regelmäßig Zellen verschieben musst, investiere einige Zeit in das Erlernen von VBA, um deine Arbeit zu automatisieren.

  • Datenvalidierung nutzen: Verwende Dropdown-Listen, um die Auswahl von Mitarbeitern zu erleichtern. Dies hilft, Fehler zu vermeiden und die Benutzerfreundlichkeit zu verbessern.


FAQ: Häufige Fragen

1. Wie kann ich mehrere Zellen gleichzeitig verschieben?
Du kannst mehrere Zellen auswählen und dann den beschriebenen Ausschneiden- und Einfügen-Vorgang durchführen.

2. Kann ich das Verschieben von Zellen auch ohne VBA durchführen?
Ja, das Verschieben von Zellen kann einfach durch Ausschneiden und Einfügen erfolgen, ohne VBA zu verwenden.

3. Was tun, wenn ich Fehler beim Verwenden von VBA erhalte?
Stelle sicher, dass du die richtigen Variablen und Konstanten verwendest und dass der Code keine Syntaxfehler enthält.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige