Hallo Ralf
Besten Dank für deine Rückmeldung und kritische Fragen:
- Es handeltsich um eine intelligente Tabelle.
- Es braucht nicht zwingend einen Button, ein Shortcut wäre ausreichend.
Das hier ist alles was ich an Code erstellt habe
Sub SucheFreieZeile()
Dim ZeileAs Range
Dim Maxzeile As Long
If Val(Left(Application.Version, 2)) > 11 Then
Maxzeile = 1048576
Else
Maxzeile = 65536
End If
Set Zeile = Cells(Maxzeile, 1).End(xlUp).Offset(1, 0)
MsgBox "Die nächste freie Zeile ist " & Zeile.Address(False, False)
End Sub
Hier erhalte ich aber jedoch nur die Information, wo die nächste freie Zeile ist.
Ziel sollte es sein, dass mit dem Makro die nächste freie Zeile mit den Formatierungen sowie der Übernahme der Laufnummer + 1 und das Erstelldatum, automatisch beschrieben wird.
Ich bitte um Nachsicht was meine VBA Kenntnisse anbelangt und danke für die Unterstützung.
|