Zähler

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 8.00
  • Zähler von Diethard vom 03.05.2002 - 17:53:04
nach unten

Betrifft: Zähler
von: Diethard
Geschrieben am: 03.05.2002 - 17:53:04

Hallo zusammen,
ich möchte wenn ich in einer Spalte Datumswerte habe
z.B.in A1: 23.03.1955 und ich den Datumswert ändere,mir in einer Kontrollspalte oder Kästchen anzeigen lassen wie oft der Wert geändert wurde.
Im Prinzip also jedesmal wenn was in A1 eingegeben wurde in A2 hochzählen 1 2 3..usw.
Kann mir jemand helfen?
Danke im vorraus

mfg
Diethard

nach oben   nach unten

Re: Zähler
von: Rolf, Lgh.
Geschrieben am: 03.05.2002 - 18:40:43

Hallo Diethard,
hier mein Vorschlag:

Option Explicit

Dim bln As Boolean
Dim intZaehler As Integer

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
  Dim rng As Range
  Set rng = Range("A1")
  If Target.Address = rng.Address Then bln = True
  If bln = True And Target.Address <> rng.Address Then
    Call MacroOut
    bln = False
  End If
End Sub

Private Sub MacroOut()
  If intZaehler = 0 Then
    intZaehler = 1
  End If
  Range("A2") = intZaehler
  intZaehler = intZaehler + 1
End Sub

Private Sub Zaehler_Neu_Setezen()
  intZaehler = InputBox("Geben Sie bitte die Startzahl ein!", _
                        "Startzahl", "1")
End Sub


Gruss Rolf
nach oben   nach unten

Re: Zähler
von: Diethard
Geschrieben am: 03.05.2002 - 23:50:39

Hallo Rolf,
vielen Dank für die schnelle Anwort ,darf ich Dir mal meine Beispieltabelle bzw Anwendung schicken damit Du sehen kannst was ich meine??
PS:brauche Emailadresse wenn Du zustimmts

gruß
Diethard

nach oben   nach unten

Re: Zähler
von: Diethard
Geschrieben am: 03.05.2002 - 23:57:40

Hallo Rolf vielen DAnk für die schnelle Anwort,
aber ich bin Anfänger wie binde ich diesen Code ein??
KAnn ich dir mal eine Beispieltabelle mailen?

mfg
Diethard


nach oben   nach unten

Re: Zähler
von: Rolf, Lgh.
Geschrieben am: 04.05.2002 - 09:51:36

Hallo Diethard,
kannst Du machen, zumal ich im Makro was vergessen habe. Schau Dir auch mal http://www.joanneum.ac.at/services/vbaexcel an.
Gruss Rolf
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Tabellenblatt kopieren, Dateigröße vermehrt sich !"