Hallo Zusammen,

ich brauche dringend VBA-Hilfe.

Folgendes Problem:

Ich habe ein VBA-Programm, das die Inhalte einer beliebigen Excel-Datei in eine xml-Datei mit Hilfe des Print-Statements umwandelt. Das Programm geht dabei alle Tabelle durch und schreibt die Inhalte von diesen in eine xml-Datei aus. Nun möchte ich dem User die möglichkeit geben bestimmte Tabellenblätter davon auszuschliessen. Das heisst, er soll beim Ausführen des Programms eine Auswahlmaske zu sehen bekommen, wo alle Tabellenbläter mit Nahmen als ausgewählt aufgelistet sind und beim Bedarf den einen oder anderen Tabellenblatt aus der Auswahl enfernen.

Um die Tabellenblätter anzusprechen benutze ich aktuell folgenden Konstrukt:

    intSheets = ActiveWorkbook.Sheets.Count

    For AktTab = 1 To intSheets

    Set rngUsed = ActiveWorkbook.Sheets(AktTab).UsedRange