Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema RefEdit
Screenshot zu RefEdit	RefEdit-Seite mit Beispielarbeitsmappe aufrufen

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

Beiträge aus dem Excel-Forum zum Thema "Bereich löschen"