Zeilen löschen
21.11.2006 13:36:12
Daniel
ich habe mir ein Makro gebastelt, das mir aus einer Textdatei daten importiert.
Nun will ich aber einige Zeilen entfernen, bevor die Formeln in M und N eingefügt werden.
Wie mache ich das? Alles was ich im Forum gefunden hatte führe immer zu einem Loop, der dann nicht mehr den Rest des makros ausführte.
Gelöscht sollen werden,wenn in K die Namen ("Anna", "Peter") bspw. vorkommen.
Würde mich über Hilfe freuen,
Danke.
Sub ImportData()
Dim laRQ As Long, i As Long, laRZ As Long, rng As Range
Application.ScreenUpdating = False
Sheets("Data").Select
Range("A2:N65536").Select
Selection.ClearContents
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
laRQ = Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row
With Sheets("Data")
For i = 1 To laRQ - 1
.Range("M" & i + 1).Formula = "=F" & (i + 1) & "-" & "G" & (i + 1)
.Range("N" & i + 1).Formula = "=D" & (i + 1) & "-" & "I" & (i + 1)
Next i
End With
Application.ScreenUpdating = True
End Sub