Zähler in Tabelle erhöhen
22.05.2019 17:08:11
Fabian
ich sitze schon ein Stück an meinem Problem, aber finde einfach keine funktionierende Lösung...
Ich habe mit Markos eine for schleife erstellt, die mir die Werte für eine Rechnung von 1 bis 10000 ausgeben soll.
Mein Problem ist, dass die Ergebnisse immer in einen Feld überschrieben werden, anstatt das diese in einer Tabelle ausgegeben werden.
Kann mir bitte jemand helfen in den Code einen Zähler zu integrieren der die Ausgabe immer um eins erhöht?
wäre echt top
Fabian
Sub Graphen()
Dim n As Double
Dim b As Integer
Worksheets("Eingabe").Activate
Worksheets("Berechnung").Activate
Worksheets("graphen").Activate
For n = 1 To 1000
Cells(n + 4, 1).Value = n
b = 4
Worksheets("Eingabe").Range("E37").Value = n
Worksheets("Berechnung").Range("C77").Copy Destination:=Worksheets("graphen").Cells(b + 4, 3)
Next n
End Sub