Tageszähler per Button

Forumthread: Tageszähler per Button
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Tageszähler per Button

22.01.2015 17:02:03

Savarol

Hallo Zusammen,
ich möchte tägliche Ereignisse zählen. Und das am liebsten mit einer Excel-Tabelle. In der Zeile 1 solle die Daten stehen. B1=22.01. C1=23.01... In der A2 soll eine Schaltfläche sein, die wenn ich heute draufklicke in der B2 eins hoch zählt, wenn ich morgen draufklicke in der C2 um eins hochzählt, usw.
Könnt ihr mir da VBA-technisch bitte unter die Arme greifen. Danke.
cu Savarol

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tageszähler per Button

22.01.2015 17:10:17

Klaus
AW: Tageszähler per Button

22.01.2015 17:22:01

Savarol
Danke für die Rückmeldung! Hier noch ...

22.01.2015 17:28:01

Klaus

AW: Tageszähler per Button

22.01.2015 17:10:17

Klaus

Hi,

Private Sub CommandButton1_Click()
Range("A1").EntireRow.Find(Date).Offset(1, 0).Value = Range("A1").EntireRow.Find(Date).Offset(1, _
0).Value + 1
End Sub

Grüße,
Klaus M.vdT.

AW: Tageszähler per Button

22.01.2015 17:22:01

Savarol

Sooo einfach und sooo schnell. Recht herzlichen Dank.
cu Savarol

Danke für die Rückmeldung! Hier noch ...

22.01.2015 17:28:01

Klaus

... eine etwas verbesserte Version, die auch Fehler abfängt und nicht gleich das Makro crasht:

Private Sub CommandButton1_Click()
Const DatumZeile As Long = 1         'Datums stehen in Zeile 1
Const WerteZeile As Long = 2         'Werte stehen in Zeile 2
Dim rNeu As Range
If WorksheetFunction.CountIf(Range("A" & DatumZeile).EntireRow, Date) = 0 Then
MsgBox ("Datum noch nicht in Zeile " & DatumZeile & " eingetragen!")
Else
Set rNeu = Range("A" & DatumZeile).EntireRow.Find(Date).Offset(WerteZeile - DatumZeile, 0)
If Not IsNumeric(rNeu.Value) Then
MsgBox ("Es dürfen nur Zahlen in der Zählzelle stehen! In " & rNeu.Address & " steht  _
momentan " & rNeu.Value)
Else
rNeu.Value = rNeu.Value + 1
End If
End If
End Sub

Grüße,
Klaus M.vdT.