Array- Referenzwerte als String verwenden

Hallo Herber Fans,
um in meinen VBA Aktivitäten, die oftmals mit der Navigation in einer PivotTabelle zu tun haben, besser zu werden, habe ich mir ein kleines Array Makro erstellt, welches alle möglichen Ranges einer PivotTabelle nacheinander durchläuft, sie selektiert, über ein TimeSerial kurz verweilt und dann zum jeweils nächsten Range geht. Ich will nun im DebugPrint die Adressen der jeweiligen Ranges auslesen lassen. Damit ich in der Direktansicht auch immer weiß, zu welchem Range die dort geschriebene Adresse gehört, möchte ich gern die Werte die ich im Array als Variant für den Durchlauf definiert habe, im Direktfenster als String haben. Ich habe schon mit .name und diversen Anführungsstrich- Kombinationen sowie Operatorenzeichen gearbeitet, aber bisher alles ohne Erfolg.
Oder muß ich vor dem Schreiben im Direktfenster die Dimension des Arrays kurzeitig ändern?
https://www.herber.de/bbs/user/54075.xls
Vielen Dank für Eure Ideen zu diesem Thema.
Grüße, Andreas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

HAllo Andreas
Fülle doch ein Zweites Array mit Strings.
Das lässt du paralel mit abarbeiten.

Option Explicit

Sub PivotRangesSelektieren()
Dim pvTable As PivotTable
Dim Intervall As Long
Dim ArrayReferenz As Variant
Dim strText As Variant
Dim i As Long
Set pvTable = Worksheets("Pivot").PivotTables(1)
Intervall = 2
With pvTable
    strText = Array(".PageRange", ".PageRangeCells", ".RowRange", ".ColumnRange", ".DataBodyRange", ".DataLabelRange", ".TableRange1", ".TableRange2")
    ArrayReferenz = Array(.PageRange, .PageRangeCells, .RowRange, .ColumnRange, .DataBodyRange, .DataLabelRange, .TableRange1, .TableRange2)
    For i = LBound(ArrayReferenz) To UBound(ArrayReferenz)
        'Application.StatusBar = ArrayReferenz(i).Name
        'Wie kann ich erreichen, daß der Name des Arrays hier als String der ArrayAuflistung dargestellt wird.
        ' ArrayReferenz(i).Select
        'debug.Print "# # #" & ArrayReferenz(i) & "# # #" 'ArrayReferenz als Stringwert
        Debug.Print ArrayReferenz(i).Address & "-->" & strText(i)
        Application.Wait Now + TimeSerial(0, 0, Intervall)
    Next i
End With
Application.StatusBar = False
End Sub

ransi

Beliebteste Forumthreads (12 Monate)

Array- Referenzwerte als String verwenden

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Array- Referenzwerte als String verwenden

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread