Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Image
BildScreenshot zu Image Image-Seite mit Beispielarbeitsmappe aufrufen

geht das? tollbar checkbox | Herbers Excel-Forum


Betrifft: geht das? tollbar checkbox von: Dirk
Geschrieben am: 04.01.2010 09:32:46

Hallo zusammen ich brauch mal eure hilfe ich komm da echt nicht weiter.

ich möchte oben in der Symbolleiste (wo auch speichern, öffnen und so ist) ein Kästchen generieren, dass bei anklicken seinen Status ändern soll (Häcken rein/raus von ja/nein o.Ä.) mehr soll an dieser Stelle ersteinmal nicht passieren.

des weiteren stellt sich dann bei mir die Frage wie frag ich in einem Makro den Status ab (true/fals)

kurz zum hintergrund der ganzen Aktion

ich hab eine ganze Reihe an Makros die mir in Word und Excel verschiedene Formatierungen vornehmen.
jedes dieser Makros ist mit einem Druckbefehl ausgestattet.
einige Leute die damit nicht so häufig arbeiten aktivieren häufig das falsche Makro
um also Mengen an Papier zu spahren brauche ich diese Funktion

Vielen Dank erstmal

  

Betrifft: AW: geht das? tollbar checkbox von: Klaus-Dieter
Geschrieben am: 04.01.2010 09:41:54

Hallo Dirk,

man könnte versuchen, da mit einem AddIn mehr Übersicht hinein zu bekommen. Es ist auch möglich, einen eigenen Menüpunkt zu erstellen. Den Versuch dort Checkboxen zu installieren habe ich noch nicht gemacht. Eventuell würdest du da mit einem UserForm weiter kommen.



Viele Grüße Klaus-Dieter

Klaus-Dieter's Excel und VBA Seite
Online-Excel



  

Betrifft: AW: geht das? tollbar checkbox von: Rudi Maintaire
Geschrieben am: 04.01.2010 12:03:31

Hallo,
eine Checkbox als Commandbarcontroll gibt es nicht.
Evtl so
In ein Modul:

Public Const cstrMyButton As String = "MeinButton"

Sub addControl(Optional blnAdd As Boolean = True)
  Dim myCmd As CommandBarButton
  On Error Resume Next
  Application.CommandBars("Standard").FindControl(Tag:=cstrMyButton).Delete
  On Error GoTo 0
  If blnAdd Then
    Set myCmd = Application.CommandBars("Standard").Controls.Add
    With myCmd
      .Caption = "Aus"
      .Style = msoButtonIconAndCaption
      .OnAction = "EinAus"
      .Tag = cstrMyButton
      .BeginGroup = True
      .Width = 50
    End With
  End If
End Sub

Sub EinAus()
  Dim myCmd As CommandBarButton
  Set myCmd = Application.CommandBars("Standard").FindControl(Tag:=cstrMyButton)
  With myCmd
    If .Caption = "Ein" Then
      .Caption = "Aus"
      .FaceId = 1
    Else
      .Caption = "Ein"
      .FaceId = 990
    End If
  End With
End Sub

In DieseArbeitsmappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  addControl False
End Sub

Private Sub Workbook_Open()
  addControl True
End Sub

Gruß
Rudi


  

Betrifft: AW: geht das? tollbar checkbox von: Dirk
Geschrieben am: 04.01.2010 13:04:10

Hallo Klaus-Dieter
was meinst du mit Addon??? gibt es Addons die man komplett selber erstellen kann?

Hey Rudi Maintaire
Danke ersteinmal für das skript. ich steig da aber nicht ganz durch in dem ersten abschnitt sollte der doch ein fenster o.Ä. generieren wenn ich das verstehe was da steht.
ausführbar ist ja nur ein/aus und da läuft ein Error auf.

Dank euch beiden


  

Betrifft: AW: geht das? tollbar checkbox von: Rudi Maintaire
Geschrieben am: 04.01.2010 13:23:58

Hallo,
1. Addins kann man selbst erstellen. Ist eine (fast) normale Arbeitsmappe.
2. In der Symbolleiste 'Standard' wird ein neuer Button erzeugt.
Wahrscheinlich habe ich eine Eigenschaft angesprochen, die es unter 97 nicht gibt. Kann ich auch nicht testen. Bei 'Ein' soll zusätzlich ein Haken erscheinen, bei 'Aus' nicht.

Gruß
Rudi


  

Betrifft: AW: geht das? tollbar checkbox von: Dirk
Geschrieben am: 04.01.2010 13:45:50

If .Caption = "Ein" Then

hier hängt er sich auf.
ein kästchen oder so hat er da noch nicht erstellt


  

Betrifft: AW: geht das? tollbar checkbox von: Dirk
Geschrieben am: 04.01.2010 13:34:16

If .Caption = "Ein" Then

an der stelle läuft er auf

ein Schaltfeld hat er aber noch nicht generiert



als Addin das zu lösen geht ja auch nicht da ich ja egal ob Vorlage oder nicht kein "Häckchen" setzten kann


  

Betrifft: AW: geht das? tollbar checkbox von: Petra
Geschrieben am: 04.01.2010 14:20:35

Hi Dirk

Also bei mir funktioniert Rudis Code, beachte: das ganze funzt nur beim Öffnen und schliessen der Datei!

Grüße Petra


  

Betrifft: AW: geht das? tollbar checkbox von: Dirk
Geschrieben am: 04.01.2010 14:50:10

Juchu etwas bastelei und es geht office 97 kommt mit dem hier nicht klar

Sub addControl(Optional blnAdd As Boolean = True)

ansonsten läufts

Danke vielmals


  

Betrifft: Iss ja tool...! ;-) Gruß owT von: Luc:-?
Geschrieben am: 04.01.2010 18:19:50

:-?


Beiträge aus den Excel-Beispielen zum Thema "geht das? tollbar checkbox"