Makro Hilfe

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

AW: Makro Hilfe

03.05.2008 22:48:08

Gerd
AW: Makro Hilfe

03.05.2008 23:37:00

Nico
AW: Makro Hilfe

03.05.2008 23:39:00

Nico
AW: Makro Hilfe

04.05.2008 00:15:00

Gerd
AW: Makro Hilfe

05.05.2008 11:49:00

Nico
AW: Makro Hilfe

05.05.2008 20:28:00

Gerd

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

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

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)

Forumthread: Makro Hilfe

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

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread