Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro für Schaltfläche, bei Klick = plus 1

Makro für Schaltfläche, bei Klick = plus 1
10.01.2006 10:12:49
wolfgang
Liebe Profis
möchte bei Klick auf einer Schaltfläche (Z.B. Button1 auf Tabelle 1), dass in Tabelle 2, Zelle z.B. A1 jeweils bei Klick eins dazuaddiert wird - Button fungiert quasi als Zähler. Habe viele Buttons die jeweils in den zugeteilten Zellen eins addieren sollten.
Herzlichen Dank für Eure Hilfe.
Gruss Wolfgang

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro für Schaltfläche, bei Klick = plus 1
ransi
hallo
versuchs mal so:

Private Sub CommandButton1_Click()
Sheets("Tabelle2").[a1] = Sheets("Tabelle2").[a1] + 1
End Sub

ransi
AW: Makro für Schaltfläche, bei Klick = plus 1
10.01.2006 10:23:49
Heribert
Hallo Wolfgang,
hier auch noch mein Vorschlag mit Fehlerbehandlung,
wenn keine Zahl in der Zelle steht.
Gruss
Heribert

Private Sub CommandButton1_Click()
If IsNumeric(Sheets("Tabelle1").Cells(1, 1).Value) Then
Sheets("Tabelle1").Cells(1, 1).Value = Sheets("Tabelle1").Cells(1, 1).Value + 1
Else
Exit Sub
End If
End Sub

AW: Makro für Schaltfläche, bei Klick = plus 1
10.01.2006 10:28:59
Heribert
Hallo Wolfgang,
muss korrigieren, sollte Tabelle2 heissen

Private Sub CommandButton1_Click()
If IsNumeric(Sheets("Tabelle2").Cells(1, 1).Value) Then
Sheets("Tabelle2").Cells(1, 1).Value = Sheets("Tabelle2").Cells(1, 1).Value + 1
Else
Exit Sub
End If
End Sub

Gruss
Heribert
Anzeige
AW: Herzlichen Dank für die Lösungen
10.01.2006 10:50:38
wolfgang
...
beide Vorschläge funktionieren so wie ich es brauch. Vielen Dank für eure Hilfe und euer Engagement.
Lieber Gruss Wolfgang

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige