Herbers Excel-Forum - das Archiv

Bewerten Sie hier bitte das Excel-Portal

Bereiche mehrerer Tabellen Löschen

Bild

Betrifft: Bereiche mehrerer Tabellen Löschen
von: Thorsten
Geschrieben am: 30.09.2003 08:46:10
Hi,

ich möchte mittels eines Makros die jeweils die Zeilen 17 bis 127 von mehreren Tabellenblättern löschen.
Über den Makrorecoder bekomme ich nun:

Worksheets(1).Rows("17:127").Select
Selection.Delete Shift:=xlUp
Range("A17").Select

habe verswucht, mir darasu ein Makro zu basteln:



Sub Thorsten()
Worksheets(1).Rows("17:127").Select
Selection.Delete Shift:=xlUp
Range("A17").Select
Worksheets(2).Rows("17:127").Select
Selection.Delete Shift:=xlUp
Range("A17").Select
Worksheets(3).Rows("17:127").Select
Selection.Delete Shift:=xlUp
Range("A17").Select
End Sub


Nur bekomme ich da dann eine Fehlermeldung ( Laufzeitfehler: Select Methode des Range Objektes ist Fehlerhaft)
Bild

Betrifft: AW: Bereiche mehrerer Tabellen Löschen
von: Andi_H
Geschrieben am: 30.09.2003 09:00:19
Hi Thorsten,

versuchs mal so, da dürfte der Fehler nicht kommen.



Sub Thorsten()
for i = 1 to 3
Worksheets(i).Rows("17:127").Delete Shift:=xlUp
next
End Sub


Gruß

ANdi
Bild

Betrifft: AW: Bereiche mehrerer Tabellen Löschen
von: Thorsten
Geschrieben am: 30.09.2003 09:44:44
Hi,

danke für die Hilfe,
wie kann ich das denn machen, wenn die Tabellenblätter umbenannt werden??
also wen die Tabellenblätter nicht 1, 2 etc heißen? Wäre klasse, wenn da jemand weiterhelfen könnte
Bild

Betrifft: AW: Bereiche mehrerer Tabellen Löschen
von: Thorsten
Geschrieben am: 30.09.2003 09:45:43
Hi,

danke für die Hilfe,
wie kann ich das denn machen, wenn die Tabellenblätter umbenannt werden??
also wen die Tabellenblätter nicht 1, 2 etc heißen? Wäre klasse, wenn da jemand weiterhelfen könnte
Bild

Betrifft: AW: Bereiche mehrerer Tabellen Löschen
von: Andi_H
Geschrieben am: 30.09.2003 09:51:43
Hi Thorsten,

dürfte kein Problem sein wenn du deine sheets umbenennst, der Code geht nach dem Index der Sheets (in deinem Fall die ersten drei sheets deiner Mappe), Probleme kriegst du nur wenn du die Position der sheets änderst, also ein neues einfügst und dieses an die erste stelle verschiebst. Solange die Position der ersten drei sheets nicht änderst, kannst du nichts falsch machen.

Gruß

Andi
Bild

Betrifft: AW: Bereiche mehrerer Tabellen Löschen
von: Thorsten
Geschrieben am: 30.09.2003 10:07:40
Hi,

danke, dass klappt perfekt.
Was mir allerdings aufgefallen war: Muss man bei deinem Vorschalg i nicht noch als variante festlegen,
zum Bsp. Dim i As Variant?

Hatte das mal so "geraten", aber es funktioniert ;-)
Bild

Betrifft: AW: Bereiche mehrerer Tabellen Löschen
von: Andi_H
Geschrieben am: 30.09.2003 10:32:38
Hi,

sollte man eigentlich, läßt man dies weg wird i automatisch als variant deklariert.
In diesem Fall sollte jedoch ein Integer reichen. Dim i as integer

Gruß

Andi
Bild

Betrifft: AW: Bereiche mehrerer Tabellen Löschen
von: Thorsten
Geschrieben am: 30.09.2003 10:07:47
Hi,

danke, dass klappt perfekt.
Was mir allerdings aufgefallen war: Muss man bei deinem Vorschalg i nicht noch als variante festlegen,
zum Bsp. Dim i As Variant?

Hatte das mal so "geraten", aber es funktioniert ;-)
 Bild
Excel-Beispiele zum Thema " Bereiche mehrerer Tabellen Löschen"
Benutzerdefinierte SVERWEIS-Funktion über mehrere Bereiche Bereiche bei Mehrfachauswahl prüfen
Auswahl eines Zellbereiches verhindern Bereiche in Abhängigkeit eines Zellinhaltes drucken
URLs eines ausgewählten Bereiches in HyperLinks umwandeln Berechnung des ausgewählten Bereiches in der Statusleiste
Bereiche auf Übereinstimmung vergleichen Werte eines bestimmten Wochentages und eines Zeitbereiches addieren
Datenreihenbeschriftungs-Quellbereich ausserhalb des Datenbereiches Namen eines ausgewählten Bereiches auslesen