was koennte hier falls sein?
loesche leere oder ganz leere felder im sheet "op"
reihenweise bis zeile 50!
dank im voraus
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