Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1496to1500
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA: Reihenanzahl in Tabelle verändern

VBA: Reihenanzahl in Tabelle verändern
16.06.2016 11:58:44
SandraB
Hallo Leute,
ich habe eine Tabelle und möchte die Anzahl der Reihen so anpassen, dass die Anzahl dynamisch ist und aus einer Zelle gelesen wird.
Mein Ansatz ist:
Sub table_3()
Dim row_number As Long
Dim tbl As ListObject
row_number = Worksheets("dates").Range("M2").Value
Set tbl = Sheets("card").ListObjects("Table3")
End Sub

Ich glaube, dass die Lösung irgendwas mit tbl.ListRows ist, aber komme nicht weiter.
Gruß,
Sandra

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Zeilenanzahl in Tabelle verändern
16.06.2016 12:38:52
Michael
Hi Sandra,
schau mal in den Objektkatalog (in VBA mit F2-Taste; zurück in die Codeansicht mit F7) und blättere runter zu listobjects: die Eigenschaft .ListRows ist schreibgeschützt, d.h. Du kannst den Wert nicht ändern.
Eine Makroaufzeichnung ergibt so was...
ActiveSheet.ListObjects("Tabelle1").Resize Range("$A$1:$E$11")
Du kannst also die Angabe im Range verändern, etwa statt Range("$A$1:$E$11") dann:
Range("$A$1:$E$" & row_number)
Schöne Grüße,
Michael

AW: Zeilenanzahl in Tabelle verändern
16.06.2016 13:04:10
SandraB
Ich danke dir Michael, das klappt prima!
Viele Grüße,
Sandra

Anzeige
AW: VBA: Reihenanzahl in Tabelle verändern
16.06.2016 12:40:53
Michael
Hallo!
zB so:
Sub a()
Dim Ws As Worksheet
Dim Liste As ListObject
Dim AnzZ As Long
Dim i As Long
Set Ws = ThisWorkbook.Worksheets("Tabelle1") 'ggf. anpassen
With Ws
AnzZ = CLng(.Range("M2").Value) 'ggf. anpassen
Set Liste = .ListObjects("Tabelle1") 'ggf. anpassen
With Liste
For i = 1 To AnzZ
.ListRows.Add
Next i
End With
End With
End Sub
LG
Michael

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige