MS-Office-Forum

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

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 09.04.2019, 15:49   #1
TBWMeister
Neuer Benutzer
Neuer Benutzer
Standard Frage - VBA Excel

Hallo Leute,
habe leider nur gefährliches Halbwissen und brauche deshalb Eure Unterstützung.
Ich brauche einen VBA-Code um mit Hilfe eines Clicks auf einen selbst erstellten Button (existiert bereits) in einer kompletten Spalte die Schriftfarbe von etwa "blau" auf "weiß" umzuschalten und zurück.

Ich habe einige ähnliche Codes aus dem Netz versucht, jedoch ohne Erfolg.

Wäre sehr dankbar für Eure Unterstützung.
TBWMeister ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.04.2019, 15:53   #2
cysu11
MOF User
MOF User
Standard

Hi,

also, das kann man nun wirklich mit dem Makrorecorder machen!

LG
Alexandra
cysu11 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 09.04.2019, 15:55   #3
Der Steuerfuzzi
MOF Profi
MOF Profi
Standard

Hallo,

versuch es mal mit:
Range("A:A").Font.Color = vbwhite

__________________

Gruß
Michael
Der Steuerfuzzi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.04.2019, 05:15   #4
TBWMeister
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Moin zusammen,

danke für die Hinweise. das I-Tüpfelchen fehlt aber irgendwie noch...
Habe folgenden Code generiert:

Private Sub ToggleButton1_Click()
If ToggleButton1 Then
Range("L:L").Font.Color = vbWhite
Else
Range("L:L").Font.Color = vbBlack
End If
End Sub

Leider funzt das mit dem Umschalten per Click auf dem Button noch nicht.

Gruß, ts
TBWMeister ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.04.2019, 05:24   #5
RPP63neu
MOF Meister
MOF Meister
Standard

Moin!
Wenn Du tatsächlich einen Toggle-Button (Umschaltfläche) eingefügt hast, funktioniert das auch.

Gruß Ralf

__________________

Meine Logik war nicht fehlerhaft, nur meine Interpretation!
Tuvok

Geändert von RPP63neu (10.04.2019 um 05:27 Uhr).
RPP63neu ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.04.2019, 07:23   #6
TBWMeister
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Ralf,

super. Funzt tatschlich mit nem Toggle --> AktiveX-Steuerelement.

Und wie kann ich es mit einem selbst gebastelten Button verknüpfen?

Gruß, ts
TBWMeister ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.04.2019, 07:34   #7
MisterBurns
MOF Meister
MOF Meister
Standard

Was ist denn bitte ein "selbst gebastelter" Button? Gibt es da sowas wie malen nach Zahlen oder Vorlagen zum Ausschneiden?

Wenn du die Registerkarte Entwicklertools eingeblendet hast (wovon ich ausgehe), aktivierst du den Button Entwurfsmodus. Nun doppelklickst du auf deinen "gebastelten" Button und es öffnet sich der VBA-Editor und es sollten die Zeilen
Code:

Private Sub CommandButton1_Click()

End Sub
dastehen. Zwischen die beiden Zeilen fügst du deinen Code von oben ein.

__________________

Schöne Grüße
Berni
MisterBurns ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.04.2019, 12:10   #8
TBWMeister
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Berni,
das funzt leider nur in eine Richtung. Das Makro wechselt nicht die Schriftfabe, sondern ändert nur einmal von einer in die andere Farbe...
Mit "selbst gebasteltem Button" war eine eingefügte und beschriftete Grafik gemeint, der ein Makro zugewiesen wurde...

Gruß, ts
TBWMeister ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.04.2019, 12:20   #9
MisterBurns
MOF Meister
MOF Meister
Standard

Gute Güte, also wirklich malen nach Zahlen... Ideen gibt es, da muss man erst mal drauf kommen.

Code:

Sub Farbe()
With Range("L:L").Font
    Select Case .Color
        Case vbBlack
            .Color = vbWhite
        Case vbWhite
            .Color = vbBlack
    End Select
End With

End Sub
Rechtsklick auf deinen Bastelbutton --> Makro zuweisen --> Makro auswählen

__________________

Schöne Grüße
Berni
MisterBurns ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.04.2019, 12:40   #10
TBWMeister
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Berni, ich bin begeistert.
hurra, es funzt. Viel einfacher wir erst gedacht...
Herzlichen Dank. gruß, ts
TBWMeister ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.04.2019, 12:43   #11
MisterBurns
MOF Meister
MOF Meister
Standard

Gerne - aber "funzt" ist kein Wort sondern nur eine entsetzliche Vergewaltigung der deutschen Sprache.

__________________

Schöne Grüße
Berni
MisterBurns ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.04.2019, 06:15   #12
TBWMeister
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

TBWMeister ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.04.2019, 09:38   #13
Hasso
MOF Meister
MOF Meister
Standard

Zitat: von Berni

Gerne - aber "funzt" ist kein Wort sondern nur eine entsetzliche Vergewaltigung der deutschen Sprache.

Du sprichst mir aus der Seele! Mich nervt dieses "funzt" auch immer wieder.

__________________

Gruß Hasso

Programmers don't die, they just GOSUB without RETURN

System Windows 7 Enterprise 64, Office 2013
Wenn dir mein Beitrag gefallen hat, kannst du ihn bewerten (mit dem Symbol links unten)
Hasso ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.04.2019, 10:46   #14
RPP63neu
MOF Meister
MOF Meister
Standard

[off topic]
Ich bin ja auch bereits etwas älter, aber ich sehe hier keine Probleme.
Wenn ich sehe, welche Begriffe aus der Jugend- oder Umgangssprache mittlerweile (berechtigt) Einzug in den Duden gehalten haben …
Dürfte nur eine Frage der Zeit sein bis dort steht:
funktionieren, Verb (auch: funzen)

Schlimm finde ich hingegen den Pseudo-Anglizismus Handy!
Sag das mal einem Engländer, der hinterfragt mindestens zweimal, was Du meinst.
[/off topic]

__________________

Meine Logik war nicht fehlerhaft, nur meine Interpretation!
Tuvok
RPP63neu ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.04.2019, 11:28   #15
TBWMeister
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Mahlzeit Leute,
herzlichen Dank für die rege Beteiligung.
Kann mir bitte jemand nochmal einen Hinweis geben, wie ich der Spalte "L:L" noch einen Zellblock "A55:E63" hinzufügen kann.
Gruß ts
TBWMeister 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 23:58 Uhr.



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

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