|
So, ich habe es mir etwas kompliziert gemacht, da ich nur die ersten 1200 Werte untersuchen muss. Diese will ich dann auf dem Tabellenblatt 2 in der ersten Spalte unterinenader ausgeben...leider habe ich hierbei einen Fehler:
Dim wb As Workbook
Set wb = Workbooks("Kopie von.xlsm")
Dim ws1 As Worksheet
Set ws1 = Worksheets("Siemens")
Dim ws2 As Worksheet
Set ws2 = Worksheets("Ausgabe")
Dim t As Long, n1 As Long
Dim St As Variant
Dim GleitDurch As Double
Dim i As Double
Dim M_max As Byte
M_max = InputBox("Bitte numerischen Wert eingeben:" & Chr(13) & "mat = (M_max x N_max)" & Chr(13) & Chr(13) & "M_max = ", "Dimension")
Dim N_max As Byte
N_max = InputBox("Bitte numerischen Wert eingeben:" & Chr(13) & "mat = (M_max x N_max)" & Chr(13) & Chr(13) & "N_max = ", "Dimension")
ReDim mat(M_max, N_max) As Double
Dim m As Byte
Dim n As Byte
t = ws1.Cells(1, 1).End(xlDown).Row
St = ws1.Range("G2:G" & t)
For i = 1 To 1200
GleitDurch = (WorksheetFunction.Sum(Range(ws1.Cells(i, 7), ws1.Cells(i + 60, 7))) / 60)
Next i
For m = 1 To M_max
For n = 1 To N_max
mat(m, n) = WorksheetFunction.RandBetween(0, 10)
Next n
Next m
Dim Ausgabe As Range: Set Ausgabe = ws2.Range(Cells(2, 1)
Ausgabe = mat
End Sub
|