Top-Themen

Aktuelle Themen (A bis Z)

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

Mitglied: wydy

wydy (Level 1) - Jetzt verbinden

24.08.2009, aktualisiert 08:36 Uhr, 4527 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 10
FTP ist extrem langsam
Frage von grkaWindows 103 Kommentare

Hallo ich habe ein Windows 10 System und meine Internetverbindung über die Fritzbox 7490 hat folgende Werte: Download: bis ...

Debian
Samba Verbindung extrem langsam
gelöst Frage von gewaACDebian2 Kommentare

Hallo Leute, ich habe hier auf einem System Samba installiert und eine einfache Freigabe erstellt. Wenn ich mich nun ...

Windows 7

Notebook wird plötzlich extrem langsam!

gelöst Frage von hanheikWindows 74 Kommentare

Hallo alle, ein Kundennotebook mit reichlich guter Ausstattung: INTEL I7, massig Speicher und relativ neuer Windows 7-Installation wird seit ...

Microsoft

Apache läuft extrem langsam

Frage von 116108Microsoft24 Kommentare

Hallo zusammen Da Xampp nicht dafür gemacht ist eine Website online zu stellen, habe ich mich für WAMP-Stack von ...

Neue Wissensbeiträge
Windows 10

Neue Sicherheitslücke in Windows 10 (Version 1709) durch Google öffentlich geworden

Information von kgborn vor 16 StundenWindows 10

Vor ein paar Tagen haben Googles Sicherheitsforscher vom Projekt Zero eine Sicherheitslücke im Edge-Browser publiziert. Jetzt wurde eine weitere ...

iOS
IOS 11.2.6 verfügbar
Information von sabines vor 22 StundeniOS

Mit dem Update soll der Bug behoben werden, bei dem eine bestimmte Zeichenkette IOS zum Absturz gebracht hat.

Sicherheit
Sicherheitsrisiko: Die Krux mit 7-Zip
Information von kgborn vor 1 TagSicherheit8 Kommentare

Bei vielen Anwendern ist das Tool 7-Zip zum Entpacken von Archivdateien im Einsatz. Die Software ist kostenlos und steht ...

Internet

Datendealing im WWW Tracking Methoden immer brutaler

Information von sabines vor 1 TagInternet

Interessanter Artikel zum Thema Tracking im WWW und die immer "besseren" Methoden des Trackings. Professor Arvind Narayanan (Princeton-Universität) betreibt ...

Heiß diskutierte Inhalte
Router & Routing
LANCOM VPN CLIENT einrichten
Frage von Finchen961988Router & Routing27 Kommentare

Hallo, ich habe ein Problem und hoffe ihr könnt mir helfen, wir haben einen Kunden der hat einen Speedport ...

Windows Server
AD DS findet Domäne nicht, behebbar?
Frage von schapitzWindows Server25 Kommentare

Guten Tag, ich habe bei einem Kunden ein Problem mit den AD DS. Umgebung ist folgende: Windows Server 2016 ...

LAN, WAN, Wireless
VPN Cisco ASA5505 PaloAlto PA-200
gelöst Frage von YannoschLAN, WAN, Wireless22 Kommentare

Hallo zusammen, ich würde gerne ein Site-to-Site VPN zwischen den beiden Standorten aufbauen. PaloAlto PA200 Internetanschluss Deutsche Telekom GK ...

SAN, NAS, DAS
Qnap TS-453S Pro - Anbindung Active Directory
Frage von JuckieSAN, NAS, DAS13 Kommentare

Hallo zusammen, ich habe hier eine Qnap TS-453S Pro die sich mal so absolut gar nicht in das Active ...