jerry0110
Erfahrenes Mitglied
Hi brauche hier mal Hilfe:
Ich habe in 2 Felder (Sheet Makros) 2 Datumsfelder. 01.06.16 und 01.08.16.
Jetzt möchte ich aus einer Datei (Sheet Tabelle1) die Überschrift Datum suchen und wenn diese gefunden wird, soll dann im Feld geschaut werden ob das Datum kleiner 01.06 oder größer 01.08 ist. Wenn das der Fall ist, dann soll die Zeile gelöscht werden.
Hier mein Code:
Mein Fehler ist, das sehe ich ja schon selber, dass ich angeben das er in Spalte 10 gucken soll. Aber ich weiß ja gar nicht ob es 10 ist. Habe gerade ein Blackout.
Ich habe in 2 Felder (Sheet Makros) 2 Datumsfelder. 01.06.16 und 01.08.16.
Jetzt möchte ich aus einer Datei (Sheet Tabelle1) die Überschrift Datum suchen und wenn diese gefunden wird, soll dann im Feld geschaut werden ob das Datum kleiner 01.06 oder größer 01.08 ist. Wenn das der Fall ist, dann soll die Zeile gelöscht werden.
Hier mein Code:
Visual Basic:
Sub Zeilen_löschen()
Dim i As Long
Dim source As Worksheet
Dim source2 As Worksheet
Dim lastCol As Long
Dim lastRow As Long
Set source = ActiveWorkbook.Worksheets("Tabelle1")
Set source2 = ThisWorkbook.Worksheets("Makros")
'letzte Zeile & Spalte im Ziel berechnen
lastRow = xlsGetLastRow(source)
lastCol = xlsGetLastCol(source)
For i = lastRowNr(source) To 2 Step -1
With Columns(Application.Match("Datum", Rows(1), i))
If source.Cells(i, 10) < source2.Range("J3") Or source.Cells(i, 10) > source.Range("J4") Then
Rows(i).Delete shift:=xlUp
End If
End With
Next i
End Sub
Mein Fehler ist, das sehe ich ja schon selber, dass ich angeben das er in Spalte 10 gucken soll. Aber ich weiß ja gar nicht ob es 10 ist. Habe gerade ein Blackout.