Thema Datum  Von Nutzer Rating
Antwort
19.01.2017 08:23:23 Gast51094
NotSolved
19.01.2017 08:41:15 Gast89376
NotSolved
19.01.2017 09:06:52 Gast8255
NotSolved
Blau RESET: Zähler bei Jahreswechsel
 19.01.2017 13:32:00 Gast85860
Solved
19.01.2017 16:39:24 Gast87868
NotSolved
19.01.2017 17:11:22 Gast55818
NotSolved
20.01.2017 07:40:29 Gast90138
NotSolved
20.01.2017 08:08:16 Gast11610
Solved

Ansicht des Beitrags:
Von:
Gast85860		 Datum:
19.01.2017 13:32:00		 Views:
630		 Rating:
     
Antwort:
 Nein
Thema:
RESET: Zähler bei Jahreswechsel

Hallo,

 

naja, wenn du erst das neue Jahr in die Zelle schreibst, dann kannst du natürlich schlecht prüfen ob sich das jahr ändert.

Du mußt also erst prüfen, und dann entscheiden.

 

Sub hochzaehlen()
Dim x As Workbook
Dim c1 As Range
Dim c2 As Range

Set x = ActiveWorkbook
Set c1 = x.Sheets("Tabelle1").Cells(2, 2)
Set c2 = x.Sheets("Tabelle2").Cells(2, 1)

If c2.Value = Year(Date) Then
    c1.Value = c1.Value + 1
Else
    c1.Value = 1
    c2 = Year(Date)
End If


End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
19.01.2017 08:23:23 Gast51094
NotSolved
19.01.2017 08:41:15 Gast89376
NotSolved
19.01.2017 09:06:52 Gast8255
NotSolved
Blau RESET: Zähler bei Jahreswechsel
 19.01.2017 13:32:00 Gast85860
Solved
19.01.2017 16:39:24 Gast87868
NotSolved
19.01.2017 17:11:22 Gast55818
NotSolved
20.01.2017 07:40:29 Gast90138
NotSolved
20.01.2017 08:08:16 Gast11610
Solved