Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1008to1012
1008to1012
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen zählen

Forumthread: Zeilen zählen

Zeilen zählen
09.09.2008 13:59:56
Baywatch
Ich mache eine Datei wobei nicht abzusehen ist wie lang diese ist, ist es möglich, in der Spalte A eine durchlaufende Nummer zu bekommen, wenn in der gleichen Zeile in einer anderen Spalte etwas steht, dann soll die nächste Freie Zahl vergeben werden und das am besten per VBA.
Danke und GRuß
Daniel
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen zählen
09.09.2008 14:17:29
Henner
Hi Daniel,
ohne VBA wäre das mit 

=WENN(B2="";"";A1+1)

zu lösen. Die Formel kannst du ihn A2 einfügen und dann einfach bis zum Schluss Autovervollständigen.
Gruß Henner

AW: Zeilen zählen
09.09.2008 14:21:00
Baywatch
Was meinst dumit autovervollständigen? Geht das nicht doch mit VBA?
Aber danke schon einmal
Daniel
Anzeige
AW: Zeilen zählen
09.09.2008 14:30:09
Andi
Hi,
per VBA zB so:

Sub t()
Dim zeile As Long
Dim zaehler As Long
zaehler = 1
With Sheets("Tabelle1") ' 1 Then
.Cells(zeile, 1) = zaehler
zaehler = zaehler + 1
End If
Next zeile
End With
End Sub


Schönen Gruß,
Andi

AW: sollte öfter mal...
09.09.2008 14:47:00
Hoffi
...auf aktualisieren drücken :-)
Grüße
Hoffi
Anzeige
AW: Zeilen zählen
09.09.2008 14:46:17
Hoffi
Hallo,
wenns bei Änderungen in den Spalten geschehen soll, dann so:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim merker As Long
Dim aktRow As Long
With ActiveSheet
For aktRow = 1 To .UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Target.Column > 1 Then
.Cells(aktRow, 1) = merker
merker = merker + 1
End If
Next
End With
End Sub


Grüße
Hoffi

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige