ich kenne mich im VBA leider überhaupt nicht aus und möchte aber, dass wenn ich auf einen Knopf drücke in einer bestimmten Zelle die Zahl eins auftaucht. Meine Frage ist nun wie ich das am besten machen kann.
vielen Dank im Voraus
lg Patricia
Private Sub ToggleButton1_Click()
Select Case ToggleButton1.Value
Case True
Range("E1").Value = 1
Case False
Range("E1").Value = ""
End Select
End Sub
Rechtklick unten auf den Reiter des Tabellenblattes, Code anzeigen, und dort reinkopieren.
Schönen Gruß,
Andi
Um einen Command Button in Excel zu erstellen, der beim Drücken eine bestimmte Zahl ausgibt, folge diesen Schritten:
Entwicklertools aktivieren: Gehe zu Datei
> Optionen
> Menüband anpassen
und aktiviere die Entwicklertools.
Einfügen des Command Buttons:
Einfügen
.Toggle Button
aus und ziehe ihn auf dein Arbeitsblatt.VBA-Code hinzufügen:
Code anzeigen
.Private Sub ToggleButton1_Click()
Select Case ToggleButton1.Value
Case True
Range("E5").Value = 1
Case False
Range("E5").Value = ""
End Select
End Sub
Speichern: Schließe den VBA-Editor und speichere deine Datei als Excel-Makro-fähige Arbeitsmappe (*.xlsm)
.
Jetzt wird bei jedem Drücken des Toggle Buttons die Zahl 1 in Zelle E5 ausgegeben und beim nächsten Drücken wieder entfernt.
Fehler: Der Command Button funktioniert nicht.
.xlsm
gespeichert hast und dass die Entwicklertools aktiviert sind.Fehler: Die Zahl wird nicht in der richtigen Zelle angezeigt.
Range("E5").Value = 1
korrekt ist.Wenn du keinen Toggle Button verwenden möchtest, kannst du auch einen normalen Command Button verwenden. Der Code wäre ähnlich:
Private Sub CommandButton1_Click()
If Range("E5").Value = 1 Then
Range("E5").Value = ""
Else
Range("E5").Value = 1
End If
End Sub
Hier wird die Zahl 1 gesetzt oder entfernt, je nachdem, ob bereits eine 1 in der Zelle steht.
Wenn du die Zahl 1 in einer anderen Zelle ausgeben möchtest, kannst du den Code leicht anpassen:
Private Sub ToggleButton1_Click()
Select Case ToggleButton1.Value
Case True
Range("A1").Value = 1 ' Zelle A1
Case False
Range("A1").Value = ""
End Select
End Sub
Mit diesem Code wird die Zahl 1 in Zelle A1 ausgegeben.
1. Wie kann ich den Code anpassen, um eine andere Zahl auszugeben?
Du kannst die Zahl in der Zeile Range("E5").Value = 1
einfach durch die gewünschte Zahl ersetzen.
2. Kann ich mehrere Command Buttons in einer Excel-Datei verwenden? Ja, du kannst beliebig viele Command Buttons hinzufügen und jeden individuell mit VBA-Code anpassen.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen