Hilfe: Kontrollkästchen mit zwei befehlen?

[Obermeier Andreas]

ich möchte einen kontrollkästchen zwei makros bzw. 2 befehle zuordnen
die schrift in einer zelle soll fett gedruckt werden wenn ich den hacken
setzte und wenn ich in weg mache soll es wieder normal sein.
alse 2 befehle für true oder false
kann mir jemand helfen?

--
m.f.g.
andy

[Marco Amistadi]

Hallo Andreas,

mit der Checkbox von der Steuerelemente-Toolbox kann man es so
lösen:

Checkbox einfügen, Rechte Maustaste -> Code anzeigen:

Private Sub CheckBox1_Click()
With ThisWorkbook.Worksheets(1)
If .CheckBox1 > 0 Then
.Range("A1").Font.Bold = True
Else
.Range("A1").Font.Bold = False
End if
End With
End Sub

Mit dem Kontrollkästchen aus Formular, habe ich es leider
nicht geschafft, aber da Zähle ich auf viele anderen mitleser
in dieser Gruppe.

MfG
Marco

Obermeier Andreas schrieb:

[Ulli Tolksdorf]

Hi Marco!!!

Wie gehts Dir??;)

Naja, meines wissens braucht das Formular-Kontrollkästchen eine Zelle ( unter
Steuerelement formatieren,Steuerung, Ausgabeverknüpfung) um einen Wert
zurückzugeben, so direkt per VBA kann man da nicht drauf zugreifen, da ja auch
nur ein allgemeines makro ausgelößt wird bei klick.
Aber die betreffende Zelle kann man dann ja per VBA auslesen.

bye
Ulli.

Marco Amistadi schrieb:

--
Microsoft MVP für Excel

[Obermeier Andreas]

wie kann ich eine zelle in vba auslessen?
kann mir jemand ein beispiel schicken?

--
m.f.g.
andy

[Ulli Tolksdorf]

Hi!

Das geht mit folgendem Befehl in VBA (ein kleines Codebeispiel)

Sub Testauslesen
Dim x as Variant

x = worksheets("Tabelle1").Range("A1").Value
MsgBox "Der Inhalt der Zelle ist: " & x

End Sub

bye
Ulli.

Obermeier Andreas schrieb:

--
Microsoft MVP für Excel

[Marco Amistadi]

Hallo Ulli,

Ulli Tolksdorf schrieb:

>
> Hi Marco!!!
>
> Wie gehts Dir??;)

Gut, danke. Ich hoffe Dir geht's mindestens genausogut :).

> Naja, meines wissens braucht das Formular-Kontrollkästchen
> eine Zelle ( unter Steuerelement formatieren,Steuerung,
> Ausgabeverknüpfung) um einen Wert zurückzugeben, so direkt
> per VBA kann man da nicht drauf zugreifen, da ja auch nur
> ein allgemeines makro ausgelößt wird bei klick. Aber die
> betreffende Zelle kann man dann ja per VBA auslesen.

Stimmt, hab es gerade selber mal versucht. Aber wenn das
Kontrollkästchen (Formular) auf einem Dialogblatt war (XL5),
dann konnte man es direkt ansprechen. _Da_ lag bei mir der
Hase im Pfeffer *hatschi*.

Danke Dir für die Erklärung, ich hab schon an meinem
Verstand gezweifelt ;).

> bye
> Ulli.

Sonnige und Schwimmbadmässige Grüsse aus Rothenburg

Marco

[janina....@gmail.com]

Hallo,
Ich habe ein ähnliches Problem. Ich will einem Kontrollkästchen 2 Makros hinzufügen. Wenn das Kästchen angewählt ist sollte in einer bestimmten Zelle die Zahl "80" erscheinen. Wenn ich das Kästchen jedoch wider abwähle sollte die Zahl auch wider verschwinden.

Vielen Dank für eure Hilfe.

Janina

[Claus Busch]

Hallo Janina,

Am Wed, 7 May 2014 22:28:01 -0700 (PDT) schrieb
janina....@gmail.com:

> Ich habe ein �hnliches Problem. Ich will einem Kontrollk�stchen 2 Makros hinzuf�gen. Wenn das K�stchen angew�hlt ist sollte in einer bestimmten Zelle die Zahl "80" erscheinen. Wenn ich das K�stchen jedoch wider abw�hle sollte die Zahl auch wider verschwinden.

ich sehe die Frage nicht mehr auf die du dich beziehst.
Aber f�ge ein ActiveX-Kontrollk�stchen in dein Blatt, klicke rechts auf
das K�stchen und w�hle Code anzeigen und f�ge dort folgenden Code ein:

Private Sub CheckBox1_Click()
Range("A1") = IIf(CheckBox1 = True, 80, "")
End Sub

Die Zelladresse musst du noch nach deinen W�nschen �ndern.


Mit freundlichen Gr��en
Claus
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional