Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
688to692
688to692
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel berechnen

Forumthread: Formel berechnen

Formel berechnen
03.11.2005 09:45:15
lexika
Hi,
kann mir vielleicht jemand sagen was man in folgender Formel änder muß damit der Wert auch berechnet wird wenn es weniger zeilen sind?
mittelwert_feuchte = WorksheetFunction.Average(Sheets("Sensor 1").Range("I" & ly - 3000 & ":I" & ly))
Danke
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel berechnen
03.11.2005 10:27:26
Harald
Moin werauchimmer
1. hast Du immer die selbe Startzelle ?
2. mittelwert ignoriert leere Zellen
Gruß
Harald
AW: Formel berechnen
03.11.2005 10:36:48
lexika
Hallo Harald,
die Startzelle ist nur fest falls es weniger als 3000 Zeilen sind danach wird der mittelwert von den letzten 3000Werten gebildet.
versuche es gerade mit einer if else anweisung
vielleicht klappts
Gruß
lexika
Anzeige
AW: Formel berechnen
03.11.2005 10:49:45
lexika
Hi,
hier der versuch mit if else, funktioniert leider nicht.
vielleicht hat ja jemand ne Idee
If Not Rows(3021).Hidden Then
If Sheets("Sensor 1").Cells(3021, 6).Value "" Then
mittelwert_temp = WorksheetFunction.Average(Sheets("Sensor 1").Range("H" & ly - 3000 & ":H" & ly))
Cells(21, 19) = mittelwert_temp
Else:
mittelwert_temp = WorksheetFunction.Average(Sheets("Sensor 1").Range("H21" & ":H" & ly))
Cells(21, 19) = mittelwert_temp
End If
End If
Danke
Anzeige
AW: Formel berechnen
03.11.2005 11:04:12
ingoG
Hallo ?
versuchs mal so:
mittelwert_temp = WorksheetFunction.Average(Sheets("Sensor 1").Range("H" & iif(ly &gt6000,ly-3000,3000) & ":H" & ly))
oder mit
mittelwert_temp = WorksheetFunction.Average(Sheets("Sensor 1").Range("H" & WorksheetFunction.max(3000,ly-3000) & ":H" & ly))
Gruß Ingo
PS eine Rückmeldung wäre nett...
Anzeige
AW: Formel berechnen
03.11.2005 11:08:34
Harald
Hallo Lexika...scheint wirklich dein Name zu sein ;-))

Sub letzter()
Dim LRow As Integer, ERow As Integer
Dim mittelwert_feuchte As String
LRow = Sheets("Sensor 1").Cells(Rows.Count, 8).End(xlUp).Row
If LRow <= 3000 Then
ERow = 2
Else
ERow = LRow - 2999
End If
mittelwert_feuchte = WorksheetFunction.Average(Sheets("Sensor 1").Range("H" & ERow & ":H" & LRow))
MsgBox mittelwert_feuchte
End Sub

Ähmmm feuchte... temp...watt den nu ? ;-))
Mußte anpassen. Und die Abfrage nach ausgeblendeter Zeile geht so
If rows(3021).hidden = true then '=ausgeblendet. Sichtbar wäre hidden=false
etc.
Gruß
Harald
Anzeige
Danke
03.11.2005 11:27:49
lexika
Hi Ihr beiden,
vielen Dank für Eure Hilfe.
es läuft :-)
Gruß
lexika
AW: Danke für deine Rückmeldung owT
03.11.2005 11:54:08
Harald
Gruss Harald
;

Beliebteste Forumthreads (12 Monate)

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