wie kann ich die letzte gefüllte Zelle einer Zeile bestimmen?
Danke und Gruß
Andi
Sub letzte()
Dim iLetzte As Integer
For iLetzte = 256 To 1 Step -1
If Not IsEmpty(Cells(9, iLetzte).Value) Then
MsgBox "die letzte nicht leere Zelle ist in Spalte " & iLetzte, _
64, " letzte nicht leere Zelle"
Exit For
End If
Next iLetzte
iLetzte = Cells(1, 256).End(xlToLeft).Column
MsgBox "die letzte nicht leere Zelle ist in Spalte " & iLetzte, _
64, " letzte nicht leere Zelle"
End Sub
| |||||||||||||||||||||||||||||||||||