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

Markierte Zellen in andere Spalte

Forumthread: Markierte Zellen in andere Spalte

Markierte Zellen in andere Spalte
12.07.2023 09:21:03
ThomasG
Hallo zusammen,
mit dem Makro-Rekorder komme ich nicht weiter: Ich möchte mehrere markierte Zellen (u.U. auch in mehreren Zeilen) in eine andere Spalte kopieren. Dabei sollen die Zeile erhalten bleiben ODER eine Abfrage nach dem Einfügepunkt (per Mausklick) erfolgen.

Wie bewerkstelle ich das?

Vielen Dank im Voraus!
ThomasG
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Markierte Zellen in andere Spalte
12.07.2023 09:35:29
Rudi Maintaire
so?
Sub aaa()
  Dim c As Range, r As Long
  Application.ScreenUpdating = False
  r = Application.InputBox("ab wo?", , 0, , , , , 1)
  If r = 0 Then
    For Each c In Selection
      c.Copy Cells(c.Row, 26)  'nach Z
    Next c
  Else
    For Each c In Selection
      c.Copy Cells(r, 26)  'nach Z
      r = r + 1
    Next c
  End If
End Sub
Gruß
Rudi

Anzeige
AW: Markierte Zellen in andere Spalte
12.07.2023 10:10:48
ThomasG
Hallo Rudi,
zuerst vielen Dank.

Ganz passt es noch nicht: Wenn ich mehrere, nebeneinanderstehende Zellen markiere, klappt das kopieren nicht, weil nur eine Zelle übertragen wird.
Ich habe mal einen Screenshot gemacht.
Denkbar wäre auch, dass ich im Makro eine Angabe festlege, um wieviele Spalten nach rechts kopiert werden soll. Das würde mir genügen.

Userbild

Anzeige
nach rechts kopieren
12.07.2023 11:10:55
Rudi Maintaire
Hallo,
noch'n Gedicht:
Sub aaa()
  Dim c As Range, s As Long
  Application.ScreenUpdating = False
  
  s = Application.InputBox("Spalten nach rechts?", , 0, , , , , 1)

  For Each c In Selection
    c.Copy c.Offset(, s)
  Next c
  
End Sub
Gruß
Rudi

Anzeige
AW: nach rechts kopieren
12.07.2023 12:20:21
ThomasG
Das war es!
Vielen Dank. Ich habe noch eine kleine Änderung vorgenommen und bin glücklich.

Danke Rudi --> tolle Lyrik :-)

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige