Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Daten in Zellen eintragen extrem langsam

Frage Entwicklung VB for Applications

Mitglied: wydy

wydy (Level 1) - Jetzt verbinden

24.08.2009, aktualisiert 08:36 Uhr, 4515 Aufrufe, 6 Kommentare

Daten von einem Jahr in Zellen eintragen extrem langsam

Moin Leute,
ich habe vorhin eine Funktion gebastelt. in welcher man ein Jahr eingeben kann und im nächsten Register wird dann von dem Jahr, jeder Tag und jede Kalenderwoche aufgelistet. Das sieht dann ungefähr so aus:

KW Tag
1 01.01.2009
1 02.01.2009
1 03.01.2009
2 04.01.2009
....
51 31.12.2009

Das ganze funktioniert auch ohne Probleme. Jedoch dauert es ungefähr 2 Minuten, bis alle Daten aufgelistet sind. Der PC selbst ist nicht langsam und die Funktion ist meines Erachtens auch nicht kompliziert. Wiso ist das ganze so langsam? Kann man den Prozess irgendwie schneller machen? Ich kann den Benutzer ja nicht jedesmal 2 Minuten warten lassen, nur um ein paar Daten zu ändern.

Hier noch mein Quellcode:
01.
    'Alle Daten auflisten 
02.
    activDate = "01.01." & Jahr 
03.
    nextYear = "01.01." & Jahr + 1 
04.
    count = 5 
05.
    Do While activDate < nextYear 
06.
        'Datum eintragen 
07.
        ActiveSheet.Cells(count, 2).Value = activDate 
08.
         
09.
        'Kalenderwoche berechnen 
10.
        tmp = DateSerial(Year(activDate + (8 - Weekday(activDate)) Mod 7 - 3), 1, 1) 
11.
        KalenderWoche = (activDate - tmp - 3 + (Weekday(tmp) + 1) Mod 7) \ 7 + 1 
12.
        ActiveSheet.Cells(count, 1).Value = KalenderWoche 
13.
         
14.
        activDate = activDate + 1 
15.
        count = count + 1 
16.
    Loop
Mitglied: Iwan
24.08.2009 um 09:06 Uhr
hallo,

ich habe das gerade bei mir probiert (Excel 2003 SP3) und da läuft es bei mir in einen Runtime-Error rein
kannst du mal den ganzen Code posten?
Bitte warten ..
Mitglied: wydy
24.08.2009 um 09:24 Uhr
01.
Private Sub buttonBerechnen_Click() 
02.
    Dim Jahr As Integer 
03.
    Dim count As Integer 
04.
    Dim activDate As Date 
05.
    Dim nextYear As Date 
06.
    Dim tmp As Double 
07.
     
08.
    Jahr = Cells(5, 2).Value 
09.
 
10.
    Sheets("Daten").Select 
11.
     
12.
    'Alle Daten auflisten 
13.
    activDate = "31.12." & Jahr - 1 
14.
    nextYear = "01.01." & Jahr + 1 
15.
    count = 5 
16.
    Do While activDate < nextYear 
17.
        'Datum eintragen 
18.
        ActiveSheet.Cells(count, 2).Value = activDate 
19.
         
20.
        'Kalenderwoche berechnen 
21.
        tmp = DateSerial(Year(activDate + (8 - Weekday(activDate)) Mod 7 - 3), 1, 1) 
22.
        KalenderWoche = (activDate - tmp - 3 + (Weekday(tmp) + 1) Mod 7) \ 7 + 1 
23.
        ActiveSheet.Cells(count, 1).Value = KalenderWoche 
24.
         
25.
        activDate = activDate + 1 
26.
        count = count + 1 
27.
    Loop 
28.
End Sub
Bitte warten ..
Mitglied: Iwan
24.08.2009 um 09:40 Uhr
hmmm bei mir läuft es in ~1 Sekunde durch
welches Office verwendest und welcher Patchstand?
Bitte warten ..
Mitglied: wydy
24.08.2009 um 10:40 Uhr
Ich verwende Office 2003 (11.6560.6568) SP2

Wenn ich nebenbei den Taskmanager laufen lasse ist die CPU Auslastung andauernd bei ca 50%.

Der PC selbst hat 3.19 GHz und 1GB Ram, daran kann es also nicht liegen.
Bitte warten ..
Mitglied: wydy
24.08.2009 um 10:50 Uhr
Ich habe jetzt den PC mal neugestartet und das ganze Exceldokument neu erstellt. Jetzt läuft auch bei mir das ganze in 1-2 Sekunden durch.

Warscheinlich habe ich vorher irgendeinen Fehler gemacht und den Speicher überfüllt.

Trotzdem danke für die Hilfe
Bitte warten ..
Mitglied: Iwan
24.08.2009 um 11:27 Uhr
wie sagte schon mein damaliger IT-Leiter immer:
"Reboot tut immer gut"
Bitte warten ..
Ähnliche Inhalte
Windows Server
gelöst Windows Server 2016 RDS extrem langsam nach Neustart (12)

Frage von jojo0411 zum Thema Windows Server ...

Windows 10
gelöst Windows 10 Login extrem langsam, Rechner hängt sich auf (10)

Frage von Yell-ing zum Thema Windows 10 ...

Microsoft Office
gelöst Excelfunktion Automatisches Eintragen von Datum und Uhrzeit bei ausgefüllter Zelle (3)

Frage von Scrises zum Thema Microsoft Office ...

Neue Wissensbeiträge
Windows Update

Microsoft Update KB4034664 verursacht Probleme mit Multimonitor-Systemen

(3)

Tipp von beidermachtvongreyscull zum Thema Windows Update ...

Viren und Trojaner

CNC-Fräsen von MECANUMERIC werden (ggf.) mit Viren, Trojanern, Würmern ausgeliefert

(4)

Erfahrungsbericht von anteNope zum Thema Viren und Trojaner ...

Windows 10

Windows 10: Erste Anmeldung Animation deaktivieren

(3)

Anleitung von alemanne21 zum Thema Windows 10 ...

Heiß diskutierte Inhalte
SAN, NAS, DAS
MSA 2050 RAID Konfig (20)

Frage von Leo-le zum Thema SAN, NAS, DAS ...

Hosting & Housing
CNAME auf FTP funkt nicht mehr (7)

Frage von Wintektiv zum Thema Hosting & Housing ...