Mittels Makro zu einer Tabelle springen
Freddy
Ausgangslage:
Tabelle "Übersicht" enthält eine Übersicht der Mitarbeiter
A1 = 100 B1 = Name C1 = Vorname
A2 = 101 B2 = Name C2 = Vorname
A3 = 102 ...usw...
Tabelle "100" bis "~" enthält Details
Nun will ich in der Tabelle "Übersicht" einen Button (mit
zugewiesenem Makro) in Zelle "D1" integrieren. Beim
Klicken dieses Buttons soll mir Excel zu der Tabelle "100"
(= Wert in Zelle "A1") springen. Dasselbe in Zelle "D2",
dort soll Excel beim Klick auf den Button zur
Tabelle "101" (= Wert in Zelle "A2") springen...bei "D3"
zu "102" (= Wert in Zelle "A3")...usw...
Es ginge auch, indem ich für jedes Tabellenblatt ein
eigenes Makro mache und das jeweilige Makro dem jeweiligen
Button zuweise. Dies ist jedoch sehr aufwendig und mit der
Zeit unübersichtlich.
Deshalb wäre ich froh um einige Tipps oder Beispiel-Makros!
Besten Dank & Gruess
Freddy
Manfred Kuberczyk
Hi Freddy,
warum benutzt Du eigentlich nicht den Makrorecorder, und schaust dann nach
was pasiert ist.
Mittels Formularsymbolleiste einen Schaltknopf zeichne, dann Makro zuweisen.
In diesem Fall:
Sub Schaltfläche1_BeiKlick()
Sheets("DeineTabelle").Activate
End Sub
ciao Manni
Lisa Wilke-Thissen
wäre dir nicht auch mit einem Hyperlink gedient?
Warum muß es ein Makro sein?
Gruß Lisa
"Freddy" <fmo...@bluewin.ch> schrieb
[...]
Martin Worm
hallo Freddy ?,
da geht auch mit Hyperlinks. Auf dem jeweiligen Tabellenblatt Zielzelle
anklicken, kopieren, in Übersicht entsprechende Zelle in Spalte D anklicken,
im BearbeitenMenü "Einfügen als Hyperlink" anklicken, eventuell den Eintrag
verbessern(Rechtsklick > Hyperlink bearbeiten)
hth
--
E-Mail von Martin Worm, Karlsruhe, Deutschland
Adresse: marti...@karlsruhe.netsurf.de
benutze Excel2000(9.0.2812) Win ME
Freddy
Jo, dieses Makro hab ich schon hingekriegt...aber es ist
einfach zu aufwendig, für jede einzelne Tabelle (sind ja
nicht nur 3, sondern ca. 150-200) ein Makro zu kritzeln
oder eins zu kopieren und dann immer die Nummer der
Tabelle zu ändern...ausserdem wird's dann bei Mutationen
ziemlich unübersichtlich und die Fehlerwahrscheinlichkeit
steigt...da wäre mit einem Makro, das zuerst schaut, was
in Zelle A1 steht und dann zur Tabelle springt, die den
gleichen Wert hat, schon vieles einfacher...
>-----Originalnachricht-----
>.
>
Freddy
Leider habe ich vergessen zu erwähnen, dass ich momentan
(noch bis März 2002) mit Excel 7.0a arbeiten muss...soviel
ich weiss, gibts da noch keine Möglichkeit, mit Hyperlinks
zu arbeiten? Oder doch? (So wie du's beschrieben hast,
geht's nicht, bzw. der Menupunkt "als Hyperlink einfügen"
existiert nicht)
Gruess
Freddy
>-----Originalnachricht-----
>.
>
Markus Ritter
Du ziehst auf Dein Uebersichtsblatt eine Schaltflaeche, die Du mit
folgendem Makro verknuepfst:
Value = Range(ActiveWindow.RangeSelection.Address).Value
Sheets(Value).Select
In XP funktioniert es, bei anderen Versionen bin ich ueberfragt.
Markus
Martin Worm
>Hi!
>
>Leider habe ich vergessen zu erwähnen, dass ich momentan
>(noch bis März 2002) mit Excel 7.0a arbeiten muss...soviel
>ich weiss, gibts da noch keine Möglichkeit, mit Hyperlinks
>zu arbeiten? Oder doch? (So wie du's beschrieben hast,
>geht's nicht, bzw. der Menupunkt "als Hyperlink einfügen"
>existiert nicht)
hallo Freddy,
das dacht ich mir fast ;-).
Eine Möglichkeit, wenn du die viele Makros nicht schreiben willst, wäre eine
Combobox aus der Formularleiste(Formularleiste einschalten anklicken und auf
dem Tabellenblatt plazieren), dann irgendwo eine Liste mit deinen
Tabellenblättern hinschreiben(als Eingabebereich festlegen), eine Zelle als
Ausgabemedium festlegen(kann unter der Combobox liegen) und einen Knopf, der
in Abhängigkeit des eingestellten Blattes dorthin springt.
Michael Heerd
noch eine Idee.
Per Doppelklick in der Zeile statt Schaltfläche.
Die folgende Prozedur in das Modul der Tabelle "Übersicht" eintragen.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Dim sTabName As String
If IsEmpty(Range("A" & Target.Row).Value) = True Then Exit Sub
sTabName = CStr(Range("A" & Target.Row).Value)
On Error GoTo Errorhandler
Worksheets(sTabName).Activate
Cancel = True
Exit Sub
Errorhandler:
MsgBox "Keine Tabelle " & sTabName & " gefunden."
Cancel = True
End Sub
Viele Grüße
Michael
-----------------------------
"Freddy" <fmo...@bluewin.ch> schrieb im Newsbeitrag
news:252401c15cab$d9358190$a5e62ecf@tkmsftngxa07...
Freddy
Danke für den Vorschlag, geht aber leider nicht mit Excel
7.0a...:0(((
Gruess
Freddy
>-----Originalnachricht-----
>.
>
Freddy
Gute Idee!!!
Leider geht auch das nicht bei mir! :0(
Passiert nix, wenn ich eine Zeile doppelklicke...
(Man kann das Makro übrigens nirgens starten...es
erscheint nicht im Auswahlfenster unter "Extras"
=> "Makro")
Schade...aber ich denke, ich gebs besser auf und warte,
bis ich endlich Excel2000 installieren darf!!! *grmpfl*
>.
>
Michael Heerd
bei mir funktioniert es unter Office 97.
Bist Du dir sicher, daß Du die Sub in dem Modul des
Arbeitsblattes (in dem der Doppelklick ausgeführt wird), nicht in einem
einfachen Module, eingetragen hast?
Mit Alt + F11 in den VBA-Editor wechseln
im Projektfenster --> Ordner VBAProjekt(deineArbeitsmappe.xls) -->
Ordner Microsoft Excel Objekte -->
Tabelle?(Übersicht) doppelklicken -->
dann im Code-Fenster Sub eintragen.
Gruß Michael
"Freddy" <fmo...@bluewin.ch> schrieb im Newsbeitrag
news:2d2301c15d5e$cba37240$9ae62ecf@tkmsftngxa02...
Martin Worm
wrote:
>
>bei mir funktioniert es unter Office 97.
hallo Michael,
aber er hat XL95 :-(
ich hoffe, er probiert aus, was ich ihm gepostet habe.
mfG
Freddy
>>
>>bei mir funktioniert es unter Office 97.
>
>hallo Michael,
>
>aber er hat XL95 :-(
Hallo!
Jep, da liegt das Problem...:0(
>ich hoffe, er probiert aus, was ich ihm gepostet habe.
>
Ich habe gesucht und gesucht...
>Eine Möglichkeit, wenn du die viele Makros nicht
>schreiben willst, wäre eine
>Combobox aus der Formularleiste(Formularleiste
>einschalten anklicken und auf
>dem Tabellenblatt plazieren)
Wo? Combobox? Formularleite?
>, dann irgendwo eine Liste mit deinen
>Tabellenblättern hinschreiben(als Eingabebereich
>festlegen), eine Zelle als
>Ausgabemedium festlegen(kann unter der Combobox liegen)
>und einen Knopf, der
>in Abhängigkeit des eingestellten Blattes dorthin springt.
Hört sich verlockend an, aber ich verstehe leider nur
Bahnhof! :0(
Naja, ich hoffe, eure Geduld ist noch vorhanden...:0)
Ich habe übrigens ein Makro erstellt, das mich beim
Anklicken auf einen Button auffordert, die Tabellennummer
einzugeben und dann - wenn diese Tabelle existiert -
dorthin zu springen! Schon mal etwas, aber zusätzlich
direkt von der Zeile in die dazugehörige Tabelle zu
springen würde das ganze noch besser machen...
Gruess
Freddy
Martin Worm
>
>Naja, ich hoffe, eure Geduld ist noch vorhanden...:0)
hallo Freddy,
ich werde dir eine Beispielmappe schicken ..
(Ich hoffe nicht zu vergessen um XL95 Format zu speichern)