Wie kann ich einem Makro in Excel vorgeben, immer am Tabellenende einen Eintrag zu machen?

Um einem Makro in Excel vorzugeben, immer an der untersten Stelle einer Tabelle (also in der ersten freien Zeile unterhalb der vorhandenen Daten) einen Eintrag zu machen, kannst du folgenden VBA-Code verwenden:

```vba
Sub EintragAmEnde()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Tabelle1") ' Passe den Namen ggf. an

Dim letzteZeile As Long
letzteZeile = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row + 1 ' Spalte 1 = A

ws.Cells(letzteZeile, 1).Value = "Neuer Eintrag" ' Spalte 1 = A
' Optional: Weitere Spalten befüllen, z.B.:
' ws.Cells(letzteZeile, 2).Value = "Weitere Daten"
End Sub
```

**Erklärung:**
- `ws.Cells(ws.Rows.Count, 1).End(xlUp).Row` sucht die letzte belegte Zelle in Spalte A.
- `+ 1` sorgt dafür, dass die nächste freie Zeile genommen wird.
- `ws.Cells(letzteZeile, 1).Value = "Neuer Eintrag"` trägt den gewünschten Wert in die erste freie Zeile ein.

**Hinweis:**
Wenn du mit einer als "Tabelle" formatierten Excel-Tabelle (ListObject) arbeitest, ist es besser, die `.ListRows.Add`-Methode zu verwenden. Dann sieht der Code so aus:

```vba
Sub EintragInTabelle()
Dim tbl As ListObject
Set tbl = ThisWorkbook.Sheets("Tabelle1").ListObjects("Tabelle1") ' Tabellennamen anpassen

With tbl.ListRows.Add
.Range(1, 1).Value = "Neuer Eintrag"
' .Range(1, 2).Value = "Weitere Daten"
End With
End Sub
```

**Weitere Infos zu VBA in Excel:**
- [Microsoft VBA-Dokumentation](https://learn.microsoft.com/de-de/office/vba/api/overview/excel)
- [Excel Tabellen (ListObjects) in VBA](https://support.microsoft.com/de-de/office/verwenden-von-vba-mit-excel-tabellen-listobjects-8f7b2fa3-6b8d-4c5f-9c3e-2a1b1b8b8a4a)

So kannst du sicherstellen, dass dein Makro immer am Tabellenende einen neuen Eintrag macht.