Office: VBA ListObjects Bereich beschreiben

Muecke.1982 · 12. Juni 2018

Hallo miteinander,

ich habe ein Makro geschrieben mit dem ich ein Ziele in einem ListObjects erweitern kann.
Das klappt auch bisher ganz gut.

Jetzt möchte ich das in meiner neuen Zeile alle Zellen den Wert "None" zugewiesen bekommen.
Das mache ich Aktuell mit einer For schleife.

Ich frge mich ob man das nicht auch mit einem Gesamten Bereich machen kann auf ein mal ohne die For Schleife.

mein Aktueller Code:
Code:

Option Explicit

Sub Tabelle_zeile_erweitern()
' .ListRows.Count ' Anzahl der Zeilen
' .ListColumns.Count ' Anzahl der Spalten
With ActiveSheet.ListObjects("DB_Adressen")
.ListRows.Add (.ListRows.Count + 1) ' Tabelle um eine zeile erweitern
.DataBodyRange(.ListRows.Count, 1) = Application.Max([a:a]) + 1 ' in letzte zeile Spalte 1 Schreiben

Dim intRow As Integer
For intRow = 2 To .ListColumns.Count
.DataBodyRange(.ListRows.Count, intRow) = "none"
Next intRow
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zeile 11 bis 13 ist meine FOR schleife.

Jedoch kann ich dich auch in einen gesamten Bereich etwas schreiben lassen, ich bekomme es nur in Verbindung mit dem ListObjects nicht hin :-(

man kann ja z.B. das hier schreiben:
Code:

Range("A5:F5").Value = "none"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

dann habe ich in alle zellen von A5 bis F5 überall none drin stehen.
doch wie mache cih das wnen ich das mit dem ListObjects verbinden möchte?

hat jemand eine Idee?

gruß Mücke

:)

Beverly · 14. Juni 2018

Hi,

ich würde es so lösen:

Code:

Sub Erweitern4()
With ActiveSheet.ListObjects("DB_Adressen")
.ListRows.Add alwaysinsert:=True
.DataBodyRange.Cells(.ListRows.Count, 1).Resize(1, .DataBodyRange.Columns.Count) = "none"
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Muecke.1982 · 14. Juni 2018

Hey Karin,

das ist ja mal Cool.

ich habe den Code für mich etwas kommentiert, denn ich wies das später nicht mehr was da wie geschieht.

und ich habe noch eine ziele eingefügt da ich die ID in der Tabelle hoch zählen möchte und eintragen.

das klappt super, danke dir.

Das ist mein Code nun.
Code:

Sub Tabelle_zeile_erweitern()
Dim Tabellenname As String
Tabellenname = "DB_Adressen"

With ActiveSheet.ListObjects(Tabellenname)
.ListRows.Add alwaysinsert:=True
' Boolean -Wert. Gibt an, ob Daten in Zellen unterhalb der letzten Zeile der Tabelle immer
' verschoben werden, wenn eine neue Zeile eingefügt wird, ungeachtet, ob die Zeile unterhalb
' der Tabelle leer ist. Wenn True, werden die Zellen unterhalb der Tabelle um eine Zeile nach
' unten verschoben. Wenn False, wird die Tabelle so erweitert, dass die Zeile besetzt wird,
' ohne die darunter befindlichen Zellen zu verschieben, wenn die Zeile unterhalb der Tabelle
' leer ist; wenn die Zeile unterhab der Tabelle jedoch Daten enthält, werden diese Zellen
' nach unten verschoben, wenn die neue Zeile eingefügt wird.

.DataBodyRange.Cells(.ListRows.Count, 1) = Application.Max(Range(Tabellenname & "[ID-Adresse]")) + 1
' Maximalen Wert aus Spalte ID-Adresse Lesen und um 1 hochzählen und in die Neue Zeile schreiben.

.DataBodyRange.Cells(.ListRows.Count, 2).Resize(1, .DataBodyRange.Columns.Count - 1) = "none"
' neue Zeile von Spalte 2 bis Ende mit "none" füllen.
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

DANKE noch mal.

Gruß Mücke

OfficeUser · 14. Juni 2018

Hi,

wenn du die Spalte mit der ID-Nummer per Formel um 1 hochzählst, brauchst du keinen Code um die ID-Nummer einzutragen, weil Formeln automatisch erweitert werden

Tabelle1
A B C
1 ID-Nummer Spalte 2 Spalte 3
2 ID 1
3 ID 2
4 ID 3 none none
verwendete Formeln
Zelle Formel Bereich N/A
A2:A4 ="ID " & ZEILE(A1)
Formatierte Tabellen (Tabelle1)
Bereich Name Vorlage Vorlage orig.
$A:$C Tabelle1 Tabellenformat - Mittel 2 TableStyleMedium2
Excel-Inn.de

Hajo-Excel.de
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 25.14 einschl. 64 Bit

Muecke.1982 · 14. Juni 2018

Das habe ich mir auch überlegt mit der Formel in der Tabelle, da es sich hierbei um eine ID handelt die wiederum in anderen Tabellen verwendet wird und um Verknüpfungen darzustellen, wäre es denkbar schlecht wenn sich die ID verändern kann warum und wie auch immer.
Aus diesem Grund bin ich zu der reinen Text Lösung gekommen, so habe ich nicht die Gefahr das warum auch immer die Formel nicht mehr geht und die ID nummern weg sind oder durcheinander.

Gruß Mücke

Office: VBA ListObjects Bereich beschreiben

VBA ListObjects Bereich beschreiben

VBA ListObjects Bereich beschreiben

VBA ListObjects Bereich beschreiben

VBA ListObjects Bereich beschreiben - Similar Threads - VBA ListObjects Bereich

VBA in einer Zeile zu lang

Listbox wird nicht breiter, Schriftgrösse ändert sich

Kontrollkästchen aktivieren ohne VBA - wenn KK1 angekreuzt dann KK2 auch

Per Hyperlink ausgeblendetes Blatt einblenden

Bilder über VBA Größe und DPI ändern für Webshop

[VBA] ListObjects nicht Spaltennummer sondern Spaltennamen ausgeben

[VBA] ListObjects in Spalte suchen und zeilennummer ausgeben

verwendete Formeln
Zelle	Formel	Bereich	N/A
A2:A4	="ID " & ZEILE(A1)

Formatierte Tabellen (Tabelle1)
Bereich	Name	Vorlage	Vorlage orig.
$A:$C	Tabelle1	Tabellenformat - Mittel 2	TableStyleMedium2