MS-Office-Forum
Google
   

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads Der Renner, 11 Entwicklertools für Access, Tipps & Trick und offene Datenbanken zum einzigartigen Preis.
Themen-Optionen Ansicht
Alt 03.04.2017, 19:01   #1
jagga007
MOF User
MOF User
Standard Excel2010 - OLEObjects mit Labels

Hallo Leute,

ich habe mich an selbstgebastelten Label Kästchen versucht und mit Hilfe im Forum das beigefügten Beispiels zusammengebastelt.
Das nach einem Klick mit der Maus ein X gewählt und bei einem erneuten klicken dieses wieder abgewählt wird, funktioniert schon mal.

Mein Problem ist nun folgendes.
Wenn ich mehrere Labels ausgewählt habe, wie kann man, wenn man Neu auswählen möchte alle zurücksetzen sodass kein Label mehr gewählt ist.
Hab da ein bisschen ein Problem.

Vielleicht hat jemand hier im Forum einen Vorschlag.

Gruß jagga007
Angehängte Dateien
Dateityp: xlsm Lbl-test.xlsm (97,1 KB, 11x aufgerufen)
jagga007 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.04.2017, 20:54   #2
R J
MOF Meister
MOF Meister
Standard

Hi jagga,

wo wird denn "Neu" ausgewählt? Egal, hier mal ein Beispiel zum setzen oder entsetzen der Labels. Wobei hier Checkboxen geeignet wären ....

Code:

Sub anschalten()
    Ändern True
End Sub

Sub ausschalten()
    Ändern False
End Sub

Public Sub Ändern(an As Boolean)
   On Error Resume Next
Application.EnableEvents = False
    Dim str$, rng As Range, i%
    str = IIf(an, "T", VBA.Chr(163))
    i = IIf(an, 0, -1)
    Dim objOLE                As OLEObject

    For Each objOLE In Sheets("Master").OLEObjects
        If objOLE.Name Like "LOG*" Then
            objOLE.Object.Caption = str
            Set rng = Sheets("Lbl").Columns(2).Find(objOLE.Name, lookat:=xlWhole)
            If Not rng Is Nothing Then rng.Offset(0, -1) = i
            Set rng = Nothing
        End If
    Next

Application.EnableEvents = True

End Sub

__________________

Ciao, Ralf

Auf, zum Markplatz der Ideen!
Der sicherste Ansatz für einen Irrtum ist der Glaube, alles im Griff zu haben.
Nur, weil ich den Recorder bedienen kann, macht mich das noch lange nicht zum Musiker.
Diskussion


Geändert von R J (03.04.2017 um 21:03 Uhr).
R J ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 03.04.2017, 22:13   #3
jagga007
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo Ralf,

ich weiß nicht, woher Du diese Zeilen hast. Aber aus meinem Beispiel hast Du Sie nicht.

Ist heute leider schon etwas zu spät. Melde mich morgen nochmal dazu.



Gruß jagga007
jagga007 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 04.04.2017, 09:28   #4
R J
MOF Meister
MOF Meister
Standard

Zitat:

ich weiß nicht, woher Du diese Zeilen hast. Aber aus meinem Beispiel hast Du Sie nicht.

...da bin ich mir sogar sicher, dass ich sie nicht aus Deinem Beispiel habe!
Wenn Du ausschließlichen Wert auf Deinen Code legst, dann solltest Du hier vielleicht keine Fragen posten....

Der Code war meine Antwort auf Deine Frage in Zusammenhang mit Deinem Beispiel. Aber da beides nicht so recht zusammenpassen wollte, ist meine Antwort eher eine Interpretation dessen, was ich als Deine Frage verstanden habe. Die Möglichkeit, die Labels zurückzusetzen (die Kreuze zu entfernen). Falls meine Interpretation falsch sein sollte, dann sorge bitte dafür, dass Deine Frage in Kombination des Beispiels eindeutig klar ist und keine Interpretationen zulässt.

__________________

Ciao, Ralf

Auf, zum Markplatz der Ideen!
Der sicherste Ansatz für einen Irrtum ist der Glaube, alles im Griff zu haben.
Nur, weil ich den Recorder bedienen kann, macht mich das noch lange nicht zum Musiker.
Diskussion

R J ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 04.04.2017, 18:09   #5
jagga007
Threadstarter Threadstarter
MOF User
MOF User
Strahlen

Hallo Ralf,

entschuldige meine Zeilen. War mein Fehler zugleich schon etwas spät wie meine Blicke über die Zeilen huschten.
Selbstverständlich hast Du Recht, wie könnte ich auf meinen Code beharren. Wenn dem so sei, dann sollte man sich gefälligst auch selbst um eine Lösung bemühen.

Da ich aber Probleme habe dies umzusetzen darum habe ich ja auch hier um Hilfe gebeten. Also sei Dir gewiss, es war nicht so gemeint wie Du es offensichtlich verstanden hast.

Übrigens funktioniert Super. Dankeschön für Deine Rasche Hilfe


Gruß jagga007

Geändert von jagga007 (04.04.2017 um 18:11 Uhr).
jagga007 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 04.04.2017, 20:06   #6
R J
MOF Meister
MOF Meister
Standard

...keine Sorge. Hatte mich nicht auf den Schlips getreten gefühlt. Fand das eher lustig. Und da es ja jetzt funktioniert ist eh alles Bestens....

__________________

Ciao, Ralf

Auf, zum Markplatz der Ideen!
Der sicherste Ansatz für einen Irrtum ist der Glaube, alles im Griff zu haben.
Nur, weil ich den Recorder bedienen kann, macht mich das noch lange nicht zum Musiker.
Diskussion

R J ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:53 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

Copyright ©2000-2010 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günther Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.
Beachten Sie bitte auch unsere Nutzungsbedingungen.