title image


Smiley Zellen Löschen funktioniert nicht korrekt-warum?
Hi,



würde gerne die Inputzeilen in einer Datei ab Zeile 8 löschen. Habe hierzu zwei Makros generiert. Der zweite funktioniert tadellos und der erste läuft irgendwann ins leere, d.h. er hört auf Zellen zu löschen - Versteh aber nicht warum? Hat einer ne Idee warum?



Sub File_löschen1()



Dim i As Long

Dim e As Integer



Sheets("Upload").Activate

Cells(8, 1).Select



For i = 8 To ActiveSheet.UsedRange.Rows.Count

For e = 1 To ActiveSheet.UsedRange.Rows.Count

Cells(i, e).Delete

Next e

Next i

End Sub



Sub File_löschen2()



Sheets("Upload").Activate

Range("A8:H" & ActiveSheet.UsedRange.Rows.Count).Select

Selection.Clear



End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: