Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Mark_tp vom 03.06.2020, 15:15 Options
Schaltfläche in Excel einbinden?
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!!!
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 vom 03.06.2020, 15:19 Options
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 vom 04.06.2020, 10:18 Options
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 vom 04.06.2020, 11:32 Options
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 vom 05.06.2020, 10:18 Options
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!
Ähnliche Themen
DOS Batch in Excel Makro einbinden
Ric 01.02.2007 - 114 Hits - 1 Antwort
schaltfläche "ein- und ausbleden" ???
honey_ 05.09.2007 - 25 Hits -
XLA Add-In fest einbinden in Excel 2003
Biene1984 12.10.2007 - 131 Hits - 1 Antwort
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
