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!! :(
|