Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
688to692
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
688to692
688to692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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...
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige