Ich habe da wieder ein Problem, wo ich einfach auf den Schlauch stehe.
Mein Code
i = Range("B65536").End(xlUp).Row + 1
Sheets("maske").Range("H1:H1").Copy Sheets("Datenbank").Cells(i, 2)
So, in Spalte 1 soll eine Indexzahl kommen. Also: Wert von der Zeile drüber + 1
Eigentlich ist es total einfach, dachte ich.
Aber ich habe Probleme bei der Formulierung. Mein Ansatz:
last = Range("A65536").End(xlUp).Value 'letzter Wert der Spalte
'index
Sheets("Datenbank").Cells(i, 1).Value = last +1
' + 1 und einfügen.