Aufruf "Call SleepZEIT" in VBA

Am 22.09.2010 schrieb Mike Rühlemann:

Ok ich bin doch mehr DAU als ich dachte :-O

Macht nix, jeder hat mal klein angefangen.

ich finde kein call excel_link, geschweige denn excel_link hilfe

aber wenn ich VBA aufrufe habe ich ganz oben:

Option Compare Database

Da muß noch ein

option Explicit

mit rein. Im VBA-Editor > Extras > Optionen > [X] Variablendeklaration

erforderlich aktivieren. Dann steht das zukünftig in jedem Modul drin.

Ist auch sehr wichtig.

Mit Call wird die Funktion aufgerufen:

Call Excel_Link()

Public Function Excel_Link()

On Error GoTo Fehler:

Servus

Winfried

Connect2WSUS:
http://www.grurili.de/tools/Connect2WSUS.exe

GPO's: http://www.gruppenrichtlinien.de

Community Forums NNTP Bridge:
http://communitybridge.codeplex.com/

Ok ich bin doch mehr DAU als ich dachte :-O

ich finde kein call excel_link, geschweige denn excel_link *hilfe*

aber wenn ich VBA aufrufe habe ich ganz oben:

Option Compare Database

Public Function Excel_Link()

On Error GoTo Fehler:

Do Until rs.EOF

Call TableDelete(rs!tabname)

Call TableRelink(rs!PfadNamen & rs!Datname, rs!tabname)

rs.MoveNext

Loop

exit_Excel_Link:

Exit Function

Fehler:

MsgBox "Fehler: " & Err.Number & " " & Err.Description & "Excel_Link()"

Resume exit_Excel_Link

End Function



Klicke ich auf Public Function Exel_Link()

sehe ich im Dropdown Menü drüber

(Allgemein) und daneben im zeiten Menü Excel_Link

Das kannst du machen wie Du möchtest. Beim aufruf der DB, beim starten

des Hauptformular. Irgendwo muß der Aufruf Call Excel_Link enthalten

sein. Wenn die Pfade passen, sollte der Rest ganz von allein gehen. Je

nach Einbindungsgeschwindigkeit könntest Du ja noch ein kleines

Formular mit Fortschrittsanzeige erstellen und einblenden lassen.

Ich brauch das ja eigentlich nur ausführen wenn ich den Ordner verschiebe oder sich mal wieder unsere Servernamen ändern.

Kann ich das als Button anlegen? wenn ja, bitte sag mir noch wo und wie

Bzw. wo oder wie ich die Call Exel_Link aufrufen kann?



Danke

Mike

Private Sub Cmd_ok_Click()

UserForm1.Label1.Caption = "Register werden erstellt"

Call testmakro

End Sub

Wie kann ich erzwingen, dass die Beschriftung vor Aufruf von "Testmakro" geändert wird?

Du musst Excel Zeit geben das zu tun und den Bildschirm upzudaten, via DoEvents.

Private Sub Cmd_ok_Click()

UserForm1.Label1.Caption = "Register werden erstellt"

DoEvents

Call testmakro

End Sub

Andreas.

Hallo Edi,

Du musst das Wordobjekt übergeben sonst greifst Du auf eine falsche Instanz bzw. bei Deinem Fall auf gar keine Instanz zu.

Also Sub Formatieren (objWord as Object) und im Aufruf dann Call Formatieren objWord

Damit sollte es gehen.

Viel Erfolg

Gruß Mike