Thema Datum  Von Nutzer Rating
Antwort
14.03.2020 09:30:54 Katrin
NotSolved
14.03.2020 10:23:58 Katrin
NotSolved
Rot Letzte Zeile von Pivot Datentabelle ermitteln
14.03.2020 12:47:30 Mase
NotSolved
14.03.2020 12:50:51 Mase
NotSolved
14.03.2020 16:05:32 Katrin
NotSolved
15.03.2020 18:25:47 xlKing
NotSolved
15.03.2020 18:46:36 Katrin
NotSolved
15.03.2020 18:53:03 Katrin
NotSolved
15.03.2020 22:37:26 Mase
NotSolved
15.03.2020 22:38:32 Mase
NotSolved
16.03.2020 06:27:44 Gast14588
NotSolved
16.03.2020 08:28:10 Katrin
NotSolved
16.03.2020 09:00:26 Mase
NotSolved
16.03.2020 09:17:10 Katrin
NotSolved
16.03.2020 10:56:22 Katrin
NotSolved
16.03.2020 11:01:25 Mase
NotSolved
16.03.2020 11:02:57 Mase
NotSolved
16.03.2020 11:28:12 Katrin
NotSolved
16.03.2020 11:46:16 Mase
NotSolved
16.03.2020 11:56:10 Katrin
NotSolved
16.03.2020 12:05:39 Katrin
NotSolved
16.03.2020 12:13:24 Mase
NotSolved
16.03.2020 12:47:22 Katrin
NotSolved

Ansicht des Beitrags:
Von:
Mase
Datum:
14.03.2020 12:47:30
Views:
605
Rating: Antwort:
  Ja
Thema:
Letzte Zeile von Pivot Datentabelle ermitteln

Hallo Karin,

womöglich hast Du nun eine dynamische Tabelle erstellt. Das wird als ListObject angepsrochen.

Selbsterklärend sind bspw. folgende Zeilen:

Option Explicit

Sub LetzteZeileDesListObjects()
    Dim lob As ListObject
    Set lob = ActiveSheet.ListObjects(1)
    '
    With lob.DataBodyRange
        'Select brauchst Du idR nicht;
        'aber zum schauen was der Code macht kann es manchmal nützlich sein
        .Cells(.Rows.Count, 1).Select
    End With
End Sub

Sub neueZeileHinzufuegen()
    'https://docs.microsoft.com/de-de/office/vba/api/excel.listrows.add
    Dim lob As ListObject
    Dim neueZeile As ListRow
    '
    Set lob = ActiveSheet.ListObjects(1)
    Set neueZeile = lob.ListRows.Add
    '
    With neueZeile
        .Range(1, 1).Value = "foobar" 'erste Zelle der neuen Zeile beschreiben
    End With
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
14.03.2020 09:30:54 Katrin
NotSolved
14.03.2020 10:23:58 Katrin
NotSolved
Rot Letzte Zeile von Pivot Datentabelle ermitteln
14.03.2020 12:47:30 Mase
NotSolved
14.03.2020 12:50:51 Mase
NotSolved
14.03.2020 16:05:32 Katrin
NotSolved
15.03.2020 18:25:47 xlKing
NotSolved
15.03.2020 18:46:36 Katrin
NotSolved
15.03.2020 18:53:03 Katrin
NotSolved
15.03.2020 22:37:26 Mase
NotSolved
15.03.2020 22:38:32 Mase
NotSolved
16.03.2020 06:27:44 Gast14588
NotSolved
16.03.2020 08:28:10 Katrin
NotSolved
16.03.2020 09:00:26 Mase
NotSolved
16.03.2020 09:17:10 Katrin
NotSolved
16.03.2020 10:56:22 Katrin
NotSolved
16.03.2020 11:01:25 Mase
NotSolved
16.03.2020 11:02:57 Mase
NotSolved
16.03.2020 11:28:12 Katrin
NotSolved
16.03.2020 11:46:16 Mase
NotSolved
16.03.2020 11:56:10 Katrin
NotSolved
16.03.2020 12:05:39 Katrin
NotSolved
16.03.2020 12:13:24 Mase
NotSolved
16.03.2020 12:47:22 Katrin
NotSolved