|
Servus beinand,
ich möchte in einer Schleife verschiedene Arrays ansprechen und deren Inhalt in verschiedene Tabellen schreiben.
Der Teil mit den Tabellen klappt, deshalb hab ich das mit den Zeilen und Spalten zugunsten der Übersicht mal weggelassen. In Wirklichkeit wird das ziemlich lang und ich möchte nicht 3 mal das gleiche nur mit verschiedenen Arraynamen schreiben.
Wie kann ich nun in Abhängigkeit von intCycle unterschiedliche Arrays ansprechen?
Vielen Dank für Eure Hilfe.
Grüße
Miguel
Public gvarDerNameEinesArrays() As Variant
Public gvarDerNameEinesAnderenArrays() As Variant
Public gvarDerNameEinesGanzAnderenArrays() As Variant
Sub Test()
Dim intCycle As Integer
Dim intLastRow As Integer
Dim strArrayName As String
Dim strSheetName As String
For intCycle = 1 To 3
If intCycle = 1 Then
strArrayName = gvarDerNameEinesArrays()
strSheetName = "DerNameEinesArbeitsblattes"
ElseIf intCycle = 2 Then
strArrayName = gvarDerNameEinesAnderenArrays()
strSheetName = "DerNameEinesAnderenArbeitsblattes"
ElseIf intCycle = 3 Then
strArrayName = gvarDerNameEinesGanzAnderenArrays()
strSheetName = "DerNameEinesGanzAnderenArbeitsblattes"
End If
ThisWorkbook.Worksheets(strSheetName).Cells.ClearContents
intLastRow = UBound(strArrayName, 1)
Next intCycle
End Sub
|