Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.05.2024 13:56:14
Zeit-Dokumentation von Zeilen
15.05.2024 13:36:18
Zeilen ausschneiden und kopieren
15.05.2024 13:01:38
Die ersten 15 bedingten Formatierungen in Tabelle löschen
15.05.2024 12:04:32
Markierung nach Abweichung/Häufigkeit/Prüfung in Gruppe
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1936to1940
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

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

Links zu Excel-Dialogen

Frame InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige