Suchen, Auswählen, Merken, Drucken

[Alex105]

Hi Schauan,

jo, Kontextmenü um 3 Punkte erweitert:

1. Artikel suchen (es muss aber ausgewählt werden, dass er in der gesamten Mappe sucht (kann man das voreinstellen, dass er das imemr tut?!))
2. artikel kopieren
3. speichern unter

Allerdings "nur" in deiner Mustertabelle. Kopiere ich den Code in meine Orignaltabelle ist das Kontexmenü normal :(

[Alex105]

sorry, hab was vergessen.....

Danke :)

[Kuwer]

Hallo Alex,

ich habe es eben probiert, auch mit E2010, und es geht.
Öffne die Datei nicht direkt, sondern speichere sie erst einmal da,
wo Du Deine sonstigen Exceldateien ablegst, und öffne diese Datei dann von dort.

Ich will damit sagen, dass Du die Datei nicht direkt öffnen, sondern erst einmal herunterladen sollst.

Gruß Uwe

[Alex105]

Hallo (K)uwe(r),

habe ich gemacht. Wie gesagt, in der Mustertabelle steht das erweiterte Kontexmenü, allerdings nicht, wenn ich den Code in meine Orginialtabelle kopiere und dann nutzen möchte :(

Viele Grüße
Alex

[schauan]

Hallo ALex,

da sind auch noch Makros in "DieseArbeitsmappe". Diese steuern die Änderung vom Kontextmenü. Wenn Du die Datei öffnest oder aktivierst, werden die Menüpunkte hinzugefügt. Beim Schließen oder wenn Du in eine andere Mappe wechselst, dann werden sie wieder entfernt.

Bei mir war die Suche standardmäßig so, dass in der gesamten Mappe gesucht wurde. Muss ich morgen mal schauen, was da geht.

Mit Deinem Setup-Blatt kann man auch noch was machen. Ich hab da schon eine Prüfung auf einen Blattnamen drin, da muss dann noch das Setup-Blatt dazu.

In Spalte G müssen Einträge rein, die Excel auch als Zahlen interpretiert. Also eine 1 oder ein Datum geht. Eine "KW31" würde schon nicht gehen. Teste daher erst mal mit einfachem Datum oder Zahlen. Eventuell ist die andere Spalte mit der Stückzahl besser geeignet oder ich muss statt auf Summe auf Anzahl oder Anzahl2 oder mit Zählenwenn die Anzahl der Einträge testen ...

[Kuwer]

Hi André,

mutig, sowas eiskalt ungefragt einzusetzen: Application.CommandBars("Cell").reset :05:

Gruß Uwe

[Alex105]

Hallo Schauan,

ok, dann warte ich morgen wieder auf dich

Ich habe gerade nochmals alles gelöscht, nur diene Mustertabelle geöffnet (Kontextmenü nach wie vor da). Kopiere ich deinen Code in meine Originaltabelle ist das Menü weg. Tut mir leid.

Viele Grüße, herzlichen Dank und bis (hoffentlich) morgen!

Alex

[Alex105]

Hallo Uwe,

heißt Application.CommandBars("Cell").reset nicht "nur" das Kontextmenü ein bzw. ausblenden?! :)

Gruß
Alex

[Kuwer]

Hallo Alex,

nein, das hat mit Ausblenden nichts zu tun.
André hat es ja auch kommentiert:

Code:

Private Sub Workbook_Deactivate()
    'Kontextmenue auf Standard zuruecksetzen
    Call CellMenue_Reset
    'alternativ nur Eintraege loeschen
    'Call CellMenue_Del
End Sub

Gruß Uwe

[schauan]

Hallo ALex,

wenn Du den code im Modul und in DieseArbeitsmappe eingefügt hast, musst Du den mit Workbook_Activate 1x ausführen oder die Mappe speichern und neu öffnen oder mal in eine andere exceldatei wechseln (in der gleichen Session) und zurückgehen.
Erst dann sind die Menüs da. Später werden sie immer eingeblendet sein, wenn die Mappe aktiv ist.

Reset tut, wie im Kommentar steht, den Standard wieder herstellen. Alternativ kann man, wie ich auch im Workbook_Deactivate kommentiert habe, die Einträge gezielt entfernen.