brauch Eure Hilfe, ich muss wenn in Spalte G kein Eintrag vorhanden ist die komplette Zeile löschen. Kann man dies via VBA lösen?
Gruß
Sascha
Sub Zeileloeschen()
Dim i As Integer
For i = 1 To Cells(Rows.Count, 7).End(xlUp).Row
If Cells(i, 7) = "" Then
Rows(i).Delete
End If
Next
End Sub
Gruß,
Stefan
Sub ttt()
Dim zeile As Long
For zeile = Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Sheets("Tabelle1").Cells(zeile, 7) = "" Then Range(zeile & ":" & zeile).Delete
Next zeile
End Sub
Gruss