wer kann mal schauen?
die active celle und die darunter befindlichen Zellen mit inhalten sollen makiert werden
Sub LastUsedCell()
Cells(Rows.Count, 18).End(xlUp).Offset(1, 5).Select
End Sub
danke achim h.
Sub LastUsedCell()
Cells(Rows.Count, 18).End(xlUp).Offset(1, 5).Select
End Sub
Sub LastUsedCell()
Range(Cells(Rows.Count, 18).End(xlUp).Offset(1, 5), _
Cells(Rows.Count, 18).End(xlUp).Offset(1, 5).End(xlDown)).Select
End Sub
Gruß Ingolf
Sub LastUsedCell()
Dim ZelleA As String
Dim ZelleB As String
ZelleA = ActiveCell.Address
ZelleB = Cells(Rows.Count, 1).End(xlUp).).Offset(1, 5).Address
ActiveSheet.Range(ZelleA & ":" & ZelleB).Select
End Sub