10.09.2014, 19:39
Hallo André,
schön das du mir helfen möchtest. Das mit dem Laufbalken ist noch ein wenig zu hoch für mich.
Hier ist mein aktueller Code:
Wie du siehst lasse ich kleine UF's (frm_warten) starten (3Sek.) mit Label "Daten werden aktualisiert!". Und am Ende eine weitere UF mit Text "Aktualisierung beendet".
Wie muss ich den Code ändern, um einen Laufbalken in die UF's einzufügen und genau am Ende der Aktualisierung der Laufbalken und somit die UF schließt?
schön das du mir helfen möchtest. Das mit dem Laufbalken ist noch ein wenig zu hoch für mich.
Hier ist mein aktueller Code:
Code:
Sub webabfrage_indizes()
Dim lngC As Long
Dim vntArray As Variant
vntArray = Array("Abf_Dax", "Abf_TECDAX", "Abf_MDAX", "Abf_DOWJONES", "AbfrageDAX", "AbfrageTECDAX", "AbfrageMDAX", "AbfrageDOWJONES", "Abf_Währung")
frm_warten.Show
Application.ScreenUpdating = False
For lngC = 0 To UBound(vntArray)
Worksheets(vntArray(lngC)).QueryTables(1).Refresh BackgroundQuery:=False
Next lngC
Call filter_top
frm_ende.Show
Sheets("Depot").Activate
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Sub filter_top()
Sheets("Top10").Select
Range("B2:C2").Select
Selection.AutoFilter
ActiveWorkbook.Worksheets("Top10").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Top10").AutoFilter.Sort.SortFields.Add Key:=Range( _
"C2"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Top10").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("F2:G2").Select
Selection.AutoFilter
Selection.AutoFilter
ActiveWorkbook.Worksheets("Top10").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Top10").AutoFilter.Sort.SortFields.Add Key:=Range( _
"G2"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Top10").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Selection.AutoFilter
Range("J2:K2").Select
Selection.AutoFilter
ActiveWorkbook.Worksheets("Top10").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Top10").AutoFilter.Sort.SortFields.Add Key:=Range( _
"K2"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Top10").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Selection.AutoFilter
Range("N2:O2").Select
Selection.AutoFilter
ActiveWorkbook.Worksheets("Top10").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Top10").AutoFilter.Sort.SortFields.Add Key:=Range( _
"O2"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Top10").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Selection.AutoFilter
Range("R2:S2").Select
Selection.AutoFilter
ActiveWorkbook.Worksheets("Top10").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Top10").AutoFilter.Sort.SortFields.Add Key:=Range( _
"S2"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Top10").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Selection.AutoFilter
Range("A1").Select
End Sub
Wie du siehst lasse ich kleine UF's (frm_warten) starten (3Sek.) mit Label "Daten werden aktualisiert!". Und am Ende eine weitere UF mit Text "Aktualisierung beendet".
Wie muss ich den Code ändern, um einen Laufbalken in die UF's einzufügen und genau am Ende der Aktualisierung der Laufbalken und somit die UF schließt?
Grüße aus Bremen
Bernie
"Wenn du jemanden triffst ohne lächeln, schenke ihm deins !!!"
MS Office 2016 Pro 32bit - Win 10 Pro 64 bit
Haftungshinweis: Trotz sorgfältiger inhaltlicher Kontrolle übernehmen ich keine Haftung für die Inhalte externer Links. Für den Inhalt der verlinkten Seiten sind ausschließlich deren Betreiber verantwortlich.
Bernie
"Wenn du jemanden triffst ohne lächeln, schenke ihm deins !!!"
MS Office 2016 Pro 32bit - Win 10 Pro 64 bit
Haftungshinweis: Trotz sorgfältiger inhaltlicher Kontrolle übernehmen ich keine Haftung für die Inhalte externer Links. Für den Inhalt der verlinkten Seiten sind ausschließlich deren Betreiber verantwortlich.