Hi Leute, 
ich hab eine Frage zu Globalen Variablen. 

'Spalten
 Public column_Matnr, column_preis As integer 

Zunächst werden diese in der Sub "read_input_columns" eingelesen. Jede Spalte hat eine Überschrift, welche abgefangen wird und 
anschließend wird diese spalte einer zahl zugeordnet, sodass ich immer über den namen die spalte aufrufen kann. Theoretisch jedenfalls...
Leider enthalten die globalvariablen keine Werte! warum?

read_input_columns()
   'Lese Spaltennummern ein
    For i = 1 To Sheets("Daten").Cells.SpecialCells(xlCellTypeLastCell).Column
        Select Case Sheets("Daten").Cells(2, i).Value
            'Parameter
            Case "SAP-Mat-Nr."
                 column_Matnr = i
            Case "Preis"
                column_preis = i
            Case "Demands"
                column_demands = i
            Case "Planlieferzeit"
                column_PLT = i
            Case "Zielbestand"
                column_ZB = i
            Case Else
        End Select
    Next i


In der Funktion "Daten einlesen" möchte ich gerne diese globalvariablen, welche oben zugewiesen wurden, nutzen...
leider werden sie jedoch als leer angezeigt. Wie kann das sein? ich rufe die obere Sub VOR der Funktion "DatenEinlesen" auf.

Function DatenEinlesen()

Dim zeilenanzahl, Spaltenanzahl As Integer
zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row - 2
Spaltenanzahl = Sheets("Daten").Cells.SpecialCells(xlCellTypeLastCell).Column

Dim SAPMatNr() As Double
ReDim SAPMatNr(zeilenanzahl)
Dim Preis(5) As Double

    For i = 1 To Worksheets("Daten").Cells.SpecialCells(xlCellTypeLastCell).Row
    
        'Parameter
        Select Case Sheets("Daten").Cells(2, i).Value
               
            Case "SAP-Mat-Nr."
                For j = 0 To zeilenanzahl - 1
                'Debug.Print j
                       SAPMatNr(j) = Worksheets("Daten").Cells(j + 3, column_Matnr).Value
                Next j
            Case "Preis"
                For j = 0 To zeilenanzahl - 1
                       Preis(j) = Worksheets("Daten").Cells(j + 3, column_preis).Value
                       Debug.Print Preis(j)
                Next j
            Case Else
        End Select
    Next i

vielen Dank für eure hilfe..ich finde den fehler einfach nicht!! :(