Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1600to1604
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

Variablen in For-Schleifen erzeugen

Variablen in For-Schleifen erzeugen
11.01.2018 21:04:33
Tim

Hallo zusammen,
ich komme gerade nicht weiter, hat jemand eine Idee?
Wie kann ich Variablen erzeugen?
For i = 1 To 99
Sheets("Sheet").Range("$A$9:$C$1000").AutoFilter Field:=2, Criteria1:="*" & i
Zahl & i = Sheets("Sheet").Range("F5").Value
Next
Das Fett markierte klappt leider nicht.
In der Zelle F5 steckt die Formel "=TEILERGEBNIS(9;C10:C1000)"
Es soll 99x ein Filter gesetzt werden
und jeweils eine Variable mit dem Inhalt der Zelle F5 befüllt werden.
Zahl1 =
Zahl2 =
.
.
Zahl99=
Jemand eine Idee warum das nicht funktioniert?
lg und Danke Tim

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Variablen in For-Schleifen erzeugen
11.01.2018 21:15:48
Sepp
Hallo Tim,
so geht das nicht, aber z.B. so.
Sub tim()
Dim i As Long, zahl(1 To 99) As Long

With Sheets("Sheet")
  For i = 1 To 99
    .Range("$A$9:$C$1000").AutoFilter Field:=2, Criteria1:="*" & i
    zahl(i) = .Range("F5").Value
  Next
End With
End Sub

Gruß Sepp

Anzeige
AW: Variablen in For-Schleifen erzeugen
11.01.2018 21:38:40
Tim
Ahh Danke Sepp,
funktioniert prima.
Das mit dem Zahl(i) hatte ich auch probiert, hatte bei mir nicht funktioniert, weil ich nicht mit Dim Zahl(1 to 99) definiert habe.
Top Vielen Dank
Gruß Tim
AW: Variablen in For-Schleifen erzeugen
11.01.2018 22:30:14
Tim
Darf ich noch mal eine Frage in die Runde Werfen?
Wie kann ich den den nun mit den Variablen Rechnen?
Summe aus Zahl(1) bis Zahl(99)
Mittelwert (Die Summe durch 99 teilen)
Höchsterwert
Gibt es eine Art Formelsammlung für VBA?
AW: Variablen in For-Schleifen erzeugen
11.01.2018 22:46:08
Tim
Ich habe das nun so gelöst, bestimmt geht es auch einfacher?
For i = 1 To 99
Summe = Summe + zahl(i)
Next
Mittelwert = Summe / 99
Debug.Print "Summe: " & Summe
Debug.Print "Mittelwert: " & Mittelwert
Leider hat der Mittelwert zu viele Nachkomma stellen, obwohl Mittelwert As Double.
Double heißt eigentlich 2 Kommata, dachte ich.
Anzeige
AW: Variablen in For-Schleifen erzeugen
11.01.2018 22:50:00
Sepp
Hallo Tim,
MsgBox Application.Sum(zahl)
MsgBox Application.Average(zahl)

Gruß Sepp

AW: Und Double hat nichts ...
11.01.2018 23:42:49
Tim
Danke, da habe ich ja heute wieder einiges gelernt.
Falls noch jemand das Problem hat...
Für Rundung auf 2 Stellen:
MsgBox Application.Round(Application.Average(zahl), 2)
Der Höchste Wert:
MsgBox Application.Max(zahl)
Danke Sepp
Gute N8
Tim

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige