Zitat:

Was willst du jetzt wissen Die letzte Zelle einer Zeile oder "innerhalb einer Zeile die Anzahl der Zellen..."?

Zitat:

letzteres! Ich bin in einer x beliebigen Zeile und würd innerhalb der Zeile gerne wissen wieviele Zellen belegt sind, spricht wenn ich alle durchlaufen will bis wohin ich meinen counter setzen muss.

Sub NochEinSimplesBeispiel()
Dim NichtLeereZellen As Integer
Dim LetzteZelle As Integer
Dim i as Integer
 
For i = 1 To Columns.Count
 If Cells(ActiveCell.Row, i).Value <> "" Then
  NichtLeereZellen = NichtLeereZellen + 1
  LetzteZelle = Cells(ActiveCell.Row, i).Column
 End If
Next i
 
MsgBox "Nicht leere Zellen: " & NichtLeereZellen & vbCr & _
        "Letzte Zelle in Spalte: " & LetzteZelle
End Sub