Webabfrage

Private Sub update_Click() If Worksheets(Eingabe).Range("Datenbank").Value = "_dbase_spo.xls" Then Workbooks(datenbk).RefreshAll Else Workbooks(datenbk_gir).RefreshAll End If Unload Me frmMain.MultiPage1.Value = 1 frmMain.Show End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Webabfrage

09.02.2006 13:52:07

Reinhard

AW: Webabfrage

09.02.2006 14:43:45

Roli

AW: Webabfrage

09.02.2006 14:44:02

Roli

AW: Webabfrage

09.02.2006 15:31:59

Reinhard

Private Sub update_Click() Dim wk As String wb = "datenbk_gir" If Worksheets(Eingabe).Range("Datenbank").Value = "_dbase_spo.xls" Then wb = "datenbk" Workbooks(wb).Sheets(1).Range("A1") = "noch nicht" Workbooks(wb).RefreshAll While Workbooks(wb).Sheets(1).Range("A1") = "noch nicht" Wend Unload Me frmMain.MultiPage1.Value = 1 frmMain.Show End Sub

hallo reinhard
danke für deine rasche reaktion. Ich verstehe jetzt deinen Einwand. Du setzt "noch nicht" und lässt das makro solange warten, bis noch nicht weg ist. Diesen Code habe ich für mich angepasst.
In einem Modul:
Public Stammdaten As Worksheet
Public Const Stamm As String = "Stammdaten"
'**********************************************************************************************
Public Const datenbk As String = "_dbase_spo.xls" 'zu ladende artikeldatenbank
In der Userform:


Private Sub Userform_initialize()
Set Stammdaten = Workbooks(datenbk).Worksheets(Stamm)
End Sub


Private Sub update_Click()
Stammdaten.Range("A1") = "x"
Workbooks(datenbk).RefreshAll
While Stammdaten.Range("A1") = "x"
Wend
End Sub

Aber der bleibt bei While - Wend stecken, es geht leider nicht.


Private Sub Userform_initialize()
Set Stammdaten = Workbooks(datenbk).Worksheets(Stamm)
End Sub


Private Sub update_Click()
Stammdaten.Range("A1") = "x"
Workbooks(datenbk).RefreshAll
While Stammdaten.Range("A1") = "x"
Wend
End Sub

Aber der bleibt bei While - Wend stecken, es geht leider nicht.

Hi Roli, ja, auch mit DoEvents in der While-Schleife getht es so nicht. Neuer Ansatz, schreibe in ein anderes Tabellenblatt =Tabelle1!A1 dann in den Codeteil für dieses Tabellenblatt Private Sub Worksheet_Calculate() MsgBox "neu" End Sub Gruß Dann kannst du in diese Sub deine weiteren Befehle legen. Reinhard

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Webabfrage

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread