ich habe für die Druckausgabe meiner Arbeitsmappe einen Array erstellt in den die auszudruckenden Tabellenblätter geschrieben werden sollen. Die Anzahl der Tabellenblätter kann im Voraus leider nicht ermittelt werden, da sie von den Eingaben des Nutzers abhängt.
Nun bekomme ich jedoch die Fehlermeldung, dass die Typen unverträglich sind.
Hier kommt nun einmal mein Code:
Option Explicit
Public blaetterwahl
Sub drucken_Click()
If kalk_ekt.Value = True Then
ReDim Preserve blaetterwahl(UBound(blaetterwahl) + 1)
blaetterwahl(UBound(blaetterwahl)) = "EkT"
End If
End Sub