Office: Intelligente Tabelle Sichtbare elemente in Array Speichern

Muecke.1982 · 22. September 2018

Hallo miteinander,

ich möchte aus einer Intelligente Tabelle bei der Filter gesetzt worden nur die Sichtbaren Elemente in ein Array speichern.

Über den Nachfolgeneon Code kann ich eine Gesamte Spalte in ein Array laden, jedoch werden dabei auch die unsichtbaren Zellen ins Array aufgenommen, gibt es eine Möglichkeit auf die Nur sichtbaren Elemente zuzugreifen?

Code:

Sub Array_Sichtbarer_Inhalt()
' Sichtbare Elemente in Array speichern

Dim MyList As Object
Dim MyArray As Variant
Dim i As Integer
Dim Text As String

' Definiren welche Arbeistmappe und welche Tabele focusirt werden soll
Set MyList = Worksheets("Tabelle1").ListObjects("DB_Array")

' inhalt der Spalte in Array laden
MyArray = MyList.ListColumns("Für Array").DataBodyRange

' Array inhalt untereinander schreiben für MsgBox
For i = 1 To UBound(MyArray)
Text = Text + Chr(13) + MyArray(i, 1)
Next i

' Array Inhalt ausgeben in MsgBox
MsgBox Text

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

im Anhang habe ich eine Muster Datei.

gruß Mücke

:)

Beverly · 24. September 2018

Hi,

auf einen Ritt geht es bei ausgeblendeten Zellen nicht, deshalb mal als Tipp: du musst in einer Schleife über alle Zeilen laufen und prüfen, ob sie sichtbar sind - wenn ja, dann Wert ins Array einlesen.

Muecke.1982 · 26. September 2018

Hey,

das ist schade, ich habe gehofft das das mit einem Kleine Zusatz gehen würde.

Habe das jetzt wie folgt umgebaut, finde das aber sehr unübersichtlich.
Habe ich zu kompliziert gedacht?

gruß Mücke

CODE:
Code:

Option Explicit

Sub Array_Sichtbarer_Inhalt()
' Sichtbare Elemente in Array speichern

Dim MyList As Object
Dim i As Integer
Dim Text As Variant
Dim Tabellenlaenge As Integer

' Definiren welche Arbeistmappe und welche Tabele focusirt werden soll
Set MyList = Worksheets("Tabelle1").ListObjects("DB_Array")

' Tabellenlänge ermitteln
Tabellenlaenge = MyList.Range.Rows.Count - 1 ' -1 da die Überschriften mitgezählt werden

' Werte ins Text Schreiben wenn Zelle sichbar ist
For i = 1 To Tabellenlaenge

If MyList.DataBodyRange.Cells(i, MyList.ListColumns("Für Array").Index).EntireRow.Hidden = False Then
' Zelle ist Sichtbar
Text = Text + MyList.DataBodyRange.Cells(i, MyList.ListColumns("Für Array").Index) + Chr(13)
End If
Next i
MsgBox "Inhalt nur sichtbarer Zellen " + Chr(13) + Text

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

Beverly · 26. September 2018

Hi,

der Code ist schon korrekt. Sicher gibt es noch andere Möglichkeiten, aber die sind nicht weniger "kompliziert".

Muecke.1982 · 26. September 2018

DANKE. für deine Antwort.

Gruß Mücke

jack_D · 26. September 2018

Moin Mücke,

anbei mal der Code von EarlFred,

der hat mir da mal ein Dict zu diesem Thema gebaut =)

Code:

Function REFERENZ(rng As Range) As String
Dim dic As Object, c As Range
Dim max As Long

Set dic = CreateObject("Scripting.Dictionary")

For Each c In rng
If Not c.EntireRow.Hidden Then dic(c.Value) = dic(c.Value) + 1
Next c
With Application
max = .Match(.max(dic.Items), dic.Items, 0)
REFERENZ = dic.keys()(max - 1)
End With
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße Jack

Office: Intelligente Tabelle Sichtbare elemente in Array Speichern

Intelligente Tabelle Sichtbare elemente in Array Speichern

Intelligente Tabelle Sichtbare elemente in Array Speichern

Intelligente Tabelle Sichtbare elemente in Array Speichern

Intelligente Tabelle Sichtbare elemente in Array Speichern - Similar Threads - Intelligente Tabelle Sichtbare

Intelligente Tabelle Filter fixieren

Intelligente Tabelle mit Suchfeld durchsuchen?

Intelligente Tabelle mit mehreren Überschrift-Feldern

Bedingte Formatierung funktioniert nicht

VBD Daten aus einer "intelligenten" Tabelle in einer anderen "intelligenten" Tabelle archivieren

Fehler in intelligenter Tabelle

Daten in intelligenter Tabelle updaten