Zahlenreihe bearbeiten
29.05.2006 23:20:15
Martin
ich habe ein Makro geschrieben, um folgendes Problem zu lösen: Ich habe eine Zahlenreihe, die mit 3599001 beginnt. Die nächste Zahl ist jeweils 1 grösser. Die letzte Zahl ist variabel, liegt jedoch im Bereich von 3599400. Dazu habe ich eine zweite Menge von rund 20 Zahlen, die alle irgendwo innerhalb der Zahlenreihe liegen. Diese Menge von Zahlen muss mein Makro nun aus der Zahlenreihe löschen. Mein Makro dafür lautet:
Sub test()
Dim B As Long, C As Long
a1:
B = Range("C1").Value
Range("A1").Select
Cells.Find(What:=B, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate
ActiveCell.Delete
Range("C1").Select
Selection.Delete Shift:=xlUp
If ActiveCell.Value > "0" Then
GoTo a1
Else
MsgBox "ich bin fertig"
End If
End Sub
Das Makro benötigt natürlich reichlich Zeit, um die Aufgabe zu lösen. Meine Frage deshalb: Gibt es einen besseren Ansatz, um die Aufgabe zu lösen, als dass ich gewählt habe?
Herzlichen Dank für Eure Hilfe und Liebgruss
Martin