auf meinen Beitrag in der Vergangenheit hast Du mir netterweise eine Lösung geschrieben
https://www.herber.de/forum/archiv/1040to1044/t1041331.htm#1041331
Das Makro ist genial. Jetzt kommt aber leider eine Schwierigkeit hinzu und ich bin direkt ausgezählt.
Aus dem Internet werden in kürzen Abständen per WEB-Abfrage Daten in Excel eingelesen.
In der entscheidenden Spalte stehen dann das Datum UND die Uhrzeit wie folgt:
06.03.09 15:22 Uhr
06.03.09 15:22 Uhr
06.03.09 15:23 Uhr
06.03.09 15:23 Uhr
06.03.09 15:23 Uhr
06.03.09 15:23 Uhr
06.03.09 15:34 Uhr
06.03.09 15:37 Uhr
06.03.09 15:55 Uhr
06.03.09 15:57 Uhr
06.03.09 16:02 Uhr
Jetzt bräuchte ich eine Ergänzung des nachfolgendes Makros - genauer gesagt soll auch dieses Mal immer die oberste und unterste Zeile stehen bleiben.
Folgendes Makro benutze ich:
Sub LoescheDoppelteZwischenZeilen()
Dim Bereich As Range, FormelZ As Range
Dim LRow As Long, LCol As Long
Set Bereich = Range("A2", Cells(Rows.Count, 1).End(xlUp))
If Not Intersect(Bereich, Rows(1)) Is Nothing Then Exit Sub
LRow = Bereich(Bereich.Cells.Count).Row
LCol = Columns.Count - Bereich.Column
Set FormelZ = Bereich.Offset(0, LCol)
Application.ScreenUpdating = False
FormelZ.FormulaR1C1 = _
"=IF(AND(COUNTIF(RC1:R" & LRow & "C1,RC1)COUNTIF(R1C1:R" & LRow & "C1,RC1),COUNTIF(RC1:R" _
_
& LRow & "C1,RC1)>1),0,"""")"
If Application.CountIf(FormelZ, 0) > 0 Then
FormelZ.SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete
End If
Columns(FormelZ.Column).Delete
Application.ScreenUpdating = True
End Sub
Kannst Du mir bitte noch einmal helfen. Vielen Dank!
LG
Claudia