|
Ei Gude,
ich habe gestern angefangen mich mit VBA ein wenig auseinander zu setzen und konnte bzgl. meines Problems keine einschlägige Lösung in diversen Foren finden und wollte mich mal an diese Community wenden.
Mein Problem ist folgendes:
Ich lasse mir die letzte Zeile und letzte Spalte mit einem Wert ausgeben, um meine letzte Zelle zu finden.
Dabei bin ich wie folgt vorgegangen:
Dim finalrow As String
Dim finalcolumn As String
Worksheets("1").Activate
finalrow = Cells(Rows.Count, 1).End(xlUp).Row
finalcolumn = Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(2, finalcolumn), Cells(finalrow, finalcolumn)).Select
Sobald ich bei der letzten Zeile bin, bekomme ich den Fehler "Laufzeitfehler'1004': Anwendungs- oder objektdefinierter Fehler"
Für finalcolumn wird der Wert 11 definiert und finalrow 9
Danke für Eure Hilfe.
Beste Grüße
Dominik
|