Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
416to420
416to420
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

AW: L?schen in mehreren Tabellen mit Array?

Forumthread: AW: L?schen in mehreren Tabellen mit Array?

AW: L?schen in mehreren Tabellen mit Array?
Mac4
Hallo Olaf,
so m?sste es gehen. Ist zwar eine Select mehr, aber immerhin!

Sub test()
MeinArray = Array("Tabelle1", "Tabelle2")
Worksheets(MeinArray).Select
ActiveSheet.Range("A:A").Select
Selection.EntireRow.Delete
End Sub

Marc
Anzeige
Keine Ahnung, aber ...
Franz
Hi Marc,
... geht das nicht auch ohne Select (ungetestet):

Sub test()
MeinArray = Array("Tabelle1", "Tabelle2")
with Worksheets(MeinArray)
with .Range("A:A")
.EntireRow.Delete
end with
end with
End Sub

Gr??e
Franz
geht leider so nicht
20.04.2004 11:07:02
Olaf
Hallo,
das geht leider beides nicht.
bei Marc: selbes Prob wie vorher, markiert wird alles richtig, aber gel?scht nur in der aktiven Tab
bei Franz: Laufzeitfehler
Gruss Olaf
Anzeige
AW: Keine Ahnung, aber ...
Mac4
Hallo Franz,
so scheints nicht zu laufen! Habe aber auch bei meinem Makro einen Fehler bemerkt.

Sub test()
MeinArray = Array("Tabelle1", "Tabelle2")
Worksheets(MeinArray).Select
ActiveSheet.Range("A:A").Select
Selection.Delete
End Sub

So wird in allen Bl?ttern des Arrays die Spalte A gel?scht!
Marc
Anzeige
Dann so vielleicht:
Franz
Hallo Marc,
ein Versuch ohne Select dann so (ungetestet):

Sub test()
MeinArray = Array("Tabelle1", "Tabelle2")
with Worksheets(MeinArray)
.Range("A:A").Delete
end with
End Sub

Gr??e
Franz
Es funzt!
Olaf
Ja, danke,
scheint am "EntireRow" zu liegen.
Ich habs jetzt so formuliert und es geht:
Sheets(MeinArray).Select
Rows("3:65536").Select
Selection.Delete Shift:=xlUp
Bisschen viel "Select", aber mit weniger gehts wieder nicht.
Also vielen Dank nochmal
Olaf
Anzeige
AW: Es funzt!
Franz
Hallo Olaf,
versuch's doch mal so:
Sheets(MeinArray).Rows("3:65536").Delete Shift:=xlUp
ungetestet, m?sste aber eigentlich doch auch gehen...........?
Gr??e
Franz
Hast recht, geht nicht
20.04.2004 12:21:52
Franz
Hallo Olaf,
hab's jetzt ausprobiert........
Zerknirschte Gr??e
Franz
AW: L?schen in mehreren Tabellen mit Array?
Mac4
Hallo Olaf,
so m?sste es gehen. Ist zwar eine Select mehr, aber immerhin!

Sub test()
MeinArray = Array("Tabelle1", "Tabelle2")
Worksheets(MeinArray).Select
ActiveSheet.Range("A:A").Select
Selection.EntireRow.Delete
End Sub

Marc
Anzeige
Keine Ahnung, aber ...
Franz
Hi Marc,
... geht das nicht auch ohne Select (ungetestet):

Sub test()
MeinArray = Array("Tabelle1", "Tabelle2")
with Worksheets(MeinArray)
with .Range("A:A")
.EntireRow.Delete
end with
end with
End Sub

Gr??e
Franz
geht leider so nicht
20.04.2004 11:07:02
Olaf
Hallo,
das geht leider beides nicht.
bei Marc: selbes Prob wie vorher, markiert wird alles richtig, aber gel?scht nur in der aktiven Tab
bei Franz: Laufzeitfehler
Gruss Olaf
Anzeige
AW: Keine Ahnung, aber ...
Mac4
Hallo Franz,
so scheints nicht zu laufen! Habe aber auch bei meinem Makro einen Fehler bemerkt.

Sub test()
MeinArray = Array("Tabelle1", "Tabelle2")
Worksheets(MeinArray).Select
ActiveSheet.Range("A:A").Select
Selection.Delete
End Sub

So wird in allen Bl?ttern des Arrays die Spalte A gel?scht!
Marc
Anzeige
Dann so vielleicht:
Franz
Hallo Marc,
ein Versuch ohne Select dann so (ungetestet):

Sub test()
MeinArray = Array("Tabelle1", "Tabelle2")
with Worksheets(MeinArray)
.Range("A:A").Delete
end with
End Sub

Gr??e
Franz
Es funzt!
Olaf
Ja, danke,
scheint am "EntireRow" zu liegen.
Ich habs jetzt so formuliert und es geht:
Sheets(MeinArray).Select
Rows("3:65536").Select
Selection.Delete Shift:=xlUp
Bisschen viel "Select", aber mit weniger gehts wieder nicht.
Also vielen Dank nochmal
Olaf
Anzeige
AW: Es funzt!
Franz
Hallo Olaf,
versuch's doch mal so:
Sheets(MeinArray).Rows("3:65536").Delete Shift:=xlUp
ungetestet, m?sste aber eigentlich doch auch gehen...........?
Gr??e
Franz
Hast recht, geht nicht
20.04.2004 12:21:52
Franz
Hallo Olaf,
hab's jetzt ausprobiert........
Zerknirschte Gr??e
Franz
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige