Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
416to420
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
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
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
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
Anzeige
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
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
Anzeige
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
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
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
Anzeige
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
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige