Microsoft Excel

Herbers Excel/VBA-Archiv

Per Makro bis an bestimmte Tiefe einfügen | Herbers Excel-Forum


Betrifft: Per Makro bis an bestimmte Tiefe einfügen von: Nibio
Geschrieben am: 27.12.2009 16:14:13

Hallo Profis,

Diese Script kopiert die Formel aus Zelle X2 bis X13000
Ich möchte das ändern, so dass nicht bis 13000 kopiert sondern
bis die letzte nicht leere Zeile in Spalte A. Also wenn Spalte A aus 2000 Zeile
besteht, dann soll bis X2000 kopiert werden, und nicht bis X13000.
Wäre das möglich? Herzlichen Dank im Voraus.

Range("X2").Select
Selection.Copy
Range("X2:X13000").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Ein Gutes neues Jahr wünsche ich Euch allen!

Gruß
Nibio

  

Betrifft: AW: Per Makro bis an bestimmte Tiefe einfügen von: Reinhard
Geschrieben am: 27.12.2009 16:26:10

Hallo Nibio,

vielleicht so:

Sub Kopie()
Dim Zei As Long
Zei = Cells(Rows.Count, 1).End(xlUp).Row
Range("X2").Copy Destination:=Range("X2:X" & Zei)
End Sub

Gruß
Reinhard


  

Betrifft: AW: Per Makro bis an bestimmte Tiefe einfügen von: Nibio
Geschrieben am: 27.12.2009 20:22:59

Hallo Reinhard,

vielen Dank, funktioniert bei mir aber nicht.

Gruß
Nibio


  

Betrifft: AW: Per Makro bis an bestimmte Tiefe einfügen von: Andre´
Geschrieben am: 27.12.2009 20:45:29

Hallo Nibio,

habe mal das Bsp. von Reinhard aufgegriffen. https://www.herber.de/bbs/user/66829.xls

Bei mir funktioniert es!

MFG Andre


  

Betrifft: AW: Per Makro bis an bestimmte Tiefe einfügen von: Nibio
Geschrieben am: 27.12.2009 21:23:24

Ja, Danke, funktioniert doch.
Vielen Dank an allen!


  

Betrifft: AW: Per Makro bis an bestimmte Tiefe einfügen von: Jens
Geschrieben am: 27.12.2009 20:51:01

Hallo Nibio

Versuch mal so:

Range("X2").AutoFill Destination:=Range("X2:X" & Range("A65536").End(xlUp).Row)

Gruß Jens


  

Betrifft: AW: Per Makro bis an bestimmte Tiefe einfügen von: Nibio
Geschrieben am: 27.12.2009 21:26:36

Danke vielmals. Hat sich erledigt.

Gruß
Nibio


Beiträge aus den Excel-Beispielen zum Thema "Per Makro bis an bestimmte Tiefe einfügen"