Zeilen zählen

Forumthread: Zeilen zählen
5 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Zeilen zählen

Zeilen zählen

09.09.2008 15: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

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeilen zählen

09.09.2008 16:17:29

Henner
AW: Zeilen zählen

09.09.2008 16:21:00

Baywatch
AW: Zeilen zählen

09.09.2008 16:30:09

Andi
AW: sollte öfter mal...

09.09.2008 16:47:00

Hoffi
AW: Zeilen zählen

09.09.2008 16:46:17

Hoffi

AW: Zeilen zählen

09.09.2008 16: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 16:21:00

Baywatch

Was meinst dumit autovervollständigen? Geht das nicht doch mit VBA?
Aber danke schon einmal
Daniel

AW: Zeilen zählen

09.09.2008 16: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 16:47:00

Hoffi

...auf aktualisieren drücken :-)
Grüße
Hoffi

AW: Zeilen zählen

09.09.2008 16: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