o.T. bedeutet ohne weiteren Text
Es wäre halt schon schön, wenn man nicht bloss was hingeworfen ( bildlich gesprochen ) erhält, sondern auch die Frage klar formuliert ist,... nämlich wo dein Problem genau ist und was du erwartest.
Gruss Rainer
gegeben ist folgendes sheet "opsur":
Deine Tabelle sieht in etwa so aus:
Lass dieses Makro laufen:
Sub LoeschUnnoetigeFelder()
Dim n As Integer, i As Integer, mycounter As Integer
For n = 50 To 2 Step -1
If Sheets("OPSUR").Cells(n, 1).Value = "" Then
Sheets("OPSUR").Rows(n).Delete shift:=xlUp
GoTo step
End If
mycounter = 0
For i = 1 To Len(Sheets("OPSUR").Cells(n, 1))
If Mid(Sheets("OPSUR").Cells(n, 1), 1, 1) = " " Then
mycounter = mycounter + 1
End If
Next i
If mycounter + 1 = i Then
Sheets("OPSUR").Rows(n).Delete shift:=xlUp
End If
step:
Next n
Range("b14").Select
versuch es mal so mit Testfile
ist aus Archiv von Forum
Sub Leerzeilenlöschen()
' Leerzeilen löschen einschließlich der Zeilen die entstehen wenn Zeilen am ende
' gelöscht werden, auch Leerzeilen in der Tabelle werden gelöscht
' von Wolf.W.Radzinski
' es wurden nicht alle Leerzeilen in einer Datei erkannt
' darum Ergänzung
On Error Resume Next
Dim r As Range
Dim anz As Long
Dim c_ges As Long
Dim col As New Collection
c_ges = ActiveSheet.UsedRange.Column + ActiveSheet.UsedRange.Columns.Count - 1
For Each r In ActiveSheet.UsedRange.EntireRow
anz = 0
' ******** Hajo.Ziplies@web.de
Dim I As Byte
Dim L As Byte
L = 0
For I = 1 To 20
If Cells(r.Row, I) <> "" Then
L = 1
Exit For
End If
Next I
If L = 0 Then col.Add r
' ******
' anz = r.SpecialCells(xlCellTypeBlanks).Count
' If anz >= c_ges Then col.Add r
Next
For Each r In col
r.Delete
Next
End Sub
gruss geri
auch dir geri
gruss aus koeln
ps:
wie ist das im forumsatzung geregellt!
kann ich bzgl dieser tabelle weitere fragen stellen
oder sollte ich neue forum frage eroeffnen?
es geht eigendlich um die gleiche tabelle