Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1124to1128
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
Inhaltsverzeichnis

Per Makro bis an bestimmte Tiefe einfügen

Per Makro bis an bestimmte Tiefe einfügen
Nibio
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
AW: Per Makro bis an bestimmte Tiefe einfügen
27.12.2009 16:26:10
Reinhard
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
AW: Per Makro bis an bestimmte Tiefe einfügen
27.12.2009 20:22:59
Nibio
Hallo Reinhard,
vielen Dank, funktioniert bei mir aber nicht.
Gruß
Nibio
AW: Per Makro bis an bestimmte Tiefe einfügen
27.12.2009 20:45:29
Andre´
Hallo Nibio,
habe mal das Bsp. von Reinhard aufgegriffen. https://www.herber.de/bbs/user/66829.xls
Bei mir funktioniert es!
MFG Andre
AW: Per Makro bis an bestimmte Tiefe einfügen
27.12.2009 21:23:24
Nibio
Ja, Danke, funktioniert doch.
Vielen Dank an allen!
AW: Per Makro bis an bestimmte Tiefe einfügen
27.12.2009 20:51:01
Jens
Hallo Nibio
Versuch mal so:
Range("X2").AutoFill Destination:=Range("X2:X" & Range("A65536").End(xlUp).Row)
Gruß Jens
Anzeige
AW: Per Makro bis an bestimmte Tiefe einfügen
27.12.2009 21:26:36
Nibio
Danke vielmals. Hat sich erledigt.
Gruß
Nibio

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige