Hallo Forum,
ich steh hier gerade aufm Schlauch, vielleicht hat ja jemand eine schnelle Idee. ..
Also:
In Sub eins wird eine Datenbankabfrage vollzogen (ist da nicht mit drin, aber auch nicht wichtig). Der Wert und die "'1'" sollen an die Sub zwei übergeben werden. Soweit so gut... Wenn ich aber den speziellen Pivot Berich markieren will klappt es nicht, weil er keine " " erwartet/ brauchen kann. Wenn ich stattdessen "1, Mittelwert" mit reinschreibe funzt es.
was tun!? :)
Danke
arne


Sub eins()
If Not RS2.EOF And Not RS2.BOF Then
Team = RS2.Fields.Item(0).Value
RS2.MoveNext
Zwei "'1'", Team
______________
Public Sub zwei(strTeam As string, Beo As Integer)
Dim c As Range
Dim currentColumn As Integer
Dim IsFirstCell As Boolean
Dim currentRange As Range
currentColumn = 0
IsFirstCell = True

Application.ScreenUpdating = False
On Error Resume Next
Sheets("Pivot").Activate
ActiveSheet.PivotTables("Pivot1").PivotSelect "strTeamnummer Mittelwert", xlDataOnly