Office: VBA: Variable mit mehreren Werten soll durchl aufen werden - bloß wie???

Hallo Leute,

mal wieder eine kleine Frage zu VBA.
In meinem Excelsheet erzeuge ich 6 Pivottabellen und in allen 6 Tabellen soll nach gleichen Werten gesucht werden.
Um nun nicht in allen 6 Tabellen jeweils die Werte einzugeben, möchte ich eine Variable erstellen wo alle Suchwerte ("test-a" etc.) eingegeben und dann in allen Tabellen verwendet wird.

Leider schaffe ich es nur das ich in allen Tabellen die Suchwerte eingeben kann und dann das Makro laufen lasse.
Kann man eine globale Variable erzeugen die in dem Code das macht?

Code:

With ActiveSheet.PivotTables("Test").PivotFields("Gaga")
.Orientation = xlPageField
.Position = 1
.EnableMultiplePageItems = True
For Each ptItem In .PivotItems
Select Case ptItem
Case "test-a", "test-b"
ptItem.Visible = False
Case Else = True
End Select
Next ptItem
End With

Schöne Grüße
Tauchmann

 

Hallo Tauchmann,

du musst die Variablen außerhalb der Prozedur deklarieren. Initialisieren dann natürlich innerhalb einer Prozedur.

Code:

Option Explicit
Dim Such_1 as String, Such_2 as String, Such_3 as Double

Sub Start
   Such_1 = "Albert Einstein"
   Such_2 = "Peter Pan"
   Such_3 = 123,456
   Call Such_in_Pivot_1
   Call Such_in_Pivot_2
   '..
End Sub

Such_in_Pivot_1()
'.. Dein Code
End Sub

Falls ich dich nicht total falsch verstanden habe, läuft es so.

 

Hallo cpt. Nemo,

eigentlich dachte ich an sowas:

Sub bla()
Dim Suchen() As Variant

'Variablen festlegen
Suchen(0) = "test-a"
Suchen(1) = "test-b"

...

With ActiveSheet.PivotTables("Test").PivotFields("Gaga").Orientation = xlPageField.Position = 1.EnableMultiplePageItems = TrueFor Each ptItem In .PivotItemsSelect Case ptItemCase Suchen()ptItem.Visible = FalseCase Else = TrueEnd SelectNext ptItemEnd With</PRE>

Geht sowas??
Schöne Grüße
Tauchmann

 

Hallo Tauchmann,

vielleicht ist das ja ein Gedankenanstoß:

Code:

Dim arr_Such(3) as variant, i as integer
arr_Such(0) = "abc"
arr_Such(1) = "def"
arr_Such(2) = "ghi"
arr_Such(2) = "jkl"

For i = 1 to 3
   Msgbox arr_Such(i)
Next i

Das ist ein Array, wo im Prinzip mehrere Zeilen einer Spalte als Variable abgebildet werden. Du siehst, im Prinzip genau so, wie du es geschrieben hattest. Aber vielleicht habe ich es doch nicht so ganz gerafft, ist ja auch schon spät ...