Visual Basic :  Clever-Forum.eu - nur zum Testen The fastest message board... ever.
VB - der große Bruder von VBA mit dem man eigenständige Programme erstellen kann.
Der Codeaufbau hat starke Ähnlichkeiten mit dem VBA der Officeprogramme. 
Function rechnet nicht automatisch
Posted by: Nobodywolf ()
Date: January 19, 2012 08:21PM

Guten Abend
Bin schon seit Stunden daran die anhängende Funktion zu entwickeln.
Sie soll bei gewissen erfüllten Kriterien einen Bereich zusammensählen.
Nun sind die Resultate zwar richtig, jedoch ändert man die Werte im Summenbereich
rechnet die Funktion nicht.
Habs mit Application.Volatile auch schon versucht, danach kommt #WERT.


Function Tagesstunden() As Variant
If ActiveCell.Offset(0, -27) <> "" Then
Zeile1 = ActiveCell.Row
Spr = 1
Zurück:
If ActiveCell.Offset(Spr, -27) <> "" Then GoTo ZumSchluss
Spr = Spr + 1
If ActiveCell.Offset(Spr, -27) = "" Then GoTo Zurück
ZumSchluss:
Spr = Spr - 1
Zeile2 = ActiveCell.Offset(Spr, -27).Row
Result = Application.WorksheetFunction.Sum(Range(Cells(Zeile1, 3), Cells(Zeile2, 27)))
Else
Result = ""
End If
Tagesstunden = Result
End Function

Für Eure Hilfe Danke ich.

Navigate: Previous MessageNext Message
Options: ReplyQuote


Subject Views Written By Posted
Function rechnet nicht automatisch 239 Nobodywolf 01/19/2012 08:21PM
Re: Function rechnet nicht automatisch 267 RaBe 01/20/2012 03:07PM


Your Name: 
Your Email: 
Subject: 
Spam prevention:
Please, enter the code that you see below in the input field. This is for blocking bots that try to post this form automatically. If the code is hard to read, then just try to guess it right. If you enter the wrong code, a new image is created and you get another chance to enter it right.
CAPTCHA
This forum powered by Phorum.