Office: Zellinhalt als Dateiname verwenden

Hallo zusammen,

ich habe folgendes Problem:

Ich möchte gerne der Inhalt der letzten Zelle einer Spalte in den Dateinamen einfügen. Wie ich zur letzten Zelle gelange habe ich so gelöst:

Windows("Payment Designator Overview").Activate
Sheets("RAW DATA").Activate
Range("B5").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select

Nur wie kann ich jetzt sagen, dass es immer die letzte Zelle sein soll?

Mein Ansatz ist dieser:

ActiveWorkbook.SaveCopyAs "10 Payment Analysis\Payment Designator\Report\Payment Designator Overview_" & Range("?????") & ".xls"

Wie sage ich also, dass er bei der Auswahl der Range noch die letzte Zelle aussuchen soll?

Ich danke euch für eure Hilfe!

VG und eine schöne Woche

Felix

 

Hallo Felix,

ich verstehe zwar nicht, was die rot gekennzeichnete Zeile

Code:

Windows("Payment Designator Overview").Activate
 Sheets("RAW DATA").Activate
 Range("B5").Select
 Selection.End(xlDown).Select
[COLOR="#FF0000"] ActiveCell.Offset(1, 0).Select[/COLOR]

bewirken soll, außer dass sie nach meinem Verständnis einen Laufzeitfehler im Makro verursacht (es sei denn, du hast auch in der absolut vorletzten Zeile in Spalte B etwas stehen).
Aber da du eh weißt, wie man zu den Zellen der absolut letzten Zeile gelangt, ist das Problem ja einfach:

Code:

Windows("Payment Designator Overview").Activate
Sheets("RAW DATA").Activate
Range("B5").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveWorkbook.SaveCopyAs "10 Payment Analysis\Payment Designator\Report\Payment Designator Overview_" & ActiveCell.Value & ".xls"

 

Hi Anton,

Du hast recht, die rote Zeile war natürlich Blödsinn! Die brauchte ich nur um einen neuen Datensatz an bestehende Daten unten anzuhängen...
Mit ActiveCell hatte ich es auch schon probiert, aber ich dachte ich müsste noch einmal extra die Zelle anwählen - da hab ich zu kompliziert gedacht, ich Anfänger ;-)
Funktioniert super! Tausend Dank!!!

Viele Grüße

Felix