Betrifft: Bereich löschen
von: Michael
Betrifft: AW: Bereich löschen
von: 1713291.html
Geschrieben am: 16.09.2019 13:09:26
Hallo Michael,
so:
Sub loeschen()
Dim lngLetzteSp As Long
lngLetzteSp = ActiveSheet.Cells(4, Columns.Count).End(xlToLeft).Column
ActiveSheet.Range(Cells(4, 6), Cells(35, lngLetzteSp - 1)).ClearContents
End Sub
Gruss Torsten
Betrifft: AW: Bereich löschen
von: 1713295.html
Betrifft: gerne...
von: 1713302.html
Geschrieben am: 16.09.2019 14:08:02
freut mich
Betrifft: AW: Bereich löschen
von: 1713296.html
Range(Cells(4, 6), Cells(4, 6).end(xltoright).Offset(31, -1)).ClearContents
funktioniert aber nur unter folgenden Voraussetzungen:
Betrifft: AW: Bereich löschen
von: 1713311.html
Geschrieben am: 16.09.2019 14:29:59
Hallo Daniel
Cells(4, 6) bedeutet doch Zeile 4, Spalte 6. Oder ist das anders herum?
Wieso muss dann Zeile 6 immer befüllt sein?
Daten befinden sich nicht in allen Zellen. Nur in den Spalten F3 und der letzten Spalte befinden sich Permanent Namen. Darum soll nur der Bereich F4-F35 bis Letzte Spalte minus 1 (Namen-Spalte) gelöscht werden.
Der zu löschende Bereich hat etwa 200 Spalten.
Gruß
Michael
Betrifft: AW: Bereich löschen
von: 1713314.html