Outsider77
Erfahrenes Mitglied
Hallo,
ich habe mittels VBA das bestehende Kontext-Menü in Excel 2007
ein klein wenig erweitert.
Das heißt:
Bei einer bestimmten Anzahl selektierter Zellen erscheint ein neuer Eintrag.
Dieser lautet Auswahl verschieben nach.
Die Unter-Punkte von Auswahl verschieben nach sind:
Spalte 1
Spalte 2
Spalte 3
Spalte 4
Spalte 5
Spalte 6
Bis hierher hab ich das folgendermaßen gelöst:
Jetzt kann es vorkommen, dass ich zur Laufzeit den Unter-Punkt Spalte1 erweitern muß.
Ich habe es auf folgendem Weg probiert, leider ohne Erfolg:
Wie oben schon erwähnt tut sich aber leider nichts.
Kann mir bitte jemand sagen, wie es es richtig machen muß?
Und vielleicht noch einen Tipp geben, wie ich außer Bereich1
noch weitere Unter-Menüs von Spalte 1 erzeugen kann?
Danke für die Hilfe!
Gruß Outi
ich habe mittels VBA das bestehende Kontext-Menü in Excel 2007
ein klein wenig erweitert.
Das heißt:
Bei einer bestimmten Anzahl selektierter Zellen erscheint ein neuer Eintrag.
Dieser lautet Auswahl verschieben nach.
Die Unter-Punkte von Auswahl verschieben nach sind:
Spalte 1
Spalte 2
Spalte 3
Spalte 4
Spalte 5
Spalte 6
Bis hierher hab ich das folgendermaßen gelöst:
Code:
With CommandBars("Cell").Controls.Add(Type:=msoControlPopup)
.BeginGroup = True
On Error GoTo 0
.Caption = "Auswahl verschieben nach"
For a = 1 To 6
With .Controls.Add
.Caption = "Spalte" & a
.OnAction = "verschieben_spalte" & a
End With
Next a
End With
Jetzt kann es vorkommen, dass ich zur Laufzeit den Unter-Punkt Spalte1 erweitern muß.
Ich habe es auf folgendem Weg probiert, leider ohne Erfolg:
Code:
With CommandBars("Cell").Controls("Auswahl verschieben nach").Controls("Spalte1").Controls.Add(Type:=msoControlPopup)
With .Controls.Add
.Caption = "Bereich1"
.FaceID = 343
.OnAction = "bereich_1
End With
End With
Wie oben schon erwähnt tut sich aber leider nichts.
Kann mir bitte jemand sagen, wie es es richtig machen muß?
Und vielleicht noch einen Tipp geben, wie ich außer Bereich1
noch weitere Unter-Menüs von Spalte 1 erzeugen kann?
Danke für die Hilfe!
Gruß Outi