Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
128to132
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
128to132
128to132
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kontextmenü

Kontextmenü
20.06.2002 15:03:29
Eck Ingo
Hilfe, ich versuche ein eigenes Kontextmenü einzubinden. Der Einfügen-Bereich ist OK. Was mach ich bei dem Bereich Ausschneiden falsch ?

Sub Kontext()
Dim NeuesMenü As CommandBarButton
With CommandBars("Cell")
Do While .Controls.Count > 0
On Error Resume Next
.Controls(1).Delete
Loop
'
Set NeuesMenü = .Controls.Add(msoControlButton)
With NeuesMenü
.Caption = "&Kopieren"
.OnAction = "Ausschneiden"
End With
'
Set NeuesMenü = .Controls.Add(msoControlButton)
With NeuesMenü
.Caption = "&Einfügen"
.OnAction = "Einfuegen"
End With
'
End With
End Sub

Sub KontextmenüWiederherstellen()
CommandBars("Cell").Reset

End Sub


Sub Einfuegen()
On Error Resume Next
ActiveCell.PasteSpecial Paste:=xlValues
End Sub

Sub Ausschneiden()
On Error Resume Next
ActiveCell.Cut
End Sub

Gruß Ingo


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Kontextmenü
20.06.2002 16:56:31
ajk
Hallo,

ersetze Mal in der sub Einfuegen
actviecell....
durch
ActiveSheet.Paste

Gruß
AJK

Re: Kontextmenü
20.06.2002 18:49:48
Eck Ingo
Hallo AJK,
das Einfügen aus der Zwischenablage klappt nur das Ausschneiden der aktiven Zelle nicht ?

Gruß Ingo

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige