Office: Wert aus intelligenter Tabelle lesen

ludger60 · 29. Januar 2017

Hallo,

ich komme nicht weiter mit meiner Programmierung.

In einem Tabellenblatt habe ich mehrere Tabellen nebeneinander liegen, die alle als intelligente Tabelle eingerichtet sind mit einem entsprechenden Namen. Die Tabellen sind alle gleich aufgebaut sind und haben jeweils 4 Spalten (von, bis, Bez1, und Bez2).

Über VBA ermittle ich durch die Funktion Worksheet_Change den neu eingegebenen Wert. Ich möchte nun abhängig davon, in welcher der Tabellen ein Wert ganz gleich in welcher der 4 Spalten geändert wurde, den Wert aus den Spalten von und Bez2 der entsprechenden Zeile per VBA ausgeben. Dabei würde ich gern einfach die Namen und Überschriften der Tabelle nutzen. Ist das irgendwie möglich oder wie kann ich es sonst lösen?

Gruß
Ludger

:)

Beverly · 31. Januar 2017

Hi Ludger,

vielleicht eine Möglichkeit (ungetestet) unter Verwendung der Spaltennummer der formatierten Tabelle:

Code:

Dim rngTable As ListObject
For Each rngTable In ActiveSheet.ListObjects
If Not Intersect(Target, rngTable.DataBodyRange) Is Nothing Then
MsgBox Cells(Target.Row, rngTable.DataBodyRange.Columns(1).Column).Value
MsgBox Cells(Target.Row, rngTable.DataBodyRange.Columns(4).Column).Value
Exit For
End If
Next rngTable
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ludger60 · 31. Januar 2017

Hallo Karin,

danke für deine Antwort - das hilft mir schon mal sehr viel weiter.

Noch mal eine zweite Frage: Kann ich ausgeben, in welcher Spalte meiner Tabelle ich gerade den Wert geändert habe? Das heißt, es soll also nicht die absolute Spaltennummer ausgegeben werden, sondern die Spaltennummer relativ zu meiner Tabelle.

Gruß
Ludger

Beverly · 31. Januar 2017

Hi Ludger,

dazu müsstest du in einer Schleife über alle Spalten der formatierten Tabelle laufen. Ausgehend von dem Code aus meinem vorhergehenden Beitrag zur Ermittlung der betreffenden formatierten Tabelle:

Code:

Dim intSpalte As Integer
For intSpalte = rngTable.Range(1).Column To rngTable.ListColumns.Count
If Target.Column = rngTable.Range(intSpalte).Column Then
' Spaltenüberschrift
MsgBox "Ich befinde mich bei Überschrift " & rngTable.Range(intSpalte).Value
' Spaltennummer der formatierten Tabelle
MsgBox "Das ist Tabellenspalte " & intSpalte
' Spaltennummer im Tabellenblatt
MsgBox "Im Tabellenblatt bin ich Spalte " & rngTable.Range(intSpalte).Column
Exit For
End If
Next intSpalte
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ludger60 · 31. Januar 2017

Hallo Karin,

das ging aber schnell. *Smilie

Im Prinzip funktioniert es. Allerdings gibt es die Ausgabe nur bei Änderungen in der ersten Tabelle. Wenn ich einen Wert in der zweiten Tabelle ändere, dann wird nichts ausgegeben.
Mein Code sieht im Moment so aus:
Code:

Dim rngTable As ListObject
Dim intSpalte As Integer

For Each rngTable In ActiveSheet.ListObjects
If Not Intersect(Target, rngTable.DataBodyRange) Is Nothing Then

For intSpalte = rngTable.Range(1).Column To rngTable.ListColumns.Count
If Target.Column = rngTable.Range(intSpalte).Column Then
' Spaltenüberschrift
MsgBox "Ich befinde mich bei Überschrift " & rngTable.Range(intSpalte).Value
' Spaltennummer der formatierten Tabelle
MsgBox "Das ist Tabellenspalte " & intSpalte
' Spaltennummer im Tabellenblatt
MsgBox "Im Tabellenblatt bin ich Spalte " & rngTable.Range(intSpalte).Column
Exit For
End If
Next intSpalte

'MsgBox Cells(Target.Row, rngTable.DataBodyRange.Columns(1).Column).Value
'MsgBox Cells(Target.Row, rngTable.DataBodyRange.Columns(4).Column).Value
'MsgBox rngTable.DataBodyRange.Row
'MsgBox rngTable.Name
Exit For
End If
Next rngTable
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Ludger

Beverly · 31. Januar 2017

Hi Ludger,

ja, habe gerade festegestellt dass der Code nur bei 1 vorhandenen formatierten Tabelle korrekt funktioniert, nicht jedoch bei mehreren. So sollte er jedoch richtig sein:

Code:

If Not Intersect(Target, rngTable.DataBodyRange) Is Nothing Then
' Schleife über alle Spalten des Listobjektes bis zur letzen Spalte des Listobjektes
For intSpalte = 1 To rngTable.ListColumns.Count
If Target.Column = rngTable.Range(intSpalte).Column Then
' Spaltenüberschrift
MsgBox "Ich befinde mich bei Überschrift " & rngTable.HeaderRowRange.Cells(intSpalte).Value
' Spaltennummer der formatierten Tabelle
MsgBox "Das ist Tabellenspalte " & intSpalte
' Spaltennummer im Tabellenblatt
MsgBox "Im Tabellenblatt bin ich Spalte " & rngTable.Range(intSpalte).Column
Exit For
End If
Next intSpalte
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es ist halt immer wieder verwirrend, da der Zugriff auf die Tabellenspalten immer in Relation gesehen werden muss. *eek.gif*

ludger60 · 31. Januar 2017

Hi Karin,

... super *Smilie das war's. Ich denke, damit komme ich weiter.

Ich hab bisher zwar viel mit VBA für Access gemacht, aber VBA für Excel ist ja doch noch ein anderes Thema.

Vielen Dank und Gruß
Ludger

Office: Wert aus intelligenter Tabelle lesen

Wert aus intelligenter Tabelle lesen

Wert aus intelligenter Tabelle lesen

Wert aus intelligenter Tabelle lesen

Wert aus intelligenter Tabelle lesen - Similar Threads - Wert intelligenter Tabelle

Wenn ein Wert ein einer Spalte, dann komplette Zeile im anderen Blatt untereinander einfügen.

Abfrageergebnis soll keine doppelten Werte enthalten

Teilstring einer Zelle auf Wert aus anderer Zelle überprüfen

konti aufzählung und wert gleicher konti zusammenfassen

Werte zusammenzählen - ab einer Zelle die nächsten 5

Bedingte Formatierung basierend auf Wert anderer Zelle

Summieren an Hand der letzten x Datums Werte und mit weiteren Kriterien