Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1232to1236
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Schleife verwenden?

Schleife verwenden?
Jan
Hallo!
ich habe folgenden Code in einer Sub:
n_i_glied_1 = glied_1 * (1 / potenz_1) * vX ^ (potenz_1)
n_i_glied_2 = glied_2 * (1 / potenz_2) * vX ^ (potenz_2)
n_i_glied_3 = glied_3 * (1 / potenz_3) * vX ^ (potenz_3)
n_i_glied_4 = glied_4 * (1 / potenz_4) * vX ^ (potenz_4)
n_i_gesamt = n_i_glied_1 + n_i_glied_2 + n_i_glied_3 + n_i_glied_4
kann ich das mit einer for-schleife vereinfachen? ich habe schon probiert:
For i = 1 To 3
n_i_glied_& i = glied_&i * (1 / potenz_&i) * vX ^ (potenz_&i)
Next i
aber das geht irgendwie nicht. gibt es da eine möglichkeit?
Vielen Dank!
Gruß!

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Schleife verwenden?
02.10.2011 19:40:30
Josef

Hallo Jan,
so?

Sub jan()
  Dim glied(3) As Double, potenz(3) As Double, n_i_gesamt As Double
  Dim lngIndex As Long, vX As Long
  
  vX = 5
  
  glied(0) = 1
  glied(1) = 2
  glied(2) = 3
  glied(3) = 4
  
  potenz(0) = 1
  potenz(1) = 2
  potenz(2) = 3
  potenz(3) = 4
  
  For lngIndex = 0 To UBound(glied)
    n_i_gesamt = n_i_gesamt + glied(lngIndex) * (1 / potenz(lngIndex)) * vX ^ (potenz(lngIndex))
  Next
  
  MsgBox n_i_gesamt
  
End Sub



« Gruß Sepp »

Anzeige
AW: Schleife verwenden?
02.10.2011 19:52:08
Jan
Hallo!
das sieht gut aus, danke!
ich dachte das geht evtl. auch ohne diese arrays :-)
Danke sehr!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige