ReDim Preserve

(Ziel: wenn eine Zahl glatt teilbar ist, dann soll die Nenner und Teiler in das Array eingetragen werden) Sub Division() Dim i As Long, j As Long, a As Long, LongA() As Long i = 0 j = 5 a = 1 For i = 1 To 5000 If i Mod j = 0 Then ReDim Preserve LongA(a,2) LongA(a, 1) = i LongA(a, 2) = j a = a + 1 End If Next i End Sub Könnt ihr mal schauen, wo der Fehler liegt. Ich komme irgendwo nicht drauf

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: ReDim Preserve

30.05.2022 09:36:34

Rudi

AW: ReDim Preserve

30.05.2022 09:38:51

Oberschlumpf

AW: ReDim Preserve

30.05.2022 09:52:26

Jan

AW: ReDim Preserve

30.05.2022 10:11:26

Oberschlumpf

AW: ReDim Preserve

30.05.2022 09:59:59

Alwin

AW: ReDim Preserve

30.05.2022 10:09:22

Alwin

AW: ReDim Preserve

30.05.2022 11:06:32

Rudi

AW: ReDim Preserve

30.05.2022 14:16:54

Yal

Sub Division() Dim i As Long, j As Long, a As Long, LongA() As Long 'Definition der Variablen i = 0 j = 5 a = 1 'Schleife für die Nenner des Bruchs For i = 1 To 5000 ' Ist der Nenner glatt durch den Teiler teilbar, dann trage ihn ins Array ein, sonst mache nichts If i Mod j = 0 Then ' Vergrößere das Array entsprechend, a ist die Zeilennummer ReDim Preserve LongA(a,2) ' Tage Teiler und Nenner in die Spalten ein (a Zeile, Zahl = Spalte) LongA(a, 1) = i LongA(a, 2) = j ' Erhöhe die Zeilennummer um eins a = a + 1 End If Next i End Sub

Sub Division() Dim i As Long, j As Long, a As Long, LongA() As Long 'Definition der Variablen i = 0 j = 5 a = 1 ReDim LongA(1, 0) 'Schleife für die Nenner des Bruchs For i = 1 To 5000 ' Ist der Nenner glatt durch den Teiler teilbar, dann trage ihn ins Array ein, sonst mache nichts If i Mod j = 0 Then ' Tage Teiler und Nenner in die Spalten ein (a Zeile, Zahl = Spalte) LongA(0, UBound(LongA, 2)) = i LongA(1, UBound(LongA, 2)) = a ' Vergrößere das Array entsprechend, a ist die Zeilennummer ReDim Preserve LongA(1, UBound(LongA, 2) + 1) ' Erhöhe die Zeilennummer um eins a = a + 1 End If Next i ReDim Preserve LongA(1, UBound(LongA, 2) - 1) Stop 'hier stoppt der Code; schau dir mal den Inhalt von LongA im Überwachungsfenster an End Sub

Sub Division() Dim i As Long, j As Long, k As Long, LongA() As Long i = 0 j = 5 k = 0 For i = 1 To 5000 If i Mod j = 0 Then k = k + 1 Next i ReDim LongA(k - 1, 2) k = 0 For i = 1 To 5000 If i Mod j = 0 Then LongA(k, 1) = i LongA(k, 2) = j k = k + 1 End If Next i End Sub

Sub Division() Dim i As Long, j As Long, a As Long, LongA() As Long Dim objDiv As Object, oDiv Set objDiv = CreateObject("scripting.dictionary") j = 5 For i = 1 To 5000 If i Mod j = 0 Then objDiv(i) = j End If Next i ReDim LongA(1 To objDiv.Count, 1 To 2) For Each oDiv In objDiv a = a + 1 LongA(a, 1) = oDiv LongA(a, 2) = objDiv(oDiv) Next oDiv Set objDiv = Nothing End Sub

Hallo Jan,
auf Basis der gegebenen Schnipsel würde ich es so zusammmenfassen:


Sub Division()
Dim i As Long
Dim Liste()
'Definition der Variablen
Const cTeiler = 5
Const cEnde = 5000
ReDim Liste(Int(cEnde / cTeiler), 2)
'Schleife für die Nenner des Bruchs
For i = cTeiler To Int(cEnde / cTeiler)
Liste(i, 0) = i * cTeiler
Liste(i, 1) = cTeiler
Next i
End Sub

Aber verallgemeint und wie bereits gesagt: nur die letzte Dimension ist redimensionierbar.


Sub Division()
Dim i As Long
Dim Liste()
'Definition der Variablen
Const cTeiler = 5
Const cEnde = 5000
ReDim Liste(1, 0)
'Schleife für die Nenner des Bruchs
For i = cTeiler To cEnde
If i Mod cTeiler Then
Liste(0, UBound(Liste)) = i
Liste(1, UBound(Liste)) = cTeiler
ReDim Preserve Liste(1, UBound(Liste) + 1)
End If
Next i
ReDim Preserve Liste(1, UBound(Liste) - 1)
End Sub

Da aber Liste eine lokale Variable und daraus nichts gemacht wird, ist der Code in diesem Stand nicht vollständig.
VG
Yal

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread