Problem mit VBA Loop
markus
ich starre jetzt schon ewig auf dieses makro aber es läuft nicht.
die selection springt immer zwischen a30 und a29 hin und her.
problem: in der spalte sind zellen entweder als zahl oder text markiert. ich möchte immer in einer zelle die text ist UND über einer zahl steht den wert der zelle mit zahl zur berechnung nutzten (-1).
also meintetwegen
a2 xxy
a3 xxx
a4 45
a5 75
dann soll in a3 a4-1 gerechnet werden, das soll aber nicht mit a5 oder a2 passieren
Zurzeit sieht es so aus.
Sub Loop4()
Dim Zelle As Range
Range("a30").Select
For Each Zelle In Selection
Do
If Zelle.NumberFormat = "0" Then
ActiveCell.Offset(-1, 0).Select
Else: ActiveCell.Offset(1, 0).Select
If Zelle.NumberFormat = "0" Then
ActiveCell.Offset(-1, 0).Select
ActiveCell.FormulaR1C1 = "=R[1]C-1"
End If
End If
ActiveCell.Offset(-1, 0).Select
Loop Until ActiveCell.Range("a1")
Next
End Sub
danke für eure hilfe