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

Hochzählen wenn in Zelle ein Eintrag

Hochzählen wenn in Zelle ein Eintrag
14.11.2005 07: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

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 08: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 09: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!
AW: Hochzählen wenn in Zelle ein Eintrag
14.11.2005 13: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
Anzeige
AW: Hochzählen wenn in Zelle ein Eintrag
14.11.2005 14: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 18: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!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige