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
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 + 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
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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen