Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1784to1788
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1784to1788
1784to1788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Click Zähler für bestimmten Button

VBA Click Zähler für bestimmten Button
12.10.2020 17:00:54
Dieter(Drummer)
Guten Tag Spezialisten/-innen.
Wie muss der Code lauten, damit nur für diesen Button "img1" der Click Zähler zählt?
Da auf der Userform mehrere Button mit Click Zähler sind, soll auch der Zähler nur für jeden geklickten Button gezählt werden.
Mit der Bitte um Hilfe, grüßt
Dieter(Drummer)
Code Muster für 2 Buttons (img1 und img2) 
Public cnt As Long
Private Sub img1_Click()
Label1 = Label1.Caption + CLng(img1.Tag) 'Plus
img1a.ZOrder msoBringToFront 'Herber: von Herbert_Grom am 02.10.2020 16:58:10
'Klick Zähler
cnt = cnt + 1
Label3.Caption = cnt
End Sub
Private Sub img2_Click()
Label1 = Label1.Caption + CLng(img2.Tag)
img2a.ZOrder msoBringToFront 'Herber: von Herbert_Grom am 02.10.2020 16:58:10
'Klick Zähler
cnt = cnt + 1
Label4.Caption = cnt
End Sub

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Click Zähler für bestimmten Button
12.10.2020 17:13:21
Daniel
Hi
in dem Fall ist cnt in jedem Makro die selbe Variable (und nicht nur die mit dem gleichen Namen)
du brauchst jetzt für jedes Label ein eingenes cnt.
dh für Label1 dann cnt1, für Label2 dann cnt2 usw.
das ist ja der Grund, warum ich dir vorgeschlagen habe, auf die Variablen zu verzichten und nur mit LabelCapitons zu arbeiten.
beim Label1 hast du das ja schon gemacht, warum nicht auch bei den anderen. Dann brauchst du kein cnt mehr.
Gruß Daniel
AW: VBA Click Zähler für bestimmten Button
12.10.2020 17:34:52
Dieter(Drummer)
Danke Daniel für Info.
Leider bin ich nicht so fit in VBA. Ich weiss nicht, wo bzw. wie ich in Label1 "cnt1" und in Label2 "cnt2" einbinden kann.
Wäre toll, wenn Du nochmal helfen könntest. Mein bisherige Musterdatei zu besseren Übersicht anbei:
https://www.herber.de/bbs/user/140839.xlsm
Mit Gruß,
Dieer(Drummer)
Anzeige
AW: VBA Click Zähler für bestimmten Button
12.10.2020 17:43:53
Daniel
so wie du es mit cnt auch gemacht hast.
nur halt für jedes Label eine eigene Variable.
ist nicht so schwer.
AW: VBA Click Zähler für bestimmten Button
12.10.2020 18:04:05
Dieter(Drummer)
Hallo Daniel,
für dich sicher nicht schwer, aber ich kriege das einfach nicht hin.
Hättest Du ein Musterbeispiel, z.B, für Label1 und in welchen Code kommt es dann? Unter Code "img1" oder in "Label1"?
Gruß, Dieter(Drummer)
PS Ich weiss, ich hab noch viel zu lernen.
AW: VBA Click Zähler für bestimmten Button
12.10.2020 18:34:40
Daniel
nee Dieter "noch viel zu lernen" ist dein Problem.
Hirn einschalten und Mitdenken ist manchmal noch viel wichiter als einfaches "lernen".
also nochmal ein Beispiel:
Option Explicit
Public cnt1 as Long
Public cnt2 as Long
Public cnt3 As Long
usw für jeden Button eine Zählervariable
'Imgages aus Userform mit Klick an aus - Herber: von Herbert_Grom am 02.10.2020 16:58:10
Private Sub img1_Click() 'MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As  _
Single, ByVal Y As Single)
Label1 = Label1.Caption + CLng(img1.Tag) 'Plus
img1a.ZOrder msoBringToFront 'Herber: von Herbert_Grom am 02.10.2020 16:58:10
'Klick Zähler
cnt3 = cnt3 + 1
Label3.Caption = cnt3
End Sub
entsprechend dann mit den anderen Variablen für die anderen Buttons.
und noch ein Tip: steck nicht soviel zeit in die hübsche Optik, sondern mach das erstmal mit ganz einfachen Buttons.
Es ist besser, eine Sache sieht anfängermäßig aus und funktioniert dafür ordentlich, als wenn es professionell aussieht und dann nicht funktioniert.
Gruß Daniel
Anzeige
AW: VBA Click Zähler für bestimmten Button
12.10.2020 18:46:04
Dieter(Drummer)
Herzlichen Dank Daniel.
Diese Variante war mir klar: 
cnt3 = cnt3 + 1
Label3.Caption = cnt3

Mit fehlte aber: 
Public cnt1 As Long
Public cnt2 As Long
Public cnt3 As Long

usw.
Nochmals Danke und es hat mir sehr geholfen.
Noch einen angenehmen Abend.

Links zu Excel-Dialogen

Label UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige