Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: Lycaner am Oktober 02, 2015, 14:20:40 Nachmittag

Titel: Zeilenende eine Spalte mit VBA bestimmen
Beitrag von: Lycaner am Oktober 02, 2015, 14:20:40 Nachmittag

Hallo,

ich habe folgendes Problem. Ich habe in erstem Tabellenblatt eine Spalte mit Daten. In dem zweiten Tabellenblatt habe ich mit Macroaufzeichnungen einige Funktionen in der ersten Zeile eingegeben. Jetzt möchte ich diese Zeile mit der Funktionen soweit nach unten ziehen, wie es die Zeilen im ersten Tabellenblatt gibt.

Selection.AutoFill Destination:=Range("A1:F50"), Type:=xlFillDefault ( diese Zeile ist von Macroaufzeichnung)

Und ich möchte, dass es nicht zur bis Zeile 50 geht, sondern soweit, wie es  Zeilen in der Tabellenblatt 1 gibt. (es gibt immer unterschiedlich lange Spalten)
Also was muss ich für die "F50 " eintragen? Sowas wie "A1":Sheets(1).End(xlUp).Row" oder geht das garnicht?
 

Titel: Antw: Zeilenende eine Spalte mit VBA bestimmen
Beitrag von: gmg-cc am Oktober 02, 2015, 14:44:09 Nachmittag

Moin,

zumindest bist du schon in die Nähe gekommen  :)

Code: [Auswählen]

   Dim lRow As Integer
   '..
   lRow = Sheets(1).Cells.Find(What:="*", SearchOrder:=xlByRows, _
    SearchDirection:=xlPrevious).Row
   '..
   'ungeprüft
   Selection.AutoFill Destination:=Range("A1:F" & lRow), Type:=xlFillDefault
   '..


Titel: Antw: Zeilenende eine Spalte mit VBA bestimmen
Beitrag von: Lycaner am Oktober 02, 2015, 15:01:29 Nachmittag

funktioniert super, vielen dank