Anzeige
Archiv - Navigation
748to752
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
748to752
748to752
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zelle hochzählen

Zelle hochzählen
29.03.2006 15:03:25
detleffranz
Hallo,
ich möchte in Zelle C5 bei jedem Click
auf den Button um 1 hochzählen lassen.
Bei 60 soll wieder mit 1 begonnen werden.
Bei meinem Code läuft es durch bis 60.
Wo ist der Fehler.
Gruss Detlef

Private Sub CommandButton1_Click()
For i = 1 To 60
Range("c5") = i
Next i
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle hochzählen
29.03.2006 15:07:37
u_
Hallo,

Private Sub CommandButton1_Click()
With Range("c5")
if .value<60 then
.value=.value+1
else
.value=1
End If
End With
End Sub

Gruß
Geist ist geil!
AW: Zelle hochzählen
29.03.2006 15:19:40
detleffranz
Besten Dank !
funktioniert.
AW: Zelle hochzählen
29.03.2006 15:14:08
Reinhard
Hi Detlev,
Option Explicit
Private Sub CommandButton1_Click()
Range("c5") = Range("c5") + 1 + 60 * (Range("c5") = 60)
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige