wie lässt sich das am einfachsten realisieren ?
wie lässt sich das am einfachsten realisieren ?
versuch es mal damit:
Gruß
Björn
DU müsstest schon genauer schildern, was gelöscht werden soll. Jede Zeite Zelle in einer Zeile/Spalte? In welcher?
Gruß
Peter
ich möchte am schluss eine tabelle mit den gültigen werten haben !
ob jede 2. zelle gelöscht wird oder ob jeder 2. wert wekopiert werden ist mir egal !
in welchen Zeilen stehen denn die gültigen, in den geraden oder ungeraden? Ob Zellen löschen oder Zellinhalt löschen solltest Du auch erwähnen, beim Löschen von Zellen verschieben sich die darunter liegenden Werte nach oben bzw. die rechts davon liegenden nach links.
Gruß
Peter
der Makro klappt schon. Aber eben nur für die Spalte A. Wenn die Werte in der Spalte F gelöscht werden sollen, einfach:
Sub löschen()
Dim i As Integer
i = 1
Do Until IsEmpty(Cells(i, 6))
Sheets(1).Cells(i, 6).ClearContents
i = i + 2
Loop
End Sub
Mit Bezug auf Spalte F, Tabelle1.
Gruß
Björn
dann ändere den Code in
Gruß
Peter
genau so hab ich es mir vorgestellt !