vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 sevDataGrid - Gönnen Sie Ihrem SQL-Kommando diesen krönenden Abschluß!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Re:  
Autor: Mad Max
Datum: 05.02.04 13:46
Hey,

ich arbeite mit Excel 2000. VB Version 6.0

Tatsächlich, wird im Taskmanager wenn ich Excel starte von 25 auf 165 Prozesse erhöht, und immer die Excel.exe angezeigt.

Hier ist der komplette Code, ThinkingBomb:

Private Sub Workbook_Open()
Dim ex As New Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Dim lngCounter As Long

Set ex = New Excel.Application
Set wb = ex.Workbooks.Open("C:\Dokumente und Einstellungen\nrhm\Desktop\Fahrzeuge_test.xls") 'Kompletter Pfad!!
Set ws = wb.Sheets(1)

ex.Visible = False

For lngCounter = 2 To 20 Step 1 'Schleife Anfang
DoEvents
If IsDate(ws.Cells(lngCounter, 7)) Then

If DateDiff("d", ws.Cells(lngCounter, 7).Value, Date) >= -14 And DateDiff("d", ws.Cells(lngCounter, 7).Value, Date) < 0 Then
MsgBox "Ihr TÜV für das ist fällig", vbInformation, "Achtung Autofahrer"
End If

End If 'Schleife Ende
Next lngCounter

ex.Quit
Set ws = Nothing
Set wb = Nothing
Set ex = Nothing
End Sub


Danke dir nochmals, für Deine Hilfe.

Mad Max
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Excel Makro mit VB3.335Mad Max03.02.04 15:26
ein Makro für VB2.672ThinkingBomb03.02.04 16:02
Re: ein Makro für VB2.640Mad Max04.02.04 08:45
2.667ThinkingBomb04.02.04 08:54
Re: 2.720Mad Max04.02.04 09:17
2.632ThinkingBomb04.02.04 09:30
Re: 2.720Mad Max04.02.04 10:21
2.626ThinkingBomb04.02.04 11:05
Re: 2.711Mad Max04.02.04 11:22
2.612ThinkingBomb04.02.04 12:15
Re: 2.651Mad Max04.02.04 12:44
Hinweis 2.639ThinkingBomb04.02.04 14:31
Re: Hinweis 2.599Mad Max04.02.04 14:42
Hinweis 2.614ThinkingBomb04.02.04 14:47
Re: Hinweis 2.659Mad Max04.02.04 15:00
2.579ThinkingBomb04.02.04 15:25
Re: 2.584Mad Max04.02.04 15:39
Re: 2.595ThinkingBomb04.02.04 15:58
Re: 2.631Mad Max04.02.04 16:25
Re: 2.581ThinkingBomb05.02.04 07:56
Re: 2.641Mad Max05.02.04 08:29
Re: 2.556ThinkingBomb05.02.04 09:39
Re: 2.733Mad Max05.02.04 10:36
2.588ThinkingBomb05.02.04 11:17
Re: 2.645Mad Max05.02.04 11:57
2.724ThinkingBomb05.02.04 12:48
Re: 2.596Mad Max05.02.04 13:46
2.576ThinkingBomb05.02.04 13:59
Re: 2.720Mad Max05.02.04 14:19
2.660ThinkingBomb05.02.04 15:05
Re: 2.676Mad Max05.02.04 15:34
2.571ThinkingBomb05.02.04 15:51
Re: 2.630Mad Max05.02.04 16:26
2.557ThinkingBomb06.02.04 07:58
Re: 2.589Mad Max06.02.04 08:12
2.661ThinkingBomb06.02.04 08:40
Re: 2.633Mad Max06.02.04 10:29
2.563ThinkingBomb06.02.04 10:41
Nachtrag 2.596ThinkingBomb06.02.04 10:42
Re: Nachtrag 3.562Mad Max06.02.04 11:42
(oT) Nichts zu danken, bin für alles offen2.528ThinkingBomb06.02.04 12:40
Re: (oT) Nichts zu danken, bin für alles offen2.575Mad Max06.02.04 13:19
2.606ThinkingBomb06.02.04 13:25
Re: 2.781Mad Max12.02.04 08:22

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel