Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
652to656
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Sheetname / Pivot Feldname per Parameter übergeben

Sheetname / Pivot Feldname per Parameter übergeben
22.08.2005 08:45:26
Marc
Hallo
Wenn ich ein Tabellenblatt auswähle, dann entweder über sheets(1) oder sheets("name"). Kann ich den Namen auch als Parameter an die Funktion übergeben und in der Anweisung sheets(parameter) verwenden?
Dasselbe Problem habe ich beim Verändern von Pivot Tabellen:
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Feld").PivotItems(i).Visible = True
End With
z.B. Parameter i = "07"
Danke schon mal für die Hilfe.
Marc

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

Betreff
Datum
Anwender
Anzeige
AW: Sheetname / Pivot Feldname per Parameter überg
22.08.2005 09:08:51
Ramses
Hallo
Ja das geht
x = "Tabelle2"
worksheets(x).Select
Gruss Rainer
AW: Sheetname / Pivot Feldname per Parameter übergeben
22.08.2005 09:09:22
volker
Klar!
Die beiden Subs test und tabellenblattaktivieren(blattname)
machen genau das was ausgangsproblem macht, nur mit Übergabe des Tabellennamens.

Sub ausgangsproblem
Sheets("Tabelle1").Activate
End Sub


Sub test
Call tabellenblattaktivieren("Tabelle1")
End Sub


Sub tabellenblattaktivieren(blattname)
Sheets(blattname).Activate
End Sub

Hilfts weiter?
Volker
Anzeige
AW: Sheetname / Pivot Feldname per Parameter überg
22.08.2005 12:27:54
Marc
Hat geklappt.
Danke für die schnelle Hilfe.
Marc

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige