Zählen der Tabellen mit numerischem Namen
17.03.2015 14:31:24
Erich
Dank einigen Foreneinträgen, habe ich was basteln können. Nun habe ich einen keinen Schönheitsfehler, den ich gerne anders lösen würde.
Ich definiere die zu druckenden/speichernden Tabellen via Anzahl Worksheets (TotTab) abzüglich Anzahl fixer Tabellen welche nicht numerische Namen haben - ich momentan aber als Wert in einer Tabelle hinterlege. Daraus ergibt sich dann die Anzahl numerisch benannter Tabellen, was gleichzeitig die Obergrenze der weiteren Definition bildet (MeldeTab).
Nun möchte ich eigentlich "nur" via Code die Tabellen mit numerischem Namen zählen können um die manuelle Eingabe zu ersetzen. Ist das möglich?
Besten Dank für die Unterstützung.
Erich
Sub Druck_Meldeformular_2()
Application.ScreenUpdating = False
Dim TotTab As Integer
Dim FixTab As Integer
Dim MeldeTab As Integer
TotTab = ThisWorkbook.Worksheets.count
FixTab = Sheets("Cockpit").Range("B17").Value '
MeldeTab = TotTab - FixTab
Dim arrSheets(300) As Variant
Dim count As Integer
For s = 0 To MeldeTab - 1
count = count + 1
arrSheets(s) = CStr(count)
Next s
For p = LBound(arrSheets) To UBound(arrSheets)
If p
Anzeige