Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
188to192
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
188to192
188to192
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

variable zurücksetzen bei monatswechsel

variable zurücksetzen bei monatswechsel
04.12.2002 15:09:03
Steffen
ich möchte einen zähler in mein tabellenblatt intergrieren, der mittels makroschaltfläche von hand aktiviert wird. dieser soll dann bis monatsende fortlaufend hochzählen und im neuen monat wieder bei 1 beginnen.
wenn ich hier den monatsersten zum vergleich heranziehe, habe ich das problem, daß, wenn ich erst am 5. loszähle, sich der zähler im neuen monat nicht zurücksetzt bzw. am 1. des monats der zähler gar nicht funzt, da er ja immer auf 1 gesetzt ist.
nun habe ich versucht den monat des letzten speicherdatums mit dem aktuellen monat zu vergleichen - weiss aber nicht, ob das so funzt. und dann habe ich immer noch das problem, dass der zähler nicht von neuem beginnt hochzuzählen.

Sub Zähler()
'
'
Dim lngHilfsvariable1 As Long
Dim daHilfsvariable2 As Date
Dim daHilfsvariable3 As Date

strdateiname = ActiveWorkbook.Name


Workbooks("Personl.xls").Activate
Workbooks("Personl.xls").Sheets(1).Range("A1").Select
ActiveSheet.Unprotect
ActiveCell = ActiveCell + 1
lngHilfsvariable1 = ActiveCell

ActiveCell.Offset(2, 0).Select
sdatum = ActiveWorkbook.BuiltinDocumentProperties("last save time")
ActiveCell = sdatum
daHilfsvariable2 = sdatum
daHilfsvariable3 = Date
If Month(daHilfsvariable2) <> Month(daHilfsvariable3) Then A1 = 1
' jetzt irgendwie die Monate vergleichen und von neuem loszählen

ActiveSheet.Protect

Workbooks("Personl.xls").Save

Workbooks(strdateiname).Activate
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 150, 150, 80, 100).Select
Selection.Characters.Text = lngHilfsvariable1
Selection.HorizontalAlignment = xlCenter


'
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: variable zurücksetzen bei monatswechsel
04.12.2002 17:35:28
Sigi E.
Hallo Steffen,

vermeide Befehle wie Select oder Activate. Dann kann die
"Personl.xls" auch ausgeblendet geöffnet werden. Zur Pflege der
laufenden Nr muss sie nicht sichtbar zu sein.

Vorschlag: Plege die lfdNr für jeden Monat (A1:A12). Jetzt muss
nur die lfdNr des aktuellen Monats um 1 erhöht werden. Alle
anderen können auf 0 gesetzt werden. (Evtl. die lfdNr des Vor-
monats aus dokumentarischen Gründen noch stehen lassen).

Gruß
Sigi

Re: Kleine Korrektur im Code
04.12.2002 17:41:18
Sigi E.

Gruß
Sigi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige