Supportnet / Forum / Tabellenkalkulation
Schaltfläche in Excel einbinden?
Frage
Hi,
ich probier scho ewig an etwas rum,aber ich kriegs nich hin.
Mein Problem: ich habe ein excel-sheet erstellt. In dem befinden sich mehrere schaltflächen. Und ich möchte, dass jedes mal wenn man auf auf eine dieser schaltflächen klickt, im Feld daneben +1 gerechnet werden. Also die Zahl im Feld daneben soll sich bei jedem mal klicken um 1 erhöhen.
Wie krieg ich das hin?? Wär cool wenn ihr mir da helfen könntet.
Danke!!!
Antwort 1 von Hajo_Zi
Hallo Mark,
ich hätte das mit doppelklick in der Zelle gelöst. Folgenden Code unter die Tabelle.
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' Spalte J Zeile 2 bis 15
If Target.Column = 10 And Target.Row >= 2 And Target.Row <= 15 Then
Target = Target + 1
Cancel = True
ThisWorkbook.Save
End If
End Sub
Gruß Hajo
ich hätte das mit doppelklick in der Zelle gelöst. Folgenden Code unter die Tabelle.
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' Spalte J Zeile 2 bis 15
If Target.Column = 10 And Target.Row >= 2 And Target.Row <= 15 Then
Target = Target + 1
Cancel = True
ThisWorkbook.Save
End If
End Sub
Gruß Hajo
Antwort 2 von Mark_tp
Hm? leider klappt bei mir igendwie nich.
Wieso nimmst du " Spalte J Zeile 2 bis 15"?
Es soll ja bei anklicken der schaltfläche immer nur im feld daneben +1 gerechnet werden.
Wieso nimmst du " Spalte J Zeile 2 bis 15"?
Es soll ja bei anklicken der schaltfläche immer nur im feld daneben +1 gerechnet werden.
Antwort 3 von Hajo_Zi
Hallo Mark,
ersetze
If Target.Column = 10 And Target.Row >= 2 And Target.Row <= 15 Then
Target = Target + 1
durch
Target.Offset(0,1) = Target.offset(0,1) + 1
dann wird die Zelle neben der Zelle in der man geklickt hat um 1 erhöht. Warum DU nicht in die Zelle klickst die erhöht werden soll ist mir schleierhaft.
Gruß Hajo
ersetze
If Target.Column = 10 And Target.Row >= 2 And Target.Row <= 15 Then
Target = Target + 1
durch
Target.Offset(0,1) = Target.offset(0,1) + 1
dann wird die Zelle neben der Zelle in der man geklickt hat um 1 erhöht. Warum DU nicht in die Zelle klickst die erhöht werden soll ist mir schleierhaft.
Gruß Hajo
Antwort 4 von Mark_tp
hi hajo,
das funktioniert auch kürzer:
für den Button für z.B. A1 gibt ma ein
Private Sub CommandButton1_Click()
Range("A1").Value = Range("A1").Value + 1
End Sub
Danke für deine Antwort/Lösungsvorschlag!
das funktioniert auch kürzer:
für den Button für z.B. A1 gibt ma ein
Private Sub CommandButton1_Click()
Range("A1").Value = Range("A1").Value + 1
End Sub
Danke für deine Antwort/Lösungsvorschlag!