Thema Datum  Von Nutzer Rating
Antwort
20.12.2008 00:26:45 Usunov, Ludmil
NotSolved
Blau Aw:Aktualisieren von Funktionsergebnissen
 22.12.2008 13:39:58 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
22.12.2008 13:39:58		 Views:
758		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Aktualisieren von Funktionsergebnissen
Hallo Usunov, Ludmil,
sehe ich das richtig, dass immer wenn in einer der Zellen in der Zeile1 oder Zeile2 in den angegebenen Spalten ein "T" steht, TS um 1 erhöht werden soll. Verstehst du unter Aktualisierung die Ergebnisausgabe?
Wenn das Ergebnis in die Zelle Ergebnisspalte,Ergebniszeile geschrieben werden soll, kannst du die Funktion z.B. mit folgenden Makro aufrufen:
sub Zeiterfassung()
cells(Ergebniszeile,Ergebnisspalte)=TS
end sub

Wahrscheinlich braucht du für deine Anwendung keine Funktion zu definieren:
sub Zeiterfassung_1()
TS = 0
For Spalte = 3 To 17
If Cells(Zeile1, Spalte) = "T" Then TS = TS + 1
Next Spalte
For Spalte = 3 To 20
If Cells(Zeile2, Spalte) = "T" Then TS = TS + 1
Next Spalte
cells(Ergebniszeile,Ergebnisspalte)=TS
end sub
tut es auch. Falls du unter Aktualisierung etwas anderes verstehst, präzisiere bitte dein Anliegen.
Gruß
Holger


Usunov, Ludmil schrieb am 20.12.2008 00:26:45:

Ich muß eine Anwendung zur Zeitabrechnung erstellen. Mit den üblichen Excel-Formeln funktioniert es auch, die sind aber sehr lang und unübersichtlich. Daher habe ich mich an VBA getraut. Das erste Ergebnis ist o.k., allerdings zu lang:
=SUMME((C8="T")*1+(D8="T")*1+(E8="T")*1+(F8="T")*1+(G8="T")*1+(H8="T")*1+(I8="T")*1+(J8="T")*1+(K8="T")*1+(L8="T")*1+(M8="T")*1+(N8="T")*1+(O8="T")*1+(P8="T")*1+(C9="T")*1+(D9="T")*1+(E9="T")*1+(F9="T")*1+(G9="T")*1+(H9="T")*1+(I9="T")*1+(J9="T")*1+(K9="T")*1+(L9="T")*1+(M9="T")*1+(N9="T")*1+(O9="T")*1+(P9="T")*1+(Q9="T")*1+(R9="T")*1+(S9="T")*1)

In VBA habe ich folgendes produziert:
Public Function TS(Zeile1 As Integer, Zeile2 As Integer)
TS = 0
For Spalte = 3 To 17
If Cells(Zeile1, Spalte) = "T" Then TS = TS + 1
Next Spalte
For Spalte = 3 To 20
If Cells(Zeile2, Spalte) = "T" Then TS = TS + 1
Next Spalte
End Function

Allerdings aktualisieren sich die Werte nicht.

Die Formel in Excel:
=TS(ZEILE(C8);ZEILE(C9))

Kann mir Jemand helfen?

Danke im Voraus.

Ludmil

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
20.12.2008 00:26:45 Usunov, Ludmil
NotSolved
Blau Aw:Aktualisieren von Funktionsergebnissen
 22.12.2008 13:39:58 Holger
NotSolved