Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1008to1012
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1008to1012
1008to1012
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

Anzeige
AW: sollte öfter mal...
09.09.2008 14:47:00
Hoffi
...auf aktualisieren drücken :-)
Grüße
Hoffi
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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige