jetzt hab ich nochmal ein kleines Problem. Ich habe die folgende Funktion im Tabellenblatt6 und den Button der die Funktion auslösen soll in Tabellenblatt1.
Wenn ich jetzt die Funktion im Programmierfenster ausführen lasse, dann schreibt er auch brav die einzelnen Positionen fortlaufend numeriert jeweils in die nächste Zeile.
Wenn ich jetzt aber den mit dem Button ausführe, dann schreibt er den Datensatz nicht in die zweite Zeile (die erste Zeile ist mit Bezeichnung Belegt) sondern immer in die Zeile 80. Die Nummerierung passt aber mit "79". Habe keine Ahnung warum.
Hab das ganze mal in einer neuen Mappe aufgebaut diesmal mit Tabelle1 und Tabelle2, und jetzt macht er das gleiche bei 17.
Function pos()
Cells(A2).Select
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
a = ActiveCell.Row
b = a - 1
Worksheets("Pos").Range("A" & a) = b
End Function
gruss Flo