Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2024to2028
2024to2028
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Mehrere relative Bezüge in einem Makro möglich?

Forumthread: Mehrere relative Bezüge in einem Makro möglich?

Mehrere relative Bezüge in einem Makro möglich?
06.02.2026 21:04:53
Heideperlen
Hallo,

vielleicht hat jemand einen Rat, ich formuliere erstmal was ich machen möchte und Frage mich, wie ich das mit einem Makro umsetzen kann?

Ich habe eine Exceldatei mit mehren Kunden und Mitarbeitern darin enthalten und ich möchte ab und zu einen Kunden einem anderen Mitarbeiter zuordnen.

Leider ist es so, dass nicht immer jeder wechselnde Kunde, zu dem gleichen Mitarbeiter gehen soll, oder anders gesagt anhand eines Beispiels.
Manchmal möchte ich Zeile 37 zu Zeile 12 verschieben
Manchmal möchte ich Zeile 22 zu Zeile 21 verschieben
Manchmal möchte ich Zeile 25 zu Zeile 17 verschieben
usw...Also eigentlich meist verschiedene Verschiebungen zu immer anderen Zeilen durchführen...

Derzeit habe ich es so gelöst, dass ich den Kunden den ich verschieben möchte, fest auf einem festen Platz (mit absoluter Bezug) auf einen dafür vorgehsehenen Platz im Tabellenblatt schiebe (mit einem einfachen makro) und dann auf die Zeile gehe wo ich diesen hinhaben möchte und dann mit einem 2. Makro den Kunden dann von dort hole und hinpacke wo ich gerade in er Zelle bin)

Ich mache also 2 Schritte dafür...

geht das auch irgendwie mit nur einem Schritt?
Einer eine Idee?

Lg Frank

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mehrere relative Bezüge in einem Makro möglich?
06.02.2026 22:16:33
GerdL
Moin Frank! 
Sub Unit()



Dim a As Long, b As Long



a = ActiveCell.Row

b = Application.InputBox("Ziel", "In Zielzeile markieren", Type:=8).Row

Rows(a).Cut Destination:=Rows(b)



End Sub

Gruß Gerd
AW: Mehrere relative Bezüge in einem Makro möglich?
07.02.2026 10:35:44
GerdL
Moin! 
Sub Nur_B_bis_O_versetzen()



    Dim a As Long, b As Long

    

    a = ActiveCell.Row

    b = Application.InputBox("Ziel", "In Zielzeile markieren", Type:=8).Row

    Range(Cells(a, 2), Cells(a, 15)).Cut Destination:=Cells(b, 2)

        'ggf. Quellzellen noch löschen:

    'Range(Cells(a, 2), Cells(a, 15)).Delete shift:=xlUp

End Sub

Gruß Gerd
Anzeige
AW: Mehrere relative Bezüge in einem Makro möglich?
07.02.2026 05:17:02
Heideperlen
Wow Danke Gerd...das habe ich gesucht und funktioniert.

Eine Frage habe ich dazu...

Er löscht mir jetzt die vollständigen Werte der zu verschiebende Zeile heraus, ich möchte aber, dass nur der Bereich der Spalte B bis O sowohl zu erst kopiert, dann dort gelöscht und dann auch nur B bis O in der von mir dann im 2. Schritt markierten Zeile (im von mir angeklickten Bereich den das Inputfenster abfragt) eingefügt wird.

Wo und wie in deinem Code müsste ich Kopiere nur B bis O einfügen?

Hintergrund ist, dass ich Spalte A und auch nach der Spalte O noch Werte stehen habe die dort bleiben sollen...

Aber ansonsten schon wirklich sehr geil, Danke Gerd...
Anzeige
Im Anhang ist...
07.02.2026 06:49:22
Case
Moin Frank, :-)

... ein Beispiel: ;-)
https://www.herber.de/bbs/user/180173.xlsb

Du kannst entweder in B2:Bx einen Doppelklick machen und dann die Zielzeile per InputBox bestimmen, oder, wenn du das nicht willst, über Main_2 gehen (da erst die zu verschiebende Zeile bestimmen - über irgendeine Zelle in der Zeile - und dann Main_2 starten). ;-)

Servus
Case
Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum