Zahlen hochzählen



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Zahlen hochzählen
von: Rolf St
Geschrieben am: 23.06.2002 - 10:02:13

Hallo !
Ich möchte ein Makro erweitern. Immer wenn in Spalte D ein Wert geschrieben wird soll in Spalte A eins höher gezählt werden.

Besispiel: Eintrag in Zelle D1, dann soll in A1 eine 1 stehen
Eintrag in Zelle D2, dann soll in A2 eine 2 stehen usw.

Vielen Dank für eure Hilfe!

Tschüß
Rolf

nach oben   nach unten

Re: Zahlen hochzählen
von: Hajo_Zi
Geschrieben am: 23.06.2002 - 10:04:20

Hallo Rolf

schrebe doch in Spalte A folgende Formel

=Wenn(D1<>"";Zeile();"")

Gruß Hajo


nach oben   nach unten

Re: Zahlen hochzählen
von: Rolf St
Geschrieben am: 23.06.2002 - 10:12:34

Hallo Hajo,
mit einer Formel habe ich das jetzt auch gelöst, möchte aber meine Datei vergleinern, das sie wieder auf eine Diskette paßt.

Tschüß
Rolf


nach oben   nach unten

mit VBA
von: MikeS
Geschrieben am: 23.06.2002 - 17:25:49

Hallo Rolf,

so müßte es klappen:


Sub Zähler()
  Dim Zähler As Long
  Dim Zeile As Long
  Zeile = Cells(Rows.Count, 4).End(xlUp).Row
  Zähler = 1
    For Zeile = 1 To Zeile
      If IsEmpty(Cells(Zeile, 4)) Then
      Cells(Zeile, 4).Offset(1, 0).Select
      Else
      Cells(Zeile, 4).Offset(0, -3).Value = Zähler
      Zähler = Zähler + 1
      End If
    Next Zeile
End Sub

Ciao MikeS

nach oben   nach unten

Codeergänzung
von: MikeS
Geschrieben am: 23.06.2002 - 17:33:35

Hallo Rolf,

füge über For Zeile = 1 To Zeile

die Codezeile Range("A:A").Clear ein, damit bei Codestart
alle bisherigen Zählaktionen in Spalte A wieder gelöscht werden.

Ciao MikeS

nach oben   nach unten

Re: Codeergänzung
von: Rolf St
Geschrieben am: 24.06.2002 - 17:13:15

Hallo Mike,
vielen Dank für deine Hilfe!

Tschüß
Rolf


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zahlen hochzählen"