1 Frage zu Tabellenende

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.