Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1928to1932
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1928to1932
1928to1932
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Toggle (Umschalter) funktioniert nicht

Toggle (Umschalter) funktioniert nicht
20.05.2023 17:29:43
didi62

Hallo helfende Hände

Vor kurzem erhielt ich tolle Unterstützung aus diesem tollen Forum. Ich musste in meiner Datei noch Anpassungen machen und nun bringe ich leider die Umschalt-Funktion eines Toggle-Feldes nicht hin. Die Fehlermeldung bekomme ich nicht in den Griff. Ich bitte um eure Hilfe!

Ziel: Mit dem VBA-Feld "Neue Aufgabe" kann ich wunderbar neue Zahlenfelder generieren. Je nach Bedarf sollte ich aber auch für meine Schüler mit dem Toggle-Feld die Lösung ein- und ausschalten können - das bringe ich einfach nicht her....
Findet vielleicht jemand meinen Fehler?

Datei: https://www.herber.de/bbs/user/159253.xlsm

Ich danke im Voraus von Herzen für jeden Hinweis (wenn möglich die Korrektur gleich in der angehängten Datei einfügen wäre toll, da ich nicht so bewandert in VBA bin).

Liebe Grüsse
didi62

18
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Toggle (Umschalter) funktioniert nicht
20.05.2023 20:15:52
Alwin WeisAngler
Hallo,
falls du es noch nicht selbst entdeckt hast - es fehlt im Namen der Doppelpunkt.

.Shapes("Rechteck: abgerundete Ecken 1")
Gruß Uwe


AW: Toggle (Umschalter) funktioniert nicht
20.05.2023 20:24:20
onur
Da gibt es kein Shape auf dem Blatt, das ist diesmal nur eine Zelle.


AW: Toggle (Umschalter) funktioniert nicht
20.05.2023 21:09:03
Alwin WeisAngler
im Tabellenblatt "50er Feld" befindet sich das betreffende Shape.
anbei die Datei (Fehler korrigiert).
Über den Sinn mag man sich streiten.
https://www.herber.de/bbs/user/159254.xlsm

Gruß Uwe


AW: Toggle (Umschalter) funktioniert nicht
20.05.2023 21:10:09
onur
Um DIESES Blatt geht es abwer NICHT.


AW: Toggle (Umschalter) funktioniert nicht
20.05.2023 21:24:43
Alwin WeisAngler
im Blatt "100er mit Zahlen" fehlt ebenfalls das Shape.
Bleib bitte entspannt, ich bin einfach auf die Suche nach den Namen des Shapes gegangen. Naja da fehlte eben der Doppelpunkt im Namen.
So jetzt krall ich mir ein Bier. Ist heute Abend eh nicht Interessantes mehr zu erwarten.
Gruß Uwe


Anzeige
AW: Toggle (Umschalter) funktioniert nicht
20.05.2023 21:33:26
didi62
Hallo Uwe (in meiner Heimatstadt Feldkirch in Österreich gibt es eine Bar mit dem Namen "Uwe's Bierkneipe... :-))

Danke für deine Tipps. Das mit dem Doppelpunkt hatte ich einmal mit und ohne probiert. Auch die Leerschläge habe ich mal mit und ohne gemacht - daran lag es aber nicht.

Und sorry: Den Befehl "Shape" hat mir ein freundlicher Herberianer gemacht. Ich selbst weiss leider nicht was "Shapes" wirklich sind, bzw. was die ausmachen...

Aber Ralf hatte die Lösung, die genau richtig war. Jetzt ist nur noch das Problem, dass "Toggle" drei Mal in den drei Tabellenblättern vorkommt und das ergibt eine Fehlermeldung. Hier nochmal die aktualisierte Datei: https://www.herber.de/bbs/user/159256.xlsm

Schönen Feierabend für dich!


Anzeige
AW: Toggle (Umschalter) funktioniert nicht
20.05.2023 21:37:29
onur
Wieso nimmst du nicht (wie jeder andere auch) einfach Active-X-Buttons statt irgendwelche Shapes, die so aussehen wie Buttons ? Genau für sowas gibt es schliesslich Buttons.


AW: Toggle (Umschalter) funktioniert nicht
20.05.2023 21:44:17
didi62
Hallo Onur

Meci für den Hinweis. Ich war gerade am googlen - jetzt weiss ich wenigstens dass die "Shapes" die "Formen" sind. Und ich bin auch über die Active-X-Buttons der Steuerelemente unter den "Entwicklertools" gestossen. Sorry, die kannte ich noch nicht.....
Muss mal ausprobieren, was der Vorteil dieser Steuerelemente gegenüber den Formen sind.

Ich versuche, mich mit VBA durchzukämpfen ;-)


Anzeige
AW: Toggle (Umschalter) funktioniert nicht
20.05.2023 22:01:14
didi62
Aaah, mit "CommandButton"!
Interessant, mit den Active-X-Steuerelementen muss ich mich noch genauer beschäftigen. Toller Hinweis, Dankeschön!

Gruss und Gute Nacht
didi62


AW: Toggle (Umschalter) funktioniert nicht
20.05.2023 20:25:45
ralf_b
du willst ja die Lösung ein und ausblenden und nicht den Lösungsbutton.
Problem: die Zelle mit der Lösung ist nicht immer die Gleiche. Vielleicht kannst du das ja noch anpassen, dann würde der Code auf jedem Blatt funktionieren. 

Sub Toggle()
    If ActiveSheet.Shapes(Application.Caller).DrawingObject.Caption = "Lösung" Then

       If Range("P5").Font.Color = vbRed Then
          Range("P5").Font.Color = Range("P5").Interior.Color
       Else
          Range("P5").Font.Color = vbRed
       End If
    End If
End Sub


Anzeige
AW: Toggle (Umschalter) funktioniert nicht
20.05.2023 21:27:24
didi62
Hallo Ralf (und Danke auch an die anderen Uunterstützer!)

Ja, du hast recht: ich will nicht den Button ausblenden, sondern wie du es richtig erkannt und schon programmiert hast will ich das Lösungsfeld ein-/ausblenden.
Super, danke dir für die Hilfe!!

Jetzt habe ich für die anderen zwei Tabellenblätter (20er, 50er und erstes 100er-Feld) die VBAs mit den unterschiedlichen "Lösungs"-Zellen erstellt. Excel reklamiert jetzt, dass der Toggle nun mehrdeutig ist....
Ich finde nicht heraus, wie ich die anderen beiden Toggles umbenennen muss, bzw. wie deren Bezeichnung herauszufinden ist. Könntest du mir da bitte noch helfen? Dann wäre die Datei für meine Sonderschüler fertig!

Darf ich die Datei nochmal für dich hochladen?! Merci!!

Datei: https://www.herber.de/bbs/user/159255.xlsm


Anzeige
AW: Toggle (Umschalter) funktioniert nicht
20.05.2023 21:47:07
ralf_b
benenne die Subs/Makros so um das es keine Gleichnamigen gibt. Weise die Subs/Makros den passenden Buttons zu.


AW: Toggle (Umschalter) funktioniert nicht
20.05.2023 21:57:49
didi62
GELÖST!

Hallo Ralf,
... hab mich erst nur nicht getraut! Aber ich schrieb dann wirklich nur eine Nummer hinter den Begriff "Toggle" und siehe da - es klappt und es funzt jetzt alles!
Ich bin so froh, jetzt läuft die ganze Datei und es ist dank DIR genau so geworden, wie ich es mir vorstellte!
Herzlichen Dank nochmal und mach auch du jetzt Feierabend :-)

Gruss und grossen Dank für die Hilfe!
Ich staune, mit welcher Selbstlosigkeit hier von euch Profis geholfen wird!!!
didi62


Anzeige
AW: Toggle (Umschalter) funktioniert nicht
20.05.2023 22:18:29
GerdL
Hallo Didi,
mit deinen bisherigen drei Lösung-Buttons:
Sub Toggle()
    
    Dim strFeld As String

    Select Case ActiveSheet.Name
        Case "20er Feld": strFeld = "P5"
        Case "50er Feld": strFeld = "P7"
        Case "100er Feld": strFeld = "P8"
    End Select
    With ActiveSheet,Range(strFeld)
        If .Font.Color = vbRed Then
           .Font.Color = .Interior.Color
        Else
           .Font.Color = vbRed
        End If
    End With

End Sub
Gruß Gerd


AW: Toggle (Umschalter) funktioniert nicht
21.05.2023 06:22:43
didi62
Guten Morgen Gerd,

Wow, deine Lösung sieht ja elegant aus!! Habe ich schon richtig verstanden, dass dieses VBA dann gleich für alle drei Tabellenblätter gedacht ist?!
Leider aber kommt die Fehlermeldung "Fehler beim Kompilieren". Googlesuche ergab einen möglichen Schreibfehler - ich finde aber nichts Ungewöhnliches in deinen Formeln. Könntest du die Datei bitte nochmal anschauen??

Datei: https://www.herber.de/bbs/user/159258.xlsm

Vielen Dank
didi62


Anzeige
AW: Toggle (Umschalter) funktioniert nicht
21.05.2023 08:57:52
GerdL
Entschuldige bitte, Didi.
Mache aus dem Komma zwischen ActiveSheet und Range einen Punkt.
Ja, dieses Makro kannst du allen drei Lösung-Buttons zuweisen.
(Button markieren, rechte Mousetaste klicken, Makro zuweisen, Button anklicken)
Achte bitte drauf, dass der Makroname im Projekt nur einmal vorhanden ist.
Gruß Gerd


AW: Toggle (Umschalter) funktioniert nicht
21.05.2023 10:00:45
didi62
Servus Gerd,

Das ist ja genial, was du da programmiert hast!! Kompliment, sehr elegant gelöst und funktioniert einwandfrei!
Wow, ich bin richtig glücklich, denn meine kleinen Förderschüler sind diese Mengenfelder eine tolle Übungshilfe zum möglichst schnellen Erfassen von Mengen!
Nochmals ganz herzlichen Dank für dein Know-How und deine Zeit! Nun mach aber einen genussvollen Sonntag :-)

LG didi

Anzeige

307 Forumthreads zu ähnlichen Themen

Zeilenumbruch in Formel
Jochen

Hallo, kann ich einen Zeilenumbruch in eine Formel berücksichtige.
Das ist meine Formrl:
=WENN(A11"";VERKETTEN(A11;"/";$C$2;" - ";B11;"/";$C$2;
"ZEILENUMBRUCH AN DIESE STELLE";$C$4;". Trommel X von ";F11);"")
Danke im voraus
Jo. Bo.
04.11.2008 13:35:00
Thread-ID: 1021604
3 Beiträge
Anzeige
Zeilenumbruch i Zelle nach beliebiger Zeichenfolge
Till

Hallo Leute,
habe mal wieder eine bescheidene Frage.
Ich würde gerne in einer Zelle nach jeder Zeichenfolge, die mit einem Leerzeichen abgeschlossen ist, anstelle des Leerzeichens einen Zeilenumbruch erzwingen.
Wie kann man das mit VBA machen?
Irgendwo anders habe ich gefunden w...
30.01.2009 11:13:24
Thread-ID: 1045325
4 Beiträge
Schaltfläche funktioniert bei Blattschutz nicht
manuela

hallo
möchte die daten aus einer sql-datenbank mittels makro aktualisieren. dazu hebe ich zuerst den blattschutz auf, aktualisiere und setze den blattschutz wieder. das makro läuft einwandfrei. sobald ich es aber mit einer userform auf dem blatt selbst verknüpfe, kriege ich eine fehlermeldu...
04.02.2009 11:12:30
Thread-ID: 1046940
5 Beiträge
Anzeige
Zeichen für Zeilenumbruch entfernen
Pfannen-Meister

Guten Tag zusammen,
so, ich habe den Eindruck, daß ich heute zweimal Eure Hilfe brauchen werde und hoffe, daß mich jemand unterstützen kann:
Ich kopiere eine Zelle aus einer Excel Datei, bei der als Format "Zeilenumbruch" gekennzeichnet ist.
In dem Tabellenblatt, in das ich den I...
18.02.2010 14:26:44
Thread-ID: 1139523
3 Beiträge
Zeilenumbruch in langer Formel
reiner

Hallo Leute,
die nachfolgende Formel ragt wegen ihrer Länge weit über den Rand des VBA-Editors hinaus und wirkt dadurch unübersichtlich. Mir ist bekannt dass Zeilenumbrüche mit „ _“ erzwungen werden können, aber bei dieser Formel klappt das nicht. Wenn ich ein Leerzeichen und einen Unterstr...
06.03.2011 14:26:42
Thread-ID: 1204466
8 Beiträge
Benutzerdef. Schaltfläche + Symbolleiste in 2010 ?
Micha

Hallo liebe Spezialisten,
Nach dem Umstieg von Excel 93 auf 2010 bin ich ein wenig verwirrt.
In Excel 93 war es recht einfach eine benutzerdefinierte Schaltfläche in einer eigenen Symbolleiste zu erstellen, und dann diese Symbolleiste der Datei anzufügen.
Aber wie klappt das in Exce...
04.04.2011 13:23:25
Thread-ID: 1208914
2 Beiträge
Kein Zeilenumbruch mehr nach 1200 Zeichen ??
Mandy

Hallo,
habe ein kleines Problem: habe eine Zelle mit einem Inhalt gefült, der so ca 1200 Zeichen hat. Wenn der Inhalt so groß ist , habe ich bei ein paar Zellen gesehen, dass Excel keinen Zeilenumbruch macht. Auch wenn die Zelle so formatiert ist.
Der letzte Satz ist dann nicht mehr si...
08.04.2011 20:45:53
Thread-ID: 1209667
10 Beiträge
OnKey Belegung 'ALT + v' funktioniert nicht
Andreas

Hallo Herber Fans,
ich bin gerade auf ein krudes Problem gestoßen. Ich versuche in Excel den ShortCut Alt + v zu belegen, aber es klappt nicht. Wenn ich einen anderen Buchstaben verwende, dann funktioniert es. Aber ich habe durch Recherchen nicht ermitteln können, daß diese Tastaturkombinat...
17.10.2011 16:11:57
Thread-ID: 1234230
5 Beiträge

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
11
3
4
3
2
7
1
9
4
2
2
7
6
9
7
2
4
7
5
1
1
9
4
6