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

Ansicht des Beitrags:
Von:
Usunov, Ludmil		 Datum:
20.12.2008 00:26:45		 Views:
1549		 Rating:
     
Antwort:
  Ja
Thema:
Aktualisieren von Funktionsergebnissen
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
Rot Aktualisieren von Funktionsergebnissen
 20.12.2008 00:26:45 Usunov, Ludmil
NotSolved
22.12.2008 13:39:58 Holger
NotSolved