wie kann ich die letzte beschriebene Zelle einer Zeile (der Aktiven) ermitteln.
Also keinen UsedRange, oder so was, sondern wirklich nur die Zeile, die gerade selektiert ist ?
Danke
Gruß
Jockel
Sub Namen2()
Dim r As Range
With Sheets("Referenz")
For Each r In .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
.Range(r.Offset(, 1), .Cells(r.Row, .Columns.Count).End(xlToLeft)).Name = "LAB" & r.Text _
& "_Erg"
Next
End With
End Sub
Sub Namen2()
Dim r As Range
With Sheets("Referenz")
For Each r In .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
.Range(r.Offset(, 1), .Cells(r.Row, .Columns.Count).End(xlToLeft)).Name = "LAB_" & r & " _
_Erg"
Next
End With
End Sub
Kann dir leider derzeit keine Testdatei hochladen, frühestens morgen.