Microsoft Excel

Herbers Excel/VBA-Archiv

Bewerten Sie hier bitte das Excel-Portal
Der schnelle Weg zum Ziel: Auftragsprogrammierung
Informationen und Beispiele zum Thema RefEdit
BildScreenshot zu RefEdit RefEdit-Seite mit Beispielarbeitsmappe aufrufen

Bereich löschen


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