Thema Datum  Von Nutzer Rating
Antwort
Rot Update Problem
 29.03.2011 16:13:10 sheQ
NotSolved
29.03.2011 16:45:50 Severus
****
NotSolved
30.03.2011 13:25:40 Gast73683
NotSolved
30.03.2011 14:32:11 Severus
*****
Solved
31.03.2011 15:26:10 sheQ
NotSolved
30.03.2011 13:46:55 Severus
NotSolved

Ansicht des Beitrags:
Von:
sheQ		 Datum:
29.03.2011 16:13:10		 Views:
1878		 Rating:
     
Antwort:
  Ja
Thema:
Update Problem

Hallo Zusammen,

ich habe eine Funktion geschrieben, die einen Wert aus einer Zelle in Excel jede Sekunde kopiert und ihn dann in eine andere schreibt (siehe code). Das Problem ist, dass es wunderbar funktioniert wenn ich den "Play" Button drücke jedoch nicht wenn ich ich die Funktion mit z.b. =WENN(A1>20;test()) starte. Ich sehe durch kurzes aufblinken, dass der code durchlaufen wird, jedoch werden die Werte nicht in die Spalte geschrieben. Da der in "A1" später mal Werte von einem Webservice kommen ist es jedoch wichtig, dass ich die Funktion starten kann wenn sich A1 über eine bestimmt Grenze bewegt. 

 

Hier mal der Codeausschnitt:

Public Function test()

    For i = 1 To 20
        
        Start = Timer
        Do             'Zeitverzögerung
            Zeit = Timer - Start
        Loop Until Zeit >= 1
        
                 Worksheets("Tabelle1").Range("A1").Copy
                Worksheets("Tabelle1").Range("B" + CStr(i)).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=False
    
    Next i

End Function


schon mal im vorraus danke für die Hilfe!!

Grüße
sheQ

 

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 Update Problem
 29.03.2011 16:13:10 sheQ
NotSolved
29.03.2011 16:45:50 Severus
****
NotSolved
30.03.2011 13:25:40 Gast73683
NotSolved
30.03.2011 14:32:11 Severus
*****
Solved
31.03.2011 15:26:10 sheQ
NotSolved
30.03.2011 13:46:55 Severus
NotSolved