Herbers Excel-Forum - das Archiv
Berechnung mit wenn-Formel
- Berechnung mit wenn-Formel von Heike vom 10.10.2003 13:43:31
- Crossposting - von Berai am 10.10.2003 13:55:02
- AW: Crossposting - von Cross am 10.10.2003 20:05:32
- AW: Crossposting - von Reinhard am 10.10.2003 23:33:43
- AW: Crossposting - von Reinhard am 10.10.2003 23:33:43
- AW: Crossposting - von Cross am 10.10.2003 20:05:32
- Crossposting - von Berai am 10.10.2003 13:55:02
 |
Betrifft: Berechnung mit wenn-Formel
von: Heike
Geschrieben am: 10.10.2003 13:43:31
Hallo Profis,
ich möchte den Verbrauch anhand von Zählerständen berechnen (Stand nächster Arbeitstag minus letzter Arbeitstag). Am Wochenende und an Feiertagen bleiben die Zeilen leer. Wie kann ich dem Computer sagen, dass er bei der Berechnung die leeren Zellen vom Wochenende/Feiertag "überspringen" und den Verbrauch aus den Zellen vom nächsten Arbeitstag abzüglich letzten Arbeitstag berechnen soll? (z. B. Zählerstand Montag minus vergangener Freitag, bei Wochenfeiertag am Mittwoch Zählerstand Donnerstag minus letzter Dienstag usw.)
Nur mit Wochenende hätte ich eine Formel, mein Problem ist ein dazwischenliegender Feiertag.
Version Excel 2002
Viele Grüße
Heike
 |
Betrifft: Crossposting
von: Berai
Geschrieben am: 10.10.2003 13:55:02
schon in zwei Foren beantwortet
|
Betrifft: AW: Crossposting
von: Cross
Geschrieben am: 10.10.2003 20:05:32
Hat dir heut morgen einer in den Kopf geschissen, oder was?
|
Betrifft: AW: Crossposting
von: Reinhard
Geschrieben am: 10.10.2003 23:33:43
Option VeryExplicit
Function LohntSichAntwort(Satz As String)
Dim Wort As String
Dim Niveau As Long
Dim Sinn As Boolean
Sinn = False
Niveau = 0
For Each Wort In Satz
If Wort has Sinn Then
Sinn = True
End If
If Wort has Niveau then
Niveau = Niveau + 100
Else
Niveau = Niveau - 100
End If
Next Wort
If Sinn = True Or Niveau > 0 Then
LohntSichAntwort = "ja"
Else
LohntSichAntwort = "nö"
End If
End Function
Sub test()
MsgBox LohntSichAntwort("Hat dir heut morgen einer in den Kopf geschissen, oder was?")
End Sub
| |