Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Hochzählen wenn in Zelle ein Eintrag

Forumthread: Hochzählen wenn in Zelle ein Eintrag

Hochzählen wenn in Zelle ein Eintrag
14.11.2005 08:51:25
Andre´
Hallo alle zusammen,
ich möchte gern, dass wenn in der Spalte A etwas steht, dass dann in der Spalte B nach oben gezählt wird. Also z.B. in der Zelle A2 ist der erste Eintrag, dann soll in Zelle B2 eine 1 stehen, ist in der Zelle A3 ein Eintrag, dann soll in der Zelle B3 eine 2 stehen, Zelle A4 kein Eintrag, dann Zelle B4 auch kein Eintrag. Sobald die nächste Zelle in der Spalte A mit Werten vorhanden ist, dann soll weiter gezählt werden.
Hat jemand eine Idee, wie ich das lösen kann:
Dankle im voraus!
MFG
Andre
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hochzählen wenn in Zelle ein Eintrag
14.11.2005 09:16:42
Heiko S.
Hallo Andre,
z.B. mit dieser Formel, in Zelle B2 und dann die Formel "nach unten ziehen" soweit wie du sie brauchst.
=WENN(A2<>"";ANZAHL($A$1:A2);"")
Gruß Heiko
PS: Rückmeldung wäre nett !
AW: Hochzählen wenn in Zelle ein Eintrag
14.11.2005 10:42:46
Walter
Guten Morgen Anfre´,
in der Anlage drei verschiedene fortzählarten!
https://www.herber.de/bbs/user/28366.xls
Gruß
Rentner Walter
aus dem nördlichen Nordhessen
Bitte um Antwort, ich freue sehr!
Anzeige
AW: Hochzählen wenn in Zelle ein Eintrag
14.11.2005 14:06:21
Andre´
Hallo,
danke für die Meldungen. Heiko, die Formel funktioniert bestens ich muss blos Anzahl2 nehmen. Hat noch jemand eine Idee wie ich dass mit einen Makro lösen kann.
MFG
Andre
AW: Hochzählen wenn in Zelle ein Eintrag
14.11.2005 15:44:59
Heiko S.
Hallo Andre,
z.B. so:

Sub AnzahlAusgaben()
Dim rngA As Range
Dim lngcounter   As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
For lngcounter = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
If Cells(lngcounter, 1) <> "" Then
Set rngA = Range(.Cells(1, 1).Address, .Cells(lngcounter, 1).Address)
Cells(lngcounter, 1).Offset(0, 1).Value = Application.WorksheetFunction.CountA(rngA)
Set rngA = Nothing
End If
Next lngcounter
End With
Application.ScreenUpdating = True
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige
Danke!!
14.11.2005 19:56:44
Andre´
Hallo Heiko,
tausend DANK!!! funktioniert prima, damit kann ich mehr anfangen, weil dann in den Leerzellen nichts enthalten ist als bei den Formeln!

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige