Commandbutton click

Forumthread: Commandbutton click

Commandbutton click

16.03.2015 09:46:07

Mathias

Hallo habe folgendes problem ich möchte das in folgenden zeilen im +1 gerechnet wird wenn folgende bedingung erfüllt ist funktioniert aber nicht wo ist mein fehler :(
Er zählt schon +1 wenn ich alle togglebutton aktiviert habe :( und senn ich den commandbutton clicke nochmal

Private Sub CommandButton1_Click()
If ToggleButton1 = True And ToggleButton7 = True And ToggleButton13 = True And CommandButton1=
click Then
Range("C7").Value = Range("C7").Value + 1
End If
If ToggleButton1 = True And ToggleButton7 = True And ToggleButton13 = True And  _
CommandButton1 = click Then
Range("I9").Value = Range("I9").Value + 1
End If
End Sub



Private Sub ToggleButton7_Click()

If ToggleButton1 = True And ToggleButton7 = True And ToggleButton13 = True And 

CommandButton1 = click Then

Range("C7").Value = Range("C7").Value + 1

End If

If ToggleButton1 = True And ToggleButton7 = True And ToggleButton13 = True And 

CommandButton1 = Click Then

Range("I9").Value = Range("I9").Value + 1

End If

End Sub



Private Sub ToggleButton13_Click()

If ToggleButton1 = True And ToggleButton7 = True And ToggleButton13 = True And CommandButton1 =

Click Then

Range("C7").Value = Range("C7").Value + 1

End If

If ToggleButton1 = True And ToggleButton7 = True And ToggleButton13 = True And CommandButton1 =

click Then

Range("I9").Value = Range("I9").Value + 1

End If

End Sub

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Commandbutton click

16.03.2015 09:58:06

EtoPHG
AW: Commandbutton click

16.03.2015 10:18:51

Matthias

AW: Commandbutton click

16.03.2015 09:58:06

EtoPHG

Hallo Mathias,
Ich habe folgende Probleme:
Ich verstehe dein Problem nicht. Kannst du auch einfache, deutsche Sätze formulieren?
Gibt es auch auf Deiner Tastatur Tasten für Satzzeichen und eine Umschalttaste für Gross/Kleinschreibung? Warum benutzt sie nicht?
Was willst Du von uns beantwortet haben?
Ich biete folgende Lösungansätze:
Formuliere deine Problemstellung, so dass man sie versteht.
Lade ggf. eine Beispielmappe zur Anfrage. Das hilft oft, das Problem besser zu verstehen.
Benutze als 1 Codezeile in allen Modulen die Anweisung Option Explicit. Damit hilft dir der Compiler schon Fehler zu finden. Was zum Geier soll z.B. die Bedingung CommandButton1 = click . Ich kann mir nicht im entferntesten vorstellen, was du da prüfen willst!
Gruess Hansueli

AW: Commandbutton click

16.03.2015 10:18:51

Matthias

Hallo

Option Explicit
Private Sub CommandButton1_Click()
With Tabelle1
If .ToggleButton1 And .ToggleButton7 And .ToggleButton13 Then
.Range("C7") = .Range("C7") + 1
.Range("I9") = .Range("I9") + 1
End If
End With
End Sub

https://www.herber.de/bbs/user/96387.xlsm
Gruß Matthias

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um einen CommandButton in einem Excel VBA Userform zu verwenden, folge diesen Schritten:

Öffne den VBA-Editor:
- Drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge einen Userform hinzu:
- Klicke mit der rechten Maustaste auf dein Projekt und wähle Einfügen > Userform.
Füge einen CommandButton hinzu:
- Wähle den CommandButton aus der Toolbox und ziehe ihn in die Userform.
Benenne den CommandButton:
- Wähle den CommandButton aus und ändere die Name-Eigenschaft in CommandButton1.
Ereignis erstellen:
- Doppelklicke auf den CommandButton, um den VBA-Code-Editor zu öffnen. Der Code für das Click-Ereignis könnte so aussehen:
```
Private Sub CommandButton1_Click()
   'Code hier einfügen
End Sub
```
Füge Logik hinzu:
- Implementiere die gewünschte Logik, um beispielsweise Werte in bestimmten Zellen zu erhöhen.

Häufige Fehler und Lösungen

Fehler: CommandButton1 = click

Lösung: Diese Zeile ist falsch. Du solltest einfach die Bedingung für den ToggleButton prüfen, ohne den CommandButton in die Bedingung einzubeziehen.

Fehler: Variablen nicht deklariert

Lösung: Füge Option Explicit am Anfang deines Codes hinzu, um sicherzustellen, dass alle Variablen deklariert sind.

Fehler: ToggleButtons werden nicht korrekt erkannt

Lösung: Stelle sicher, dass die ToggleButtons in der Userform korrekt benannt sind und keine Tippfehler in den Namen vorhanden sind.

Alternative Methoden

Es gibt verschiedene Möglichkeiten, einen CommandButton in Excel VBA zu verwenden:

Direkte Zelländerungen:
- Anstatt die Werte in einer Userform zu erhöhen, könntest du die Logik direkt in ein Arbeitsblatt einfügen.
Verwendung von Application.WorksheetFunction:
- Du kannst auch Excel-Funktionen direkt in deinem VBA-Code verwenden, um Berechnungen durchzuführen.

Praktische Beispiele

Hier ist ein einfaches Beispiel, wie du den CommandButton1_Click Code implementieren kannst:

Private Sub CommandButton1_Click()
    If ToggleButton1.Value And ToggleButton7.Value And ToggleButton13.Value Then
        Range("C7").Value = Range("C7").Value + 1
        Range("I9").Value = Range("I9").Value + 1
    End If
End Sub

In diesem Beispiel wird der Wert in Zelle C7 um 1 erhöht, wenn alle drei ToggleButtons aktiviert sind.

Tipps für Profis

Nutzung von With-Anweisungen: Verwende With-Anweisungen, um deinen Code zu verkürzen und die Lesbarkeit zu verbessern.
Debugging: Verwende Debug.Print, um Werte während der Ausführung deines Codes zu überprüfen und Fehler leichter zu finden.
Vermeide globale Variablen: Halte deine Variablen lokal, um den Code wartbarer zu machen.

FAQ: Häufige Fragen

1. Wie kann ich einen CommandButton aus einer anderen Subroutine aufrufen? Du kannst den CommandButton durch einen einfachen Aufruf der Subroutine aktivieren, z.B. Call CommandButton1_Click.

2. Was ist der Unterschied zwischen Click und DblClick? Click wird ausgeführt, wenn der Button einmal angeklickt wird, während DblClick für doppelte Klicks verwendet wird.

3. Wie kann ich einen CommandButton deaktivieren? Setze die Enabled-Eigenschaft des CommandButtons auf False:

CommandButton1.Enabled = False

Beliebteste Forumthreads (12 Monate)