Liliana311

Hiiiiiilfeeeeee

... ach ne, und wer war das eben der mich befreit hat ...

@Enton: Gern geschehen.. ...mich ruhig stellen, nix da, jetzt gehts erst richtig los.. *Zauberbuch rauskram - Sprüchlein aufsag - und jeder der an Enton will, bekommt nen Stromschlag*

@Dark: pahh...ich kenn noch ganz andere Tricks

... irgend jemand muss doch die kleine Ente beschützen... *mich vor Enton stell und eine "Schutzhülle" zauber* "HEX HEX"

@Enton: re- :e@sy ... und alle anderen auch mal :e@sy

Guten Morgen zusammen, ach, ist das nicht ein wunderbares Wetter da draußen... *Urlaub-will*

ja, habs versucht geht auch... nunja, jetzt hab ich zum Probieren zwei Menüpunkte rausgelöscht und jetzt bekomm ich die nicht mehr rein... hab alles gelöscht...wieder eingefügt.. nix...nur ein Menüpunkt steht da.. Na egal, das krieg ich schon hin...

Habs hinbekommen einfach nur: Menü.Reset Nochmals danke für die Hilfe!

ja, ich werd auch mal 'irgendwas' weiterprobieren

Bsp.: Unload (Menü.Controls.Item(1)) Fehlermeldung:Laufzeitfehler 438, Objekt unterstützt diese Eigenschaft oder Methode nicht. --------------- Um die Menüpunkte zu sehen, musst du auf Kalender,neuer Termin und dann auf Aktionen gehen... bzw. in der 3.Schleife &Neuer Termin in Neuer Ter&min umändern

Habs genau so gemacht wie du es gesagt hast: Menü.Controls.remove 1 Menü.Controls.remove 2 Menü.Controls.remove 3 Ergebnis: trotzdem Fehlermeldung, Methode oder Datenobjekt nicht gefunden..

Menü.Remove 1 Fehlermeldung wie bei 2) klappt irgendwie nicht... hier mal zur Info der komplette Code zum Hinzufügen der Menüpunkte: Sub MenüMitarbeiter() 'Stand 13.03.03 'Projekt "Urlaubsplanung mit Outlook 2000" 'erstellt von: XXX 'Makro, das dem Menü "Aktionen" von Outlook-Terminelementen neue Menüpunkte hinzufügt: 'Menüpunkt 1: "Urlaub einreichen" 'Menüpunkt 2: "Freizeitausgleich" 'Menüpunkt 3: "beantragten Termin löschen", 'die zum Einreichen u. Löschen von Urlaubsanträgen bzw.Anträgen auf Freizeitausgleich 'benötigt werden. 'Den eingefügten Menüpunkten werden entsprechende Makros zugewiesen,die ausgeführt werden, 'wenn der Benutzer einen der o.g.Menüpunkte anklickt. '******************************************************************************************** 'Variablendeklaration: Dim Termin As AppointmentItem Dim Menüleiste As CommandBar Dim Menü As CommandBarPopup Dim MenüpunktNeu As CommandBarButton Dim i As Integer '******************************************************************************************** 'Erstellen eines neuen Outlook-Terminelements u. Zuweisung an die Variable "Termin" Set Termin = Application.CreateItem(olAppointmentItem) '******************************************************************************************** 'With-Anweisung,die auf das erstellte Terminelement zugreift: With Termin 'FOR-Schleife zum Durchlaufen der Symbolleisten des Termins; 'Zuweisung der Menüleiste an die Variable "Menüleiste" For i = 1 To .GetInspector.CommandBars.Count If .GetInspector.CommandBars(i).NameLocal = "Menüleiste" Then Set Menüleiste = .GetInspector.CommandBars(i) Exit For End If Next 'FOR-Schleife zum Durchlaufen der Menüs der Menüleiste; 'Zuweisung des Menüs "Aktionen" an die Variable "Menü" For i = 1 To Menüleiste.Controls.Count If Menüleiste.Controls.Item(i).Caption = "Akt&ionen" Then Set Menü = Menüleiste.Controls.Item(i) Exit For End If Next 'FOR-Schleife zum Durchlaufen der Menüpunkte des Menüs "Aktionen", 'um auf die Position des Menüpunktes "Neuer Termin" zuzugreifen For i = 1 To Menü.Controls.Count If Menü.Controls.Item(i).Caption = "&Neuer Termin" Then 'Zählervariable i wird um 1 erhöht,um Position für neue Menüpunkte festzulegen i = i + 1 'Hinzufügen Menüpunkt "beantragten Termin löschen" Set MenüpunktNeu = Menü.Controls.Add(, , , i) 'Zuweisung des Makros "TerminLöschen" über die OnAction-Eigenschaft With MenüpunktNeu .Caption = "beantragten Termin löschen" .OnAction = "TerminLöschen" .FaceId = 67 .Style = msoButtonIconAndCaption .Enabled = True .Visible = True End With 'Hinzufügen Menüpunkt "Feizeitausgleich" Set MenüpunktNeu = Menü.Controls.Add(, , , i) 'Zuweisung des Makros "Freizeitausgleich" über die OnAction-Eigenschaft With MenüpunktNeu .Caption = "Freizeitausgleich" .OnAction = "Freizeitausgleich" .FaceId = 29 .Style = msoButtonIconAndCaption .Enabled = True .Visible = True End With 'Hinzufügen Menüpunkt "Urlaub einreichen" Set MenüpunktNeu = Menü.Controls.Add(, , , i) 'Zuweisung des Makros "UrlaubEinreichen" über die OnAction-Eigenschaft With MenüpunktNeu .Caption = "Urlaub einreichen" .OnAction = "UrlaubEinreichen" .BeginGroup = True .FaceId = 29 .Style = msoButtonIconAndCaption .Enabled = True .Visible = True End With Exit For End If Next End With '******************************************************************************************** 'Löschen des Terminelements,das lediglich zum Einfügen der Menüpunkte benötigt wurde Termin.Delete '******************************************************************************************** 'Beenden des Programms End Sub '******************************************************************************************** 'Nach Ablauf des Programms stehen die eingefügten Menüpunkte in allen Outlook-Terminelementen 'zur Verfügung. '******************************************************************************************** Diese 3 hinzugefügten Menüpunkte will ich wieder löschen

Erstmal danke für eure Infos. Also wenn ich es so schreibe: 1) Menü.Controls("Worksheet Menu Bar").Reset kommt folgende Meldung: Laufzeitfehler '5' Ungültiger Prozeduraufruf oder ungültiges Argument. 2)Menü.Controls.Remove Fehlermeldung: Fehler bei Kompilieren Methode oder Datenobjekt nicht gefunden 3)Menü.Controls.Reset Fehlermeldung wie bei 2) hmm..ich probier mal noch weiter...

Hallo zusammen, wie lösche ich zuvor eingefügte Menüpunkte in Outlook 2000? Die Menüpunkte wurden mit Makros eingefügt. Da ich den Code nicht selbst geschrieben habe, blicke ich da nicht so ganz durch Bsp. für das Hinzufügen: . . . Set MenüpunktNeu=Menü.Controls.Add(, , , i) . . . Wenn ihr noch mehr von dem Code sehen wollt, einfach "bescheid sagen". Wie geht das Löschen nun? Hab schon gegoogelt, aber es waren keine nützlichen Infos dabei. Wäre super, wenn ihr mir da helfen könntet. LG Liliana

Guten Morgen liebe Soapies, ich geh dann mal wieder :schlaf: *mich in Kuschelecke verkriech*

Guten Morgen zusammen, @Kugel: alles Gute zum Geburtstag nachträglich :hawk ... und was bimei meinte, war wohl, dass ich diesen Thread mal unter einem anderen Namen eröffnet habe (da kannte ich die Soap noch nicht): http://forum.fachinformatiker.de/showthread.php?t=73502&highlight=m%E4nner ... ich glaub das mit dem Verlinken klappt nicht so ... *schäm* - geht ja doch Naja...

aha, na gut, dann weiß ich fürs nächste mal bescheid...

was hab ich jetzt damit zu tun?

so, ich mach dann mal FA @Enton: *Daumen drück* und allen noch ein schönes und erholsames WE Bye Bye

..zu dem Thema gibts nen Thread "Warum Frauen keine netten Kerle lieben..." (oder so ähnlich)

*dich mal ganz doll :e@sy *

Guten Morgen zusammen, alle mal :e@sy

scheinen ja fast alle weg zu sein..na dann geh ich mal was kochen... :eat:

achso meinst du das...das war ja jetzt nur ein vorläufiges Foto... ihr werdet noch andere zu sehen bekommen :beagolisc :hells: @grueni: ja bella anstatt bello