Microsoft Excel

Herbers Excel/VBA-Archiv

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

Bereich löschen | Herbers Excel-Forum


Betrifft: Bereich löschen von: Thomas
Geschrieben am: 26.01.2010 10:42:10

Servus

Mal wieder ein einfaches Problem welches mich in den Wahnsinn treibt.

Ich möchte in einem best. Tabellenblatt (rquelle) den Bereich unter Zeile 1 (Überschrift) löschen.

Bis dato habe ich das so gemacht
Sheets(rquelle).select
Sheets(rquelle).Range(Cells(2,1),Cells(zrow,zcol).Delete xlShiftUp

zrow und zcol sind die letzte Zeile und Spalte des Tabellenblattes.

leider brauche ich immer die Select Anweisung. Ohne diese = Fehler !

Normalerweise befinde ich mich NIE auf dem Tabellenblatt rquelle und möchte auch nicht auf dieses Tabellenblatt springen.
Hier gibt es sicher eine elegantere Lösung OHNE die Select Anweisung, vielleicht mit UsedRange und Offset?
Leider komm ich nicht drauf.

Ich hoffe ihr könnt mir weiterhelfen.

gruß
Thomas

  

Betrifft: AW: Bereich löschen von: Rudi Maintaire
Geschrieben am: 26.01.2010 10:45:12

Hallo,
wirklich einfach

With Sheets(rquelle)
.Range(.Cells(2,1),.Cells(zrow,zcol).Delete xlShiftUp
End With

Gruß
Rudi


  

Betrifft: AW: Bereich löschen von: Hajo_Zi
Geschrieben am: 26.01.2010 10:46:39

Hallo Thomas,

With Sheets(rquelle)
.Range(.Cells(2,1),.Cells(zrow,zcol).Delete xlShiftUp
End With



GrußformelHomepage


  

Betrifft: AW: Bereich löschen von: Thomas
Geschrieben am: 26.01.2010 10:59:58

Danke für die schnelle Antwort, doch leider löst das mein Problem nicht.
Sobald ich die Anweisung
Sheets(rquelle).select
weglasse bekomme ich Laufzeitfehler 1004 !
Irgendeine Idee ?

gruß
Thomas


  

Betrifft: AW: Bereich löschen von: Hajo_Zi
Geschrieben am: 26.01.2010 11:01:42

Hallo Thomas,

Du solltest schon den geposteten Code benutzen. Das hat einen Vorteil.

Gruß Hajo


  

Betrifft: AW: Bereich löschen von: Thomas
Geschrieben am: 26.01.2010 11:05:13

Hab ich ja gemacht.

Sheets(rquelle).select
With Sheets(rquelle)
.Range(Cells(2,1),Cells(zrow,zcol).Delete xlShiftUp
end with

Funktioniert. Ohne Select Laufzeitfehler 1004

???


  

Betrifft: AW: Bereich löschen von: Hajo_Zi
Geschrieben am: 26.01.2010 11:10:06

Hallo Thomas,

das ist nicht der gepostete Code. Ein Punkt mag klein sein, aber in VBA ist er sehr wichtig.

Gruß Hajo


  

Betrifft: AW: Bereich löschen von: Thomas
Geschrieben am: 26.01.2010 11:17:32

Oh mann bin ich blöd. Funzt natürlich

Wie ein Punkt das Leben beinflussen kann , beeindruckend.

Tausend DANK !!!!

gruß
Thomas


Beiträge aus den Excel-Beispielen zum Thema "Bereich löschen"