Procress Bar
27.10.2014 17:40:14
Herbert
habe mal wieder ein Problem und hoffe ihr könnt mir helfen.
folgender Code holt aus einer geschkossenen Datei die Daten.
Sub TestGetValue(ByVal tagimjahr As Long, ByVal wochentag As String)
Dim a As String
Dim b As String
Dim c As String
Dim Zelle As Range, wks As Worksheet, Bereich As String, lloRow As Long
Dim lloCol As Long
Dim hcbrutto As Long
Dim hcnetto As Long
Dim hcbruttom As Long
Dim hcnettom As Long
Dim ll As Long
Dim name1 As Long
Dim name2 As Long
Dim name3 As Long
Application.EnableEvents = False
Set wks = Worksheets(wochentag) 'Tabelle in die die Werte eingefügt werden sollen
a = ThisWorkbook.path 'beide Dateien müssen im selben Verzeichnis gespeichert sein
b = "AWH_1.xlsx" 'Name der geschlossenen Datei; ändern, wenn erforderlich
c = "AWH" 'Blattname in geschl. Datei; ändern, wenn erforderlich
lloCol = tagimjahr 'die Spalte in der der gesuchte Tag steht (geschlossene Datei)
lloRow = 11 'Startzeile in offener Datei, in die die Daten geschrieben werden; ändern, wenn erforderlich
hcbrutto = 3
hcnetto = 3
hcbruttom = 4
hcnettom = 4
name1 = 11
name2 = 11
name3 = 11
ll = 15
'Schreibt die Werte in die angegebene Tabelle in den Bereich
For Each Zelle In wks.Range(Cells(15, lloCol), Cells(79, lloCol))
Range("AB" & lloRow).Value = GetValue(a, b, c, Zelle.Address) '"J" = Zielspalte; ändern, wenn erforderlich
lloRow = lloRow + 1
'Schrittweite festlegen
'Schrittbreite pro Aktualisierung
Next Zelle
jetzt möchte ich ein Process Bar einfügen komme aber nicht weiter.
Userform hab ich schon erstellt.
vielen Dank
Gruß
Herby