Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1408to1412
1408to1412
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro einem Symbol zuweisen - durch Klick auslösen

Forumthread: Makro einem Symbol zuweisen - durch Klick auslösen

Makro einem Symbol zuweisen - durch Klick auslösen
17.02.2015 13:20:35
Meike
Hallo Zusammen :),
ich würde gerne einer eingefügten Form ein Makro zuweisen, in dem durch "drauf klicken" ein Häkchen eingefügt und entfernt wird (wie eine Checkbox).
Meine momentane Lösung ist, dass ich das Quadrat einfach in die Mitte der Zelle platziert habe und die Zelle mit Schriftart "Marlett" formatiert ist. Durch Klick kann ich ein "a" einfügen und durch die Schriftart wird ein Haken so gesetzt, dass er in der Mitte des Quadrats erscheint :D. In der Not wird man kreativ!
Ich bin mir aber sicher, es gibt eine schönere Variante. Vielleicht hat einer von euch hierfür eine Idee.
Vielen Dank im Voraus.
Liebe Grüße
Meike
Ps.:Warum ich keine Checkbox nehme hat den Grund, dass man diese von der Größe her leider nicht anpassen kann und für meine Vorhaben leider zu klein ist.

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Makro einem Symbol zuweisen
17.02.2015 14:16:30
Rudi
Hallo, 
Sub aa()
Dim s As Object
Set s = ActiveSheet.Shapes(1).DrawingObject
If Len(s.Text) Then
s.Text = ""
Else
s.Text = "a"
End If
End Sub

Gruß
Rudi

AW: Makro einem Symbol zuweisen
17.02.2015 15:23:43
Meike
Hi Rudi,
danke für deine Hilfe. Ich habe das gerade mal ausprobiert aber irgendwie funktioniert das bei mir noch nicht. :/
Könnte das an dem Blattschutz liegen oder daran, dass ich noch erwähnen muss in welche Zelle das "a" eingetragen werden soll? G440:G441 (habe hier die Zellen verbunden).
Vielen Dank und liebe Grüße

Anzeige
AW: Makro einem Symbol zuweisen
17.02.2015 16:02:18
UweD
Hallo
Ridis Lösung ändert den Text des Grafikobjects von a ( Häkchen ) in LEER und umgekehrt
Bei mir klappt es
https://www.herber.de/bbs/user/95824.xlsm
Gruß UweD

AW: Makro einem Symbol zuweisen
17.02.2015 17:17:13
Meike
Hallo Uwe,
danke für deinen Beitrag. :) Ich war mit meiner Antwort zu vorschnell. Es funktioniert jetzt zwar auch bei mir, allerdings hätte ich mein Anliegen etwas genauer formulieren sollen, denn ein Problem gibt es da noch:
Ich habe mehrere von diesen "Anklick-Symbolen" (es werden sicher insgesamt um die 40 werden).
Ich wollte dieses Vorgehen nun auf die anderen übertragen, aber mit klick auf das Symbol wird der Haken immer beim Ursprungssymbol gesetzt.
Nenne ich das Makro aa2 und versuche das dem zweiten Symbol zuzuordnen kommt die Fehlermeldung: " Bezug muss ein Makroblatt betreffen". Wobei es auch etwas uncharmant wäre hierfür extra 40 Codes zu schreiben.
Hat jemand von euch hierfür noch einen Vorschlag?
Liebe Grüße
Meike

Anzeige
AW: Makro einem Symbol zuweisen
17.02.2015 21:20:54
Rudi
Hallo,
das weist du allen zu: 
Sub aa()
With ActiveSheet.Shapes(Application.Caller).DrawingObject
If Len(.Text) Then
.Text = ""
Else
.Text = "a"
End If
End With
End Sub

Gruß
Rudi

