Hilfe bei Code

• Hilfe bei Code von Jens vom 04.12.2003 18:14:24
  • AW: Hilfe bei Code - von PeterW am 04.12.2003 18:21:11
    • AW: Hilfe bei Code - von Günther Abel am 04.12.2003 20:06:29
      • AW: Hilfe bei Code - von PeterW am 04.12.2003 20:24:41
        • AW: Hilfe bei Code - von Jens am 04.12.2003 20:43:52

Betrifft: Hilfe bei Code
von: Jens
Geschrieben am: 04.12.2003 18:14:24
Hallo zusammen
wer kann mir helfen?
Ich will in einer TB prüfen ob in der activen Zeile in Spalte 3 und 4 ein Eintrag ist und wenn ja dann soll eine Formel eingefügt werden. Dieses soll in einer Schleife von der Zeile 12 bis zur letzten gefüllte Zeile in TB geschehen. Ich habe schon eine Ansatz aber muß jetzt Hilfe suche da ich selbst nicht weiter komme:

Sub NeuBerechnen()
z = 12
For i = z To 1 Step 1
If Cells(ActiveCell.Row, 3) And Cells(ActiveCell.Row, 4) = "" Then
Exit Sub
Else
Cells(ActiveCell.Row, 5).FormulaR1C1 = "=rc[-2]*rc[-1]"
i = ActiveCell.Row
End If
Next i
End Sub

Betrifft: AW: Hilfe bei Code
von: PeterW
Geschrieben am: 04.12.2003 18:21:11
Hallo Jens,

soll unter der Bedingung, dass Spalte 3 UND 4 leer sind wirklich die Schleife verlassen werden?

Sub NeuBerechnen()
Dim z As Integer
Dim i As Integer
z = 12
For i = z To 1 Step -1
If Cells(i, 3) = "" And Cells(i, 4) = "" Then
Exit Sub
Else
Cells(i, 5).FormulaR1C1 = "=rc[-2]*rc[-1]"
End If
Next i
End Sub

Gruß
Peter

Betrifft: AW: Hilfe bei Code
von: Günther Abel
Geschrieben am: 04.12.2003 20:06:29
Hallo miteinander,

Peter geht von Zeile 12 rückwärts zu Zeile 1,
das wollte Jens so nicht:

Sub NeuBerechnen()
Dim x As Long, y As Long
'   Letzte belegte Zeile in der aktiven Tabelle
y = Cells.Find("*", [a1], xlFormulas, , xlByRows, xlPrevious).Row
For x = 12 To y
'     Oder... - Fehler, wenn
If Cells(x, "c") = "" And Cells(x, "d") = "" Then
'        Mach nix....
'        Exit - Glaub ich nicht
Else
Cells(x, "e").FormulaR1C1 = "=rc[-2]*rc[-1]"
End If
Next x
End Sub

Viel Spass
Günther

Betrifft: AW: Hilfe bei Code
von: PeterW
Geschrieben am: 04.12.2003 20:24:41
Hallo Günther,

hast Recht, hatte mich von "12 to 1" irritieren lassen. Gut, dass andere hier im Forum aufmerksam mitlesen. :-)

Gruß
Peter

Betrifft: AW: Hilfe bei Code
von: Jens
Geschrieben am: 04.12.2003 20:43:52
vielen Dank für eure Hilfe, genau so sollte es funktionieren.

Danke Jens