{"text_format":"1","workbook":"xlsx","n_sheets":4,"sheets":["Wie funktioniert es","Karte","S-Bahnhof Greifswalder Straße","Ostseeplatz"],"not_rendered":{"charts":0,"images":1,"macros":1,"external_links":0,"defined_names":0,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"Wie funktioniert es","index":0,"n_rows":33,"n_cols":2,"rows_kept":33,"cut":false,"hidden":false,"merged":[]}
[]
[]
[null,"Aufruf eines bestimmten Tabellenblattes \nbeim Anklicken einer Zelle"]
[]
[null,"In diesem Beispiel befindet sich die Landkarte auf dem Blatt Karte. \nWenn dort auf das \"S\" bei \"Greifswalder Straße\" (Zelle D13)\ngeklickt wird, wird das Tabellenblatt \"S-Bahnhof Greifswalder Str.\" \nausgewählt."]
[null,"Bei Klick auf die Zellen E13, D14 oder D15 erscheint eine Meldung."]
[]
[null,"So geht's:"]
[]
["1.","Tabellenblätter benennen"]
["2.","bei dem Blatt, wo die Karte sein soll durchführen:\nFormat - Blatt - Hintergrund, und dort die Kartendatei auswählen"]
["3.","je nach Größe der anzuklickenden Bereiche die Spalten und Zeilen \nverkleinern (im Beispiel Zeilenhöhe = 12,75 und Spaltenbreite = 2,57)"]
["4.","mit Alt und F11 in den Visual-Basic-Editor wechseln \n(dort wo Makros bearbeitet werden)"]
["5.","im Fenster Projekt - VBAProject auf das Blatt doppelklicken, wo sich \ndie Karte bfindet (wenn Projekt nicht sichtbar, dann \nAnsicht - Projekt-Explorer)"]
["6.","im Fenster [Code] folgendes eingeben:"]
[]
[]
[null,"Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)"]
[null,"    "]
[null,"    If Target.Address = \"$D$13\" Then"]
[null,"        Sheets(\"S-Bahnhof Greifswalder Straße\").Select"]
[null,"    End If"]
[null,"    "]
[null,"End Sub"]
[]
["7.","die drei Zeilen von \"If ...\" bis \"... End If\" sooft hintereinander einfügen, \nwie Tabellenblätter vorhanden (oder wie Zellen, die angeklickt werden \nkönnen)"]
["8.","hinter \"Address = ...\" die Zellen eintragen, die angeklickt werden sollen,"]
["9.","in den Klammern hinter \"Sheets\" die Blätter eintragen, die ausgewählt \nwerden sollen"]
["10.","bei der Landkarte per Extras - Optionen die Gitternetzlinien herausnehmen."]
["11.","die überflüssigen Zeilen und Spalten ausblenden"]
[]
[]
[null,"Um bei diesem Beispiel die Makros zu sehen, mit Alt + F11 in den \nVBA-Editor gehen und im Projekt-Explorer (siehe 5.) auf Tabelle1 (Karte) \ndoppelklicken. Diese Makros werden bei den Klicks auf diese Tabelle \nausgeführt.\nDoppelklick auf Module und Modul1 zeigt das Makro, das beim Aufruf der Arbeitsmappe ausgeführt wird (auto_open) und ein Makro, das zurück zur Karte führt.\nWas hinter den Hochkommas (') steht sind nur Kommentare (Erläuterungen)"]

{"sheet":"Karte","index":1,"n_rows":0,"n_cols":0,"rows_kept":0,"cut":false,"hidden":false,"merged":[]}

{"sheet":"S-Bahnhof Greifswalder Straße","index":2,"n_rows":2,"n_cols":2,"rows_kept":2,"cut":false,"hidden":false,"merged":[]}
[]
[null,"S-Bahnhof Greifswalder Straße"]

{"sheet":"Ostseeplatz","index":3,"n_rows":3,"n_cols":2,"rows_kept":3,"cut":false,"hidden":false,"merged":[]}
[]
[]
[null,"Ostseeplatz"]