Office: [VBA] ListObjects nicht Spaltennummer sondern Spaltennamen ausgeben

Muecke.1982 · 18. Juni 2018

Hallo miteinander,

ich stehe gerade auf dem Schlauch und bekomme es nicht hin :-( mal wider.

ich möchte per VBA auf ein ListObjects zugreifen und dort einzelne Werte auslesen und mit denen dann weiter abrieten, das bekomme ich auch zum teil hin, doch noch nicht so wie ich das gerne hätte.

So funktioniert mein Code:

Code:

Option Explicit

Sub test()
Dim InternerDatatnatz As Integer
Dim MyList As Object
Set MyList = Worksheets("Musterblatt").ListObjects("Test_Tabelle")

For InternerDatatnatz = 1 To MyList.ListRows.Count
MsgBox MyList.DataBodyRange.Cells(InternerDatatnatz, 2) ' InternerDatatnatz = Zeile // 2 = Spalte
Next InternerDatatnatz

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

die Zeile
Code:

MsgBox MyList.DataBodyRange.Cells(InternerDatatnatz, 2)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

macht mir Kopfzerbrechen.
Anstelle der 2 ganz am Schluss würde ich gerne die Spaltenüberschrift aus dem ListObjects nehmen.
Folgende Begründung, sollte ein Spalte dazu kommen oder verschonen werden muss das Makro nicht angepasst werden.

Irgend wie bin ich gerade jedoch zu doof dafür das hin zu bekommen.

kann mir da jemand helfen?

ich habe die Muster Datei angehängt.

Gruß Mücke

:)

HS(V) · 20. Juni 2018

Hallo,

Code:

Sub test()
Dim cl As Range
Dim MyList As ListObject
Set MyList = Worksheets("Musterblatt").ListObjects("Test_Tabelle")
For Each cl In MyList.ListColumns("vorname").DataBodyRange
MsgBox cl
Next cl
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Oder:
Code:

Sub test()
Dim cl As Range
For Each cl In sheets("Musterblatt").ListObjects("Test_Tabelle").ListColumns("vorname").DataBodyRange
MsgBox cl
Next cl
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Oge · 20. Juni 2018

Hallo Mücke

oder anstelle von "2" dies eintragen "MyList.ListColumns("vorname").Index"

Muecke.1982 · 20. Juni 2018

Hey,

Ihr seit Spitze, danke für die schnelle Hilfe.

Jetzt klappt es. :-)
Danke.

gruß Mücke

Office: [VBA] ListObjects nicht Spaltennummer sondern Spaltennamen ausgeben

[VBA] ListObjects nicht Spaltennummer sondern Spaltennamen ausgeben

[VBA] ListObjects nicht Spaltennummer sondern Spaltennamen ausgeben

[VBA] ListObjects nicht Spaltennummer sondern Spaltennamen ausgeben

[VBA] ListObjects nicht Spaltennummer sondern Spaltennamen ausgeben - Similar Threads - VBA ListObjects Spaltennummer

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 in Spalte suchen und zeilennummer ausgeben

VBA ListObjects Bereich beschreiben