Hallo zusammen,
ich habe hier eine Excel-Datei vorliegen, die mehrere Tabellenblätter beinhaltet.
Die Tabellenblätter sind alle gleich aufgebaut, beinhalten nur andere Daten in den einzelnen Zellen.
Jetzt suche ich ein Makro, dass alle Zeilen löscht, die in Spalte G den Wert 820 haben.
Ich habe diesen Code gefunden, dieser funktioniert scheinbar jedoch nur mit Text und nicht mit Zahlen.
Des weiteren weiß ich nicht, wie ich den darauf anpasse, dass nur die Spalte G berücksichtigt wird.
Sub DeleteQueryCells()
Dim var As Variant
Do While Not IsError(var)
var = Application.Match("hallo", Columns(1), 0)
If Not IsError(var) Then Cells(var, 1).Delete xlShiftUp
Loop
End Sub
Ich muss dazu sagen, ich habe die bisherige Excel-Datei mit ihren zugehörigen Makros nicht erstellt, bin jedoch beauftragt worden an dieser kleine Optimierungen vorzunehmen.
Ich hoffe jemand weiß etwas dazu.
Mit freundlichen Grüßen
Jonas
|