Hallo Leute,
heute habe ich folgende Aufgabenstellung bei der ich nicht weiter komme:
Ich wandle in Access Datum ( Zb. 25.04.2002 ) in eine Periodenbezeichnung um, in diesem Fall 200217 für Jahr&Kalenderwoche.
Ich hole mir über externe Daten die gesamten Buchungsdaten nun ins Excel und die Tabelle sieht dann folgendermaßen aus:
Periode Betrag
200201 200700
200202 350150
200203 199901
200216 750000
200217 62000
200301 -3500
nun möchte ich alle Datensätze löschen, deren Periode >= 200217 sind.
Wie mache ich das über VBA???
Hallo Celina,
wenn die Periode in Spalte A steht und der Betrag in Spalte B
müsste dir das folgende Makro weiterhelfen.
Sonst evtl. anpassen.
Christian
Sub DS_loesch()
Dim Ws As Worksheet
Dim Wert As Variant
Dim i As Integer
Set Ws = Sheets(1)
i = 1
Do While IsEmpty(Ws.Cells(i, 1)) = False
Wert = Ws.Cells(i, 1)
If IsNumeric(Wert) Then
If Wert >= 200217 Then
Ws.Rows(i).Delete
i = i - 1
End If
End If
i = i + 1
Loop
End Sub
Versuchs mal über Daten Filter Autofilter.
Filtere nach den Daten die du löschen möchtest.
Markiere nur diese Zeile und lösche Sie.
Anschließend kannst Du den Autofilter wieder deaktivieren.
Gruß
Uwe
.
Das Archiv des Excel-Forums
