Bereich variabel letzter Eintrag A

Hallo,
folgender Makro (aus dem Archiv) funktioniert.
Da ich aber immer wieder neue Zeilen einfüge, muss der Bereich auch immer wieder neu festgelegt werden. Beim Format habe ich das noch hinbekommen. Meine geringen Kenntnisse reichen nicht aus, den Marko entsprechend zu ändern.
Gibt es eine Möglichkeit, statt A6-A225 den Bereich A6 bis zum letzten Eintrag in A zu löschen?
Und gibt es die Möglichkeit die lfd.Nummer bei Range nicht nur bis b225, sondern bis letzte beschriebene Zelle in B festzulegen?

Sub laufendenummertages()
Application.ScreenUpdating = False
Sheets("tages").Range("A6:A225").ClearContents
Dim lngLfdNr As Long
Dim lngIndx As Long
lngLfdNr = 1
For lngIndx = 6 To Range("b225").End(xlUp).Row Step 1
Cells(lngIndx + 0, 1).Value = lngLfdNr
lngLfdNr = WorksheetFunction.Max(Range("A:A")) + 1
Next lngIndx
Cells(65536, 3).Select
Selection.End(xlUp).NumberFormat = "General"
Range("A4").Select
Application.ScreenUpdating = True
End Sub

Vielen Dank für jeden Tipp.
Grüße
Gisela

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub laufendenummertages() Dim lngLfdNr As Long Dim lngIndx As Long Application.ScreenUpdating = False With Sheets("tages") .Range(.Cells(6, 1), .Cells(Rows.Count, 1).End(xlUp)).ClearContents End With lngLfdNr = 1 For lngIndx = 6 To Cells(Rows.Count, 2).End(xlUp).Row Step 1 Cells(lngIndx + 0, 1).Value = lngLfdNr lngLfdNr = WorksheetFunction.Max(Range("A:A")) + 1 Next lngIndx Cells(Rows.Count, 3).End(xlUp).NumberFormat = "General" Range("A4").Select Application.ScreenUpdating = True End Sub

Sub laufendenummertages1() Dim alt As Long Dim neu As Long Application.ScreenUpdating = False With Sheets("tages") alt = .Cells(.Rows.Count, 1).End(xlUp).Row neu = .Cells(.Rows.Count, 2).End(xlUp).Row .Range("A6:A" & alt).ClearContents .Range("A6:A" & neu).Formula = "=Max($A$5:A5)+1" .Range("A6:A" & neu).Value = .Range("A6:A" & neu).Value .Columns(3).NumberFormat = "General" End With Application.ScreenUpdating = True End Sub '-------------- oder so ------------------------ Sub laufendenummertages2() Dim lngIndx As Long Application.ScreenUpdating = False With Sheets("tages") .Range("A6:A" & .Cells(.Rows.Count, 1).End(xlUp).Row).ClearContents For lngIndx = 6 To .Cells(.Rows.Count, 2).End(xlUp).Row .Cells(lngIndx, 1).Value = lngIndx - 5 Next .Columns(3).NumberFormat = "General" End With Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Bereich variabel letzter Eintrag A

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread