Option Explicit
Sub Beispiel()
Const Drehzahl_Flügel As Long = 100
Const Strom_Flügel As Long = 20
Const Leistung_Flügel As Long = 1200
Const Drehrichtung_Flügel As Long = 1
Dim Motordaten As Variant
Motordaten = Array( _
Array("Drehzahl Flügel in 1/min", Drehzahl_Flügel), _
Array("Strom Flügel in A", Strom_Flügel), _
Array("Leistung Flügel in kW", Leistung_Flügel), _
Array("Drehrichtung Flügel", Drehrichtung_Flügel) _
)
Debug.Print "'"; Motordaten(0)(0); "'", Motordaten(0)(1)
Debug.Print "'"; Motordaten(1)(0); "'", Motordaten(1)(1)
Debug.Print "'"; Motordaten(2)(0); "'", Motordaten(2)(1)
Debug.Print "'"; Motordaten(3)(0); "'", Motordaten(3)(1)
End Sub