Hi Zusammen,

folgend der link mit der Beispieldatei:
https://www.herber.de/bbs/user/170623.xlsm

Ich habe das zwei Probleme:

1. Beim Generieren eines neuen Eintrages über den Funktionsbutton soll ein Zeilenbereich kopiert werden, die erste freie Zeile ausfindig gemacht werden, und dort eingefügt werden.
Allerdings wird mir die Zwischenablage immer in die letzte beschriebene Zeile eingefügt.
Ich habe bereits den Hinweis bekommen, dass der Code

' Erste freie Zeile finden
firstEmptyRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1

dafür nicht geeignet sein soll.
Ich solle es mit einer Schleife versuchen, Zitat: "Du kannst in einer aufwärts zählenden Schleife If .Cells(i,1)>"" then ... dies abfragen und beim ersten Treffer die Zeilennummer in die Variable "firstEmptyRow" schreiben und mit Exit For die Schleife verlassen."

Daraus habe ich folgenden Code versucht:

For i = 1 To ws.Rows.Count
If ws.Cells(i, 1).Value = "" Then
firstEmptyRow = i
Exit For
End If
Next i

Allerdings macht dieser auch nicht das was ich benötige. Ich konnte ehrlich gesagt auch nicht viel mit dem Hinweis anfangen, da meine Kenntnisse nicht so umfangreich sind. Ich würde mich freuen wenn mir eventuell mit dem Code helfen könnte. Falls es nicht zu vielaufwand mir auch den Code anpassen.

2. Ich habe meinen Zellbereich der kopiert werden soll mit einer Gruppierung versehen. Diese wird mir leider aber nicht mitkopiert. ich habe es schon mit special.copy versucht aber das klappt leider nicht.
Hat jemand dazu auch eine idee, wie ich den copy Befehl anpassen kann, dass alles aus dem Zellbereich kopiert wird. auch die Gruppierung.

Das wäre super nett wenn mir jemand dabei helfen könnte.
MfG sasha