|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Elemente in der Arbeitsmappe |
22.03.2018 09:31:22 |
hasaci |
|
|
|
22.03.2018 09:36:09 |
Gast10557 |
|
|
|
22.03.2018 09:44:28 |
hasaci |
|
|
|
22.03.2018 09:50:16 |
hasaci |
|
|
|
22.03.2018 09:57:54 |
Gast65971 |
|
|
|
22.03.2018 11:19:07 |
Gast34443 |
|
|
Von:
hasaci |
Datum:
22.03.2018 09:31:22 |
Views:
1004 |
Rating:
|
Antwort:
|
Thema:
Elemente in der Arbeitsmappe |
|
Hallo zusammen,
ein Problem und das Makro dazu:
Sub Makro1() 'X Button hinzufügen
ActiveSheet.Shapes.Range(Array("A_19")).Select 'wählt shape in diesem array aus
Selection.Copy 'kopiert shape
Range("D29").Select 'wo kommt button in cockpit raus
ActiveSheet.Paste 'fügt shape ein
Selection.ShapeRange.Name = "D99" 'shape bekommt den Namen
Range("D19").Select
End Sub
Ich habe vorhandene shapes, wenn ich auf diese klicke öffnen sich die entsprechenden Tabellen.
shapemakro welche Tabelle öffnet:
Mit der Abfrage Motor & Ssa (also die Nummer).
Sub SS() 'für Button Absicherung
Ssa = Right(ActiveSheet.Shapes(Application.Caller).Name, Len(ActiveSheet.Shapes(Application.Caller).Name) - 2) Sheets(Range("Motor_" & Ssa).Value).Visible = True 'Tabelle wird sichtbar
Sheets(Range("Motor_" & Ssa).Value).Select 'Auswahl Tabelle
Sheets("Cockpit").Visible = 2 'CockpitTabelle wird unsichtbar
End Sub
Problem hier, es wird nicht der eigentliche Tabellenname abgefragt, sondern Motor & Nr. welches soweit ich verstanden habe, in einem Array gespeichert ist.
Ich vermute ich löse das Problem, wenn ich einer Tabelle ein Element/Verknüpfung bzw. ein Array hinzufüge. Wenn ja, wie geht das?
Zur Info: in der Browseransicht (Elemente in der Arbeitsmappe) sind mehrere Motor_Nr. hinterlegt, wenn ich mit der Maus drüber fahre, erscheint =Cockpit!$C$8 'also Cockpit ist die Haupttabelle wo die shapes sind, also müsste da eine Verknüpfung oder etwas in der Art vorhanden sein
(habe Makros nicht erstellt, Kollege ist nicht mehr da)
Vielen Dank schonmal! |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Elemente in der Arbeitsmappe |
22.03.2018 09:31:22 |
hasaci |
|
|
|
22.03.2018 09:36:09 |
Gast10557 |
|
|
|
22.03.2018 09:44:28 |
hasaci |
|
|
|
22.03.2018 09:50:16 |
hasaci |
|
|
|
22.03.2018 09:57:54 |
Gast65971 |
|
|
|
22.03.2018 11:19:07 |
Gast34443 |
|
|