Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
344to348
344to348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hilfe bei Code

Hilfe bei Code
04.12.2003 18:14:24
Jens
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hilfe bei Code
04.12.2003 18:21:11
PeterW
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
AW: Hilfe bei Code
04.12.2003 20:06:29
Günther Abel
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
Anzeige
AW: Hilfe bei Code
04.12.2003 20:24:41
PeterW
Hallo Günther,

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

Gruß
Peter
AW: Hilfe bei Code
04.12.2003 20:43:52
Jens
vielen Dank für eure Hilfe, genau so sollte es funktionieren.

Danke Jens

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige