Hallo Leute,
würd gern aus einer Excel-Tabelle einen bestimmten Bereich in ein VBA-Array einlesen. Danach sollen die Werte aus diesem Array einzeln ausgelesen werden und abgearbeitet werden mit einem anderen Programm (Arena). Hab bischen was geschrieben, funkt aber nich richtig. Kann mir jemand villeicht bitte helfen? Danke!
LG Naddel
Edit by Agent: VBA gehört ins VBA-Forum -> verschoben + VB-Tag eingefügt
würd gern aus einer Excel-Tabelle einen bestimmten Bereich in ein VBA-Array einlesen. Danach sollen die Werte aus diesem Array einzeln ausgelesen werden und abgearbeitet werden mit einem anderen Programm (Arena). Hab bischen was geschrieben, funkt aber nich richtig. Kann mir jemand villeicht bitte helfen? Danke!
LG Naddel
Visual Basic-Quellcode
- 'Ausführung des VBA-Blocks zur Steuerung der Simulation mit Hilfe von VBA
- Private Sub VBA_Block_2_Fire()
- Dim s As SIMAN
- Set s = ThisDocument.Model.SIMAN
- Dim sArray() As String 'das Array
- Dim iIndex As Integer 'Zähler für den Index
- Dim sRange As String 'der Range
- Dim iCells As Integer 'Anzahl der Zellen
- Dim iRow As Integer 'Schleifenzähler für die Zeilen
- Dim iCol As Integer 'Schleifenzähler für die Spalten
- Dim i As Integer
- sRange = "A3:A30" ' Range festlegen
- ' Die Anzahl der Zellen ermitteln
- iCells = Range(sRange).Cells.Count
- ' Das Array per Redim dimensionieren
- ReDim sArray(iCells - 1)
- 'nun über alle Zeilen und Spalten die Werte ins Array einlesen
- For iCol = 1 To Range(sRange).Columns.Count
- For iRow = 1 To Range(sRange).Rows.Count
- sArray(iIndex) = sRange 'Range(sRange).Cells(iRow, iCol).value
- iIndex = iIndex + 1
- Next
- Next
- For i = 1 To UBound(sArray)
- If sArray(i) <> 0 Then
- s.EntityAttribute(s.ActiveEntity, s.SymbolNumber("EndRun")) = sArray(i)
- Exit For
- End If
- Next i
- End Sub
Edit by Agent: VBA gehört ins VBA-Forum -> verschoben + VB-Tag eingefügt
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Agent“ ()