<b>Wert aus Internetseite kopieren </b>

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$52" Then Tabelle1.Range("A52").Copy Tabelle2.Range("A" & (Tabelle2.Cells(Rows.Count, 1).End(xlUp).Row) + 1).PasteSpecial End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Stephan,
der refresh löst kein "normales" Event aus.
Man kann aber mit einer eigenen Klasse nachhelfen.
Mal so ins Blaue.

' **********************************************************************
' Modul: DieseArbeitsmappe  Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Call Tabelle1.Terminate_Class
End Sub


Private Sub Workbook_Open()
  Call Tabelle1.Init_Class
End Sub


' **********************************************************************
' Modul: Tabelle1  Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private WithEvents mobjQueryTable As clsQueryTable

Friend Sub Init_Class()
  Set mobjQueryTable = New clsQueryTable
  Set mobjQueryTable.prpQueryTable = QueryTables(1)
End Sub


Friend Sub Terminate_Class()
  Set mobjQueryTable = Nothing
End Sub


Private Sub mobjQueryTable_Refresh(blnRefreshReady As Boolean)
  If blnRefreshReady Then
    Tabelle2.Range("A" & (Tabelle2.Cells(Rows.Count, 1).End(xlUp).Row) + 1) = Tabelle1.Range("A52").Value
  End If
End Sub


' **********************************************************************
' Modul: clsQueryTable  Typ: Klassenmodul
' **********************************************************************

Option Explicit

Private WithEvents mobjQueryTable As QueryTable

Public Event Refresh(blnRefresh As Boolean)

Friend Property Set prpQueryTable(objQueryTable As QueryTable)
  Set mobjQueryTable = objQueryTable
End Property


Private Sub Class_Terminate()
  Set mobjQueryTable = Nothing
End Sub


Private Sub mobjQueryTable_AfterRefresh(ByVal Success As Boolean)
  RaiseEvent Refresh(True)
End Sub


Private Sub mobjQueryTable_BeforeRefresh(Cancel As Boolean)
  RaiseEvent Refresh(False)
End Sub

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

<b>Wert aus Internetseite kopieren </b>

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

<b>Wert aus Internetseite kopieren </b>

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread