Excelmania
Lieutenant
- Registriert
- Apr. 2010
- Beiträge
- 798
Hallo.
ich importiere in ein Tabellenblatt Daten. Die Importierten Daten umfassen auch Leer-Tupel sowie sich wiederholenden Überschriften.
Diese möchte ich entfernen. Diese habe ich mit einer For next Schleife in VBA und einer Prüfspalte mit Formel realisiert. Es klappt jedoch nicht vollständig. Leere Zeilen bleiben immer stehen.
ich importiere in ein Tabellenblatt Daten. Die Importierten Daten umfassen auch Leer-Tupel sowie sich wiederholenden Überschriften.
Diese möchte ich entfernen. Diese habe ich mit einer For next Schleife in VBA und einer Prüfspalte mit Formel realisiert. Es klappt jedoch nicht vollständig. Leere Zeilen bleiben immer stehen.
Code:
Private Sub CMD_Dez_aktualisieren_Click()
Dim b As Long, v As Long, Zeile As Long
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
v = Worksheets("Optionen").Range("B142").Value
'letzte Zeile ermitteln
b = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
'b definieren
If b < v Then
b = v
Exit Sub
Else
b = b
End If
'Formel einfügen
ActiveSheet.Range("i4").FormulaLocal = "=WENN(UND(LÄNGE(B4);ISTZAHL(B4*1));""OK"";""LÖSCHEN"")"
'Formel ziehen
ActiveSheet.Range("i4").Select
Selection.AutoFill Destination:=ActiveSheet.Range("i" & v & ":i" & b), Type:=xlFillValue
Zeile = v
'Alle Nicht Personendaten löschen
With ActiveSheet
For Zeile = v To b
If .Range("i" & Zeile) <> "OK" Then
Rows(Zeile).Delete
End If
Next
End With
'Prüfspalte löschen
'Columns("i").Delete
'letzte Zeile ermitteln
b = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
'letzte Zeile in Optionen schreiben
Worksheets("Optionen").Range("c142").Value = b
'Formel einfügen
ActiveSheet.Range("H4").FormulaLocal = "=WENN(B4="""";"""";ZÄHLENWENN(INDIREKT(Optionen!$D$30);B4))"
'Formel ziehen
ActiveSheet.Range("H" & v).Select
On Error Resume Next
Selection.AutoFill Destination:=ActiveSheet.Range("H" & v & ":H" & b), Type:=xlFillValue
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub