Code bei xp o.k.; bei Excel 2010 flackerts
Peter
In eine Tabelle importiere ich eine Menge Daten, alles bisher in Office XP. Da klappts ohne Probleme.
Zurzeit teste ich, wie meine Codes unter Office 2010 laufen. Die gleiche Datei, sobald im Format Office 2010 gespeichert, flackert ziemlich, beispielsweise, wenn der untenstehende Code durchlaufen wird. Bisher war dies nicht der Fall.
Hat jemand eine Idee, wie ich das Flackern beheben kann?
Danke und Gruss, Peter
Sub abc()
For Each Feld In Bereich 'Bereich = alle Zellen mit Dateiangabe
'p = Feld.Value
p = [exppfad]
'f = Feld.Offset(0, 1)
f = Feld.Value 'bestimmte Datei (Angabe aus Spalte A)
For Each QCell In QArea 'QArea enthält Zellreferenzen
r = QCell.Value
If r "" Then 'Import nur, wenn in Zeile 3 Eintrag (Schlaufe)
Cells(Feld.Row, QCell.Column) = getvalue(p, f, s, r)
Application.StatusBar = "Import aus " & p & f & " - Eintrag in Zeile " & Anzahl + 5
End If 'Import nur, wenn in Zeile 3 Eintrag (Ende Schlaufe)
Next
Anzahl = Anzahl + 1
'Debug.Print Anzahl
Range("Datensatz") = Anzahl
Range("dDatensatz") = Date
Range("zDatensatz") = Time
Next
End Sub