Zeilen werden nicht gelöscht. Warum?

Private Sub But_dieser_Jahr_Click() Dim i As Long Dim dtDatum As Date Dim dtMonat As Integer Dim dtJahr As Integer Dim wksE As Excel.Worksheet Dim xLastRow As Long Set wksE = ThisWorkbook.Worksheets("excel") xLastRow = wksE.UsedRange.SpecialCells(xlCellTypeLastCell).Row dtJahr = 2004 'dtJahr = "2004" 'For i = wksE.Cells(xLastRow, 9) To 2 Step -1 'For i = wksE.Cells("I2") To wksE.Cells("I300") For i = [I65536].End(xlUp).Row To 2 Step -1 'For i = 2 To 178 'dtDatum = Cells(i, 9) dtDatum = wksE.Cells(i, 9) 'If Year(dtDatum) <> dtJahr Then If Format(Year(dtDatum), "yyyy") <> dtJahr Then 'Rows(i, 9).Delete Rows(i).Delete End If Next i End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub But_dieser_Jahr_Monat_Click() Dim i As Long Dim dtDatum As Date Dim dtMonat As Integer Dim dtJahr As Integer Dim wksE As Excel.Worksheet Dim xLastRow As Long Set wksE = ThisWorkbook.Worksheets("excel") xLastRow = wksE.UsedRange.SpecialCells(xlCellTypeLastCell).Row dtJahr = 2004 For i = wksE.[I65536].End(xlUp).Row To 2 Step -1 dtDatum = wksE.Cells(i, 9) If Format(dtDatum, "yyyy") <> dtJahr Then ' hier year() rausnehmen, da ansonsten das Jahr von 2004 also dem 26.6.1905 ' berechnet wird, und das ist 1905 ;-) wksE.Rows(i).Delete ' hier wksE vorsetzen, damit er im richtigen Blatt löscht End If Next i End Sub

Private Sub But_dieser_Jahr_Monat_Click() Dim wksE As Excel.Worksheet Dim i As Long Dim dtJahr As Integer Application.ScreenUpdating = False Set wksE = ThisWorkbook.Worksheets("excel") dtJahr = 2004 With wksE For i = .Cells(Rows.Count, 9).End(xlUp).Row To 2 Step -1 If Year(wksE.Cells(i, 9)) <> dtJahr Then .Rows(i).Delete End If Next i End With Set wksE = Nothing Application.ScreenUpdating = True End Sub

Ich habe schon häufiger hier geschrieben und und dachte ich nerve die Leute vielleicht.
Ich hatte auch mal kommenatere "crossposting". Ich hatte da in mehreren vba foren dieselbe frage gestellt =Grössere chance das mir geholfen wird. Ist so etwas verboten oder was hatte man (nighty) damit gemeint? Seitdem stelle ich die fragen nur noch in 2 foren. Was daraus lernen werde ich sicherlich. Da ich den code verstehe und so sehe wo der Fehler ist, lerne ich daraus. Dies muss ich dann umsetzten, da ich nicht nur den Zeitraum dieses Jahr untersuche, sondern letztes jahr, letzten monat, quartal usw. Es könnte bei quartal schwierig werden, mal schauen. Wenn ich mit dieser Aufgabe endlich fertig bin, juhu nach über 3 Wochen, dann möchte ich mal auch versuchen den anderen zu helfen, als kleines danke schön :)OK davor hatte ich nie was mit vba an Hut. Ich hab mal in der Schule delphi und java ein Jahr gemacht. Das hatte mir bei vba gut geholfen. Das ist dann wie einere andere SParache lernen. Man merkt die ähnlichkeiten, es ist einfacher da man eine vorstellung hat wie sowas laufen könnte und aknn durch ausprobieren einiges erreichen. Wenn man so sieht dann ahbe ich in diesen 3 Wochen sehr viel gelernt. Bin aber trotzdem noch ein Anfänger :)

Beliebteste Forumthreads (12 Monate)

Zeilen werden nicht gelöscht. Warum?

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilen werden nicht gelöscht. Warum?

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread