Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Letzte ausgefüllte Zeile

Forumthread: Letzte ausgefüllte Zeile

Letzte ausgefüllte Zeile
23.05.2002 13:31:42
R@lf Kredel
Habe eine Tabelle mit 4 Spalten. Möchte daneben Formeln eintragen , wobei die Zeilenanzahl der Anzahl der Zeilen der Tabelle entsprechen soll.

Habs soweit( der Range soll jetzt flexibel werden):

Worksheets("Auswertung").Range("F1:F6014").Select
Selection.FormulaR1C1 = "=IF(RC[-3]>AVERAGE(R2C[-3]:R10C[-3])+0.3,RC[-3],"""")"

Danke im Voraus für die Antwort
Ralf

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Letzte ausgefüllte Zeile
23.05.2002 15:45:03
Kay.O
Hi, versuchs mal so ->

Sub ...()
Dim letzteZeile As Integer
Dim rangefake as string
letzteZeile = Sheets("Auswertung").UsedRange.Rows.Count
rangefake = "F1:F" & letzteZeile

Worksheets("Auswertung").Range(rangefake).Select
Selection.FormulaR1C1 = "=IF(RC[-3]>AVERAGE(R2C[-3]:R10C[-3])+0.3,RC[-3],"""")"

End Sub


Thats it ;)
viel Spaß
Kay

Anzeige
Re: Letzte ausgefüllte Zeile
23.05.2002 15:48:19
R@lf
Es funzt....

Danke Dir

;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige