Hallo zusammen,
bin blutiger VBA Anfänger und daher zu doof, fogendes Makro
Sub Iteration()
Do Until Range(„CI39“).Value
Hallo Iterati
Eine Zelle kann man auch so angeben
Range(„CF39“).Select
Die 84 steht für CF
Range(Cells(39, 84)).Select
Jetzt kann z.B die Zellenbezüge verändern in dem man die Zahlen 39 und 84 in Variablen schreibt.
row1 = 39
row2 = 84
Range(Cells(row1, row2)).Select
vielleicht hilft dir das.
Grüß Werner
Hallo Werner,
Danke für Deine schnelle Antwort. Ich habe es auch schon mit dem Cells Befehl versucht, aber leider auch ohne Erfolg. Trotzdem vielen Dank.
Gruß, Iterati
Hallo Werner,
ich habe es jetzt nochmals ganz anders vesucht und eine Lösung gefunden. Hab die Frage also wohl zu schnell gepostet. Falls es von Interesse ist, der funktionierende Code sieht so aus:
Sub relativeIteration()
’ beim Starten des Makros muss der Cursor im obersten DT-Feld positioniert werden
Dim i As Integer
For i = 1 To 1000
If ActiveCell.Value > 0.005 Then
Do Until ActiveCell.Value -0.005
ActiveCell.Offset(0, -3).Select
ActiveCell.Value = ActiveCell.Value - 1
ActiveCell.Offset(0, 3).Select
Loop
End If
ActiveCell.Offset(1, 0).Select
Next
End Sub
-), Iterati
Ahoi!
so aus dem Kopf, ohne Syntax-Check durch VB:
Sub Iteration()
Dim Zeile as Long
For Zeile = 39 To 1039
Do Until Range(„CI“ & Zeile).Value Bedingung komisch … du erhöhst immer +1, und zwar so lange bis der Wert kleiner 0.005 ist?
Entweder wird die Do-until-Schleife dann nach einem Durchlauf beendet (wenn der Wert der Zelle vorher kleiner gleich -0.995 war( oder es ist eine Endlosschleife, weil durch Erhöhung um +1 die Zahl ja nicht verringert wird (und somit nicht KLEINER 0.005 wird) …
Hallo Iterati,
pack einfach ne Schleife drum rum:
Sub Iteration2()
erste_Zeile = 39
letzte_Zeile = 1039
For Zeile = erste_Zeile To letzte_Zeile
Do Until Cells(Zeile, 84).Value