Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1708to1712
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

VBA Zellenbezug Letzte Zeile

VBA Zellenbezug Letzte Zeile
27.08.2019 10:21:16
Johannes
Hallo,
ich stehe gerade etwas mit meinen Code an. Ich möchte gerne eine Formel bis zur letzte Zeile kopieren und dann die Inhalte einfügen.
Letzte_zelle = Range("B1").SpecialCells(xlCellTypeLastCell).Address
range("X3:AA3").Select
Selection.Copy
Range("X4:AA500").Select
Ich schaffe es irgendwie nicht statt AA500 den Wert der Variablen Letze_zelle zu schreiben. Könnt ihr hier mir weiterhelfen

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Zellenbezug Letzte Zeile
27.08.2019 10:32:56
ede
Hallo Johannes,
versuch es mal mit der letzten Zeile...

letzteZeile = letzteZeile = Cells(1048576, 2).End(xlUp).Row
Range("X3:AA3").Select
Selection.Copy
Range("X4:AA" & letzteZeile).Select

gruss
ede
Korrektur:
27.08.2019 10:36:27
ede

letzteZeile =  Cells(Rows.Count, 2).End(xlUp).Row
Range("X3:AA3").Select
Selection.Copy
Range("X4:AA" & letzteZeile).Select

AW: VBA Zellenbezug Letzte Zeile
27.08.2019 11:01:16
Werner
Hallo,
auf Select sollte man besser verzichten.
With Worksheets("DeinBlattname")
.Range("X3:AA3").Copy .Range("X4:AA" & .Cells(.Rows.Count, 2).End(xlUp).Row)
.Range("X4:AA" & .Cells(.Rows.Count, 2).End(xlUp).Row).Value = _
.Range("X4:AA" & .Cells(.Rows.Count, 2).End(xlUp).Row).Value
End With
Gruß Werner
Anzeige
AW: VBA Zellenbezug Letzte Zeile
27.08.2019 12:47:26
Johannes
Super danke funkt beides
Gerne u. Danke für die Rückmeldung. o.w.T.
27.08.2019 21:27:14
Werner

325 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige