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
Geschrieben am: 16.09.2019 12:57:49
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
  

Gruss Torsten

Betrifft: AW: Bereich löschen
von: 1713295.html
Geschrieben am: 16.09.2019 13:21:26
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
Geschrieben am: 16.09.2019 13:24:32
Hi
noch ne Variante:

Range(Cells(4, 6), Cells(4, 6).end(xltoright).Offset(31, -1)).ClearContents

funktioniert aber nur unter folgenden Voraussetzungen:
1. 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
Geschrieben am: 16.09.2019 14:37:17
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

Excel-Beispiele zum Thema "Bereich löschen"