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 = "D19" '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!
|