AW: Makro einem Symbol zuweisen
19.02.2015 12:36:36
Meike
Super, vielen Dank!!!
Ein Anliegen habe ich aber natürlich noch :):
Ich habe auf Tabelle1 eine Eingabemaske, in der Kontrollkästchen eine Seite auf Tabelle2 ein bzw. ausblenden. Wenn diese ausgeblendet ist, soll auch ein bestimmter Zellenhalt gelöscht werden (B425,426,428). Wäre es hier auch möglich, neben dem Löschen des Zellenhaltes den Befehl zu geben, die Häkchen in den Symbolen zu deaktivieren/ausblenden, so dass beim erneuten einblenden die Seite "leer"erscheint und keine Häkchen von der vorherigen Eingabe gesetzt sind?!
Ich hoffe, ich konnte mein Anliegen deutlich formulieren.
Franz hat mir in einem anderen Thread für meine Kontrollkästchen bereits den Befehl gebaut. Könnt ihr mir sagen, an welche Stelle der Verweis ( .Text = "") eingebaut werden könnte? Wichtig ist für mich, dass die Häkchen nur innerhalb der bestimmten Zellen (hier("425:462)) zurückgesetzt werden und nicht alle auf Tabelle2 deaktiviert sind.
Ich bedanke mich im Voraus für eure Unterstützung!! :)
LG Meike
Sub Button_G()
Application.ScreenUpdating = False
Dim bol_Sichtbar As Boolean
bol_Sichtbar = Sheets("Eingabe").Range("I15").Value
With Sheets("Tabelle2")
.Unprotect Password:="pw"
.Rows("425:462").Hidden = Not bol_Sichtbar
If bol_Sichtbar = True Then
.Select
.Range("B425").Select
ActiveWindow.ScrollRow = 425
Else
.Range("B425,B426,B428").ClearContents
End If
.Protect Password:="pw", DrawingObjects:=True, Contents:=True, _
Scenarios:=True, AllowFormattingCells:=True
End With
Application.ScreenUpdating = True
End Sub

Anzeige

Forumthreads zu verwandten Themen

Makro: Mail erzeugen funktioniert noch nicht
Ralf

Hallo,
folgendes Makro zur Erzeugung einer Mail funktioniert noch nicht.
Sub Mail_Stammdaten() Dim ob, mailitem As Object Set ob = CreateObject("outlook.application") Set mailitem = ob.CreateItem(0) On Error Resume Next With mailitem .Subject = "Neuanlage in Decalog" .To = "gerhard.ju...
18.09.2008 16:07:50
Thread-ID: 1010784
8 Beiträge
Makro funktioniert nicht mehr - Verweis?
otto

Hi,
Makro in anhängender Datei läuft nicht mehr. Kann mir jemand sagen warum?
Meine verwendeten Verweise sind auch dabei.
https://www.herber.de/bbs/user/56467.doc
Gruß
otto
03.11.2008 07:35:00
Thread-ID: 1021263
3 Beiträge
Filter-Makro funktioniert nicht
Wolfango

Hallo Experten,
die Spalte Q einer Datenbank enthält Datumswerte.
Wenn ich nun einen benutzerdefinierten Filter (vorher Autofilter aktiviert) setze mit den Kriterien "ist kleiner oder gleich" "31.12.2008" funktioniert das einwandfrei. Die gesuchten Werte werden wie gewünscht angezeigt...
04.11.2008 10:28:00
Thread-ID: 1021496
8 Beiträge
Makro funktioniert nicht richtig, Werte auslesen
Uwe

Hallo zusammen, habe folgendes Problem in dem beigefügtem Makro funktioniert es nicht das er die Werte 2 und 3 aus der Tabelle ausliest. Wert 1 geht wunderbar. Hat jemand eine Lösung?
Hallo Uwe,
unregelmäßig aufgebaute Tabellen per Makro abzuarbeiten ist immer ziemlich aufwendig zu prog...
07.11.2008 08:22:00
Thread-ID: 1022502
2 Beiträge
OptionButtons in Grp mittels Makro erstellen
adrian

Hi,
wie folgt wird ein OptionButton mittels Makro erstellt: Die Prozedur wird dann zusammen mit einer anderen im HauptSheet aufgerufen.
Nur weiß ich leider nicht wie ich mehrere OB, bzw. drei untereinander als Gruppe erstellen kann =(
Mehrere Prozeduren, für jeweils jeden OB ist ja...
16.12.2008 14:44:00
Thread-ID: 1033291
13 Beiträge
Makro funktioniert nicht
Diegel,

Hallo,
ich bin schon fast am verzweifeln.
Ein Makro funktioniert in der einen Datei und in der anderen Datei nicht. Obwohl ich genau dasselbe hinein kopiert habe.
Woran kann es liegen?
Viele Grüße von der Nordsee
Peter
12.03.2009 17:20:12
Thread-ID: 1059586
3 Beiträge
Makrorekorder funktioniert nicht richtig
peter

Hallo Profis,
hätte mal eine Frage zum Makrorekorder. Wenn ich es aufzeichne und dann abspiele funktionierts nicht.
Ich will einen Autofilter setzten, der diverse Zellen ausblendet, und die noch sichtbaren will ich in ein anderes Tabellenblatt kopieren...aber warum will er nicht?
'M...
22.03.2009 20:46:13
Thread-ID: 1062704
5 Beiträge
Anzeige
Makro funktioniert nicht
mike49

Hallo,
ich habe ein bestehendes Makro versucht zu erweitern, das aber misslungen ist.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("E8:E38")) Then Cancel = True If Target = "" Then Target = "9:15" Else Target = "...
29.03.2009 11:08:37
Thread-ID: 1065018
5 Beiträge
Makro aus Excel 2003 funktioniert nicht in Ex 2007
Lene

Hallo zusammen,
ich habe in 2003er Version ein kleines Makro, das in der 2007er Version einen Fehler verursacht.
Hat jemand einen Tipp, woran es liegt ich wie man das Makro so umschreiben kann, dass es in möglichst vielen Excel-Versionen läuft? Der künftige Benutzerkreis hat leider dive...
07.04.2009 19:27:56
Thread-ID: 1067511
9 Beiträge
Makro einer Schaltfläche zuweisen
Gunter

Hallo Zusammen,
ich habe in einem Arbeitsblatt ein Makro einer Schaltfläche zugewiesen. Wenn ich jetzt ein neues Arbeitsblatt aufmache ist die Schaltfläche auch vorhanden. Soweit so gut. Wenn ich nun auf diese Schaltfläche klicke öffnet sich die Datei in der ich das Makro erstellt habe. Mus...
02.10.2009 19:04:57
Thread-ID: 1106903
10 Beiträge
Makro funktioniert nicht mehr
Wolfgang

Hallo,
obwohl ich leider keine Ahnung von VBA habe; Perl ist mir da lieber; konnte ich mir trotzdem vor längerer Zeit mit Hilfe verschiedenen Foren eine Makro zusammen bauen.
Dieses Makro macht folgendes unter Excel 2003.
In die erste Spalte "A" werden manuell Artikelnummern eingebe...
14.10.2009 20:56:20
Thread-ID: 1109687
3 Beiträge
Makro mit Button aufrufen
Joni

Hi,
ich möchte mit
Private Sub Buchungen_einfügen_Click() Call Buchungen_einfügen End Sub das Makro Buchungen einfügen aufrufen (wenn auf den Button geklickt wird). Da kriege ich die Meldung Prozedur statt Variale erwartet.
Kann mir jemand helfen warum das nicht funktioniert?
D...
17.11.2009 13:36:53
Thread-ID: 1117967
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige