Das Archiv des Excel-Forums
Bereich löschen
- Bereich löschen von Michael vom 16.09.2019 12:57:49
- AW: Bereich löschen - von Torsten am 16.09.2019 13:09:26
- AW: Bereich löschen - von Michael am 16.09.2019 13:21:26
- gerne... - von Torsten am 16.09.2019 14:08:02
- AW: Bereich löschen - von Daniel am 16.09.2019 13:24:32
- AW: Bereich löschen - von Michael am 16.09.2019 14:29:59
- AW: Bereich löschen - von Daniel am 16.09.2019 14:37:17
Betrifft: Bereich löschen
von: Michael
Hallo an alle
Ich suche für folgendes Problem eine Lösung:
Ich möchte den Inhalt eines Bereichs entfernen(Nur Inhalt). Der Bereich umfasst die Zeilen F4 bis 35 und eine variable Spalten-Anzahl. Die Spalten-Anzahl soll vom Code selbst ermittelt werden. Nur die letzte Spalte, die darf nicht gelöscht werden.
Weiß jemand rat und Hilfe
Viele Grüße
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
Betrifft: AW: Bereich löschen
von: 1713295.html
Hallo Torsten
Vielen Dank für deine schnelle Antwort. Klappt wunderbar.
Gruß Michael
Betrifft: gerne...
von: 1713302.html
Geschrieben am: 16.09.2019 14:08:02
freut mich
Betrifft: AW: Bereich löschen
von: 1713296.html
Hi
noch ne Variante:
Range(Cells(4, 6), Cells(4, 6).end(xltoright).Offset(31, -1)).ClearContents1. die Zeile 6 im Bereich ist immer befüllt
2. es sind immer mindestens zwei Spalten vorhanden (Spalte F und G)
Gruß Daniel
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
Hi
steht doch sicherlich in der Hilfe zu Cells: Cells(Zeile, Spalte)
dann Zeile 4, nicht Zeile 6.
wie du am besten die letzte befüllte Spalte ermittelst, hängt davon ab, wie deine Zellen befüllt sind.
Gruß Daniel
