Thema Datum  Von Nutzer Rating
Antwort
29.03.2011 16:13:10 sheQ
NotSolved
29.03.2011 16:45:50 Severus
****
NotSolved
30.03.2011 13:25:40 Gast73683
NotSolved
Blau Update Problem
 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:
Severus		 Datum:
30.03.2011 14:32:11		 Views:
1201		 Rating:
     
Antwort:
 Nein
Thema:
Update Problem

Ich habe mir das mal genauer angeschaut (Sorry, war vorher zu faul) So wird das eh nicht funktionieren.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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

ist eigentlich keine Funktion im üblichen Sinn, sondern eine Prozedur.

Eine Funktion ist etwas, das einen Rückgabewert liefert:

?
1
2
3
4
5
6
7
Public Function test(ByVal Target As Excel.Range, ByVal Par as Long) As String 'als Beispiel
Dim strERG as String
'...beliebiger Code
strERG = "irgendwas"
'...beliebiger Code
test = strERG
End Function

So sind die "normalen" WorksheetFunctions" aufgebaut. Sie liefern ein Ergebnis für die Zelle in die sie geschrieben werden.

Was Du hier schreibst solltest Du als Ereignisprozedur schreiben:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Worksheet_Change(ByVal Target as Range)
Dim i As Long
Dim Start As Single
Dim Zeit as Single
If Target.Column <> 1 Then Exit Sub 'Nur Spalte A wird ausgewertet
'If Target.Address <> "$A$1" Then Exit Sub 'Nur Zelle A1 wird ausgewertet
If Target <= 20 Then Exit Sub
Application.EnableEvents = False
 
 For i = 1 To 20
          
     Start = Timer
     Do             'Zeitverzögerung
         Zeit = Timer - Start
     Loop Until Zeit >= 1
          
                 Target.Copy Range("B" + CStr(i))    
    Next i
  
 
Application.EnableEvents = True
End Sub

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



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