AW: Zellen vergleichen und ggf löschen
15.01.2021 18:10:13
Yal
Hallo Daniel,
warum der Weg über einen 2-dimensionale Array, wenn eine Excel-Tabelle sowieso bereit ein 2-dimensionale Struktur ist?
Ausser bei der Ermittlung der letzte Zeile bzw Spalte mit UBound anstatt SpecialCells(xlCellTypeLastCell).Column, ist die zusätzliche Bequemlichkeit recht beschränkt.
Version CurrentRegion
Sub Makro1()
Dim z As Long, s As Long
With ActiveSheet.Cells(1, 1).CurrentRegion
For s = 2 To .SpecialCells(xlCellTypeLastCell).Column
If .Cells(1, s) = "Datum" Then
For z = 2 To .SpecialCells(xlCellTypeLastCell).Row
If .Cells(z, 1)
Version UsedRange
Sub Makro1()
Dim z As Long, s As Long
With ActiveSheet.Range(ActiveSheet.Cells(1, 1), ActiveSheet.UsedRange)
For s = 2 To .SpecialCells(xlCellTypeLastCell).Column
If .Cells(1, s) = "Datum" Then
For z = 2 To .SpecialCells(xlCellTypeLastCell).Row
If .Cells(z, 1)
Wenn sowieso irgendwo etwas im ersten Zeile und etwas im ersten Spalte vorhanden ist,
dann die Kurzversion von UsedRange:
Sub Makro1()
Dim z As Long, s As Long
With ActiveSheet.UsedRange
For s = 2 To .SpecialCells(xlCellTypeLastCell).Column
If .Cells(1, s) = "Datum" Then
For z = 2 To .SpecialCells(xlCellTypeLastCell).Row
If .Cells(z, 1)
Alles sehr ähnlich. Aber eben ohne den Umweg über einen Array.
VG
Yal