Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
972to976
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
972to976
972to976
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro Hilfe

Makro Hilfe
03.05.2008 22:07:00
Nico
Tag zusammen,
ich habe mit dem Recorder ein kleines Makro gemacht. Dieses füge ich zur Ansicht hier ein. Es kopiert den selektierten Bereich an eine bestimmte Stelle. Jetzt soll das Makro aber den selektierten Bereich in die erste leere Spalte einfügen. Was muss geändert werden ?

Sub PA_um_eine_Woche_verlängern()
' PA_um_eine_Woche_verlängern Makro
' Makro am 03.05.2008 von nbreuer aufgezeichnet
Columns("D:Q").Select
Selection.Copy
Columns("R:R").Select ' AN DIESER STELLE SOLL DIE NÄCHSTE FREIE SPALTE GEWÄHLT WERDEN
Selection.Insert Shift:=xlToRight
Range("AE4").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("AE5").Select
Selection.ClearContents
Range("AE6").Select
Selection.ClearContents
Range("AE7").Select
Selection.ClearContents
Range("AE8").Select
Selection.ClearContents
Range("R14").Select
ActiveCell.FormulaR1C1 = "=RC[-2]+1"
Range("R15").Select
End Sub


Danke und Gruß
Nico

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro Hilfe
03.05.2008 22:48:08
Gerd
Hallo Nico,
welche Spalte könnte dies beispielsweise statt "R" sein?
welche Zeile ist die "Meßlatte" ?
Gruß Gerd

AW: Makro Hilfe
03.05.2008 23:37:00
Nico
Hallo Gerd,
im Moment enthält das Tabellenblatt Daten bis zu Spalte Q. Das muss aber so nicht sein. Beim nächsten betätigen des Makros kann die nächste freie Spalte eine beliebig andere sein. Darauf will ich ja hinaus. Das Makro soll die markierten Spalten (die sind immer gleich) ab der nächsten Spalte einfügen, in welcher in Zeile 13 nichts steht.
Gruß
Nico

AW: Makro Hilfe
03.05.2008 23:39:00
Nico
Hallo Gerd,
im Moment enthält das Tabellenblatt Daten bis zu Spalte Q. Das muss aber so nicht sein. Beim nächsten betätigen des Makros kann die nächste freie Spalte eine beliebig andere sein. Darauf will ich ja hinaus. Das Makro soll die markierten Spalten (die sind immer gleich) ab der nächsten Spalte einfügen, in welcher in Zeile 13 nichts steht.
Gruß
Nico

Anzeige
AW: Makro Hilfe
04.05.2008 00:15:00
Gerd
Hallo Nico,
das geht ohne Select.

Sub a()
Range(Columns(4), Columns(12)).Copy Destination:= _
Columns(Cells(13, 256).End(xlToLeft).Offset(0, 1).Column)
End Sub


Gruß Gerd

AW: Makro Hilfe
05.05.2008 11:49:00
Nico
Vielen Dank,
das funktioniert super. In der Folge löscht das Makro einige Zellen (Textteile, die im Quellbereich beim Kopieren vorhanden sind, in den eingefügten Teilen dann aber nicht mehr erscheinen sollen).
Allerdings funktioniert das nur beim einmaligen kopieren, weil ich mich ja auf ganz bestimmt Zellen beziehe. Kann man das so lösen, daß bestimmte Zellen des gerade kopierten immer gelöscht werden ?
Danke und Gruß
Nico

Anzeige
AW: Makro Hilfe
05.05.2008 20:28:00
Gerd
Hallo Nico,
teile bitte die Zellenadressen vom Quellbereich mit, bei denen dann in der "Kopie" die Inhalte
gelöscht werden sollen u. ggf. auch die Formel eingefügt werden soll.
Gruß Gerd

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige