TabellenGruppe bearbeiten mit VBA
09.10.2003 16:06:06
LotharP
ich schon wieder.
Hab' (nein wollte)mir ein kleines Makro basteln, welches in einem Workbook die Inhalte aller Tabellen, bis auf Überschriften, löscht.
Das ganze sieht so aus:
Sub ANSGLAR()
' die Datei wird geleert, heisst in allen Feldern der
' Datei, ohne Überschriften, werden die Inhalte gelöscht
Dim Frooge
Frooge = MsgBox("möchten Sie die Daten löschen und neu einlesen?", vbYesNo)
If Frooge = vbNo Then
Exit Sub
Else
End If
Sheets(Array("PLAN", "PlanVerz", "Fehler")).Select
Rows("2:65536").ClearContents
Sheets("PLAN").Activate
End Sub
Irgendwie macht er das aber nur im aktuellen Blatt, Warum??!
Klar könnte ich das jetzt Blatt für Blatt durchlaufen lassen, aber eigentlich müsste das doch auch so funktionieren?
Was ist verkehrt?
Gruß
Lothar