Hilfe bei Code

Bild

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

Bild


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


Bild


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


Bild


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


Bild


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


Bild

Beiträge aus den Excel-Beispielen zum Thema " Diagramm je nach jedem Eintrag autom. aktualisiere"