ich möchte zur 1. belegten Zelle der Spalte K und möchte dann
von der Spalte A bis Spalte M den Bereich selektieren und löschen.
mfg walli
Sub loesch()
Dim ZeiA As Long, ZeiK As Long
ZeiK = Cells(Rows.Count, 11).End(xlUp).Row
ZeiA = Cells(Rows.Count, 1).End(xlUp).Row
If ZeiK > 6 And ZeiA >= ZeiK+1 Then
Range(Cells(ZeiK + 1, 1), Cells(ZeiA, 13)).ClearContents
Next ZeiK
End Sub
Sub loesch()
Dim ZeiA As Long, ZeiK As Long
ZeiK = Cells(Rows.Count, 11).End(xlUp).Row
ZeiA = Cells(Rows.Count, 1).End(xlUp).Row
If ZeiK > 6 And ZeiA >= ZeiK+1 Then
Range(Cells(ZeiK + 1, 1), Cells(ZeiA, 13)).ClearContents
End If
End Sub
Sub Schleife()
Dim c As Range, Zeile As Long
For Each c In Range("K:K")
If c.Value "" Then Zeile = c.Row: Exit For
Next
If Zeile > 0 Then Range("A" & Zeile & ":M" & Zeile).ClearContents
End Sub
Gruß MatthiasSub TT()
Dim firstlz As Long
Dim lz As Long
lz = Cells(Rows.Count, 1).End(xlUp).Row
firstlz = Range("K:K").SpecialCells(xlCellTypeBlanks).Rows.Count + 1
Range("A" & firstlz & ":M" & lz).Clear
End Sub
Sub Schleife()
Dim c As Range, Zeile As Long, LoletzteA As Long
LoletzteA = Cells(Rows.Count, 1).End(xlUp).Row
For Each c In Range("K:K")
Zeile = c.Row
If Zeile > 5 And LoletzteA > 5 Then If c.Value "" Then Zeile = c.Row: Exit For
Next
If Zeile > 5 And LoletzteA > 5 Then Range("A" & Zeile & ":M" & LoletzteA).Select 'ClearContents
End Sub
https://www.herber.de/bbs/user/68743.xls
Sub TT()
Dim firstlz As Long
Dim lz As Long
lz = Cells(Rows.Count, 1).End(xlUp).Row
firstlz = Range("K:K").SpecialCells(xlCellTypeBlanks).Rows.Count - 4 ' + 1
Range("A6" & firstlz & ":M" & lz).Select 'Clear
End Sub
Sub MakroRecorder()
Range("K1").Select
Selection.End(xlDown).Select
Range(Selection, Cells(ActiveCell.Row, 1)).Select
Selection.ClearContents
End Sub
Sub Schleife()
Dim c As Range, Zeile As Long
For Each c In Range("K:K")
If c.Value "" Then Zeile = c.Row: Exit For
Next
MsgBox "Zeile = " & Zeile
If Zeile > 0 Then Range("A" & Zeile & ":K" & Zeile).Select 'hier löschen
End Sub
Select dient hier nur zur Demonstration