Makros in Excel Tabelle, die auf eine Datenquelle zugreifen

[ratford]

Hallo Forum,

ich habe folgendes Problem.

Ich habe eine Excel Tabelle von der WIPO (World Intellectual Property Organisation), mit der die Gebühren für internationale Markenanmeldungen berechnet werden.

Da ich diese Tabelle gerne mit neuen Werten anpassen würde, habe ich sie im Makro-Editor geöffnet. Dort ist auch eine ganze Reihe von Tabellen vorhanden, allerdings leer. Dann hab ich mal eben einen Rechtsklick gemacht und den Inhalt dieser Dateien exportiert. Fehlanzeige - da sind nur ein paar VB Befehle und einige Variablen drin.

Hier der Link zu der Excel Datei:
http://www.wipo.int/madrid/en/fees/xls/fees.xls

Ich würde daher gerne wissen, wie ich die Gebühren aktualisieren kann bzw. wo diese Daten dafür zu finden sind.

Vielen Dank im Voraus

[Eckard41]

Das liegt nur daran, dass die Eigenschaft "Visible" der Tabellen auf -1 (versteckt) eingestellt ist.

Rufe mal den Visual Basic Editor auf -> Doppelklick auf Sheet1 (FeeCalc) ->
füge folgenden Code ein:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
' Natürlich kannst du satt der BeforeRightClick-Prozedur auch ein 
' anderes Ereignis nehmen. Z.B. einem Button diese Prozedur zuordnen. 
Static Status As Boolean
If Not Status Then ' Anzeigen
    For i = 1 To Worksheets.Count - 1
    Worksheets(i).Visible = -1
    Next
    Status = True
ElseIf Status Then ' Verstecken
    For i = 1 To Worksheets.Count - 1
    Worksheets(i).Visible = 0
    Next
    Status = False
End If
End Sub

Wenn du nun im Sheet "FeeCalc" einen Rechtsklick machst, sollten die versteckten Tabellen erscheinen, nach einem weiteren Rechtsklick wieder verschwinden.

Natürlich kannst du die Tabellen auch manuell sichtbar machen:
Für jede einzelne Tabelle:
VB-Editor -> Tabelle markieren -> im Eigenschaften-Fenster den Wert "Visible" auf -1 stellen.