Datei öffnen, Autofilter, Daten einlesen+Close
30.12.2003 17:22:20
Klaus
ich habe ein Workbook offen und möchte eine 2. Datei öffnen (Dateiname wie A1),
Daten in einen variablen Bereich einlesen (Range steht in A2) und die 2. Datei wieder schließen.
Das gelingt mit untenstehenden Code "DatenImport" auch einwandfrei.
Doch jetzt habe ich ein zusätzliches Problem:
In die geöffnete 2. Datei muss noch
1. das aktuelle Datum gestempelt und gesichert werden und
2. ein Autofilter (Datumsbereich) gesetzt und nur diese Daten übernommen werden
Den Code dafür habe ich auch fertig, es gelingt mir jedoch weder das Makro in der
geöffneten 2. Datei zum Laufen zu bringen noch den gefilterten Bereich zu übernehmen.
Hier der bisherige Code:
Sub DatenImport()
Dim rng As Range
Dim sFile As String
Dim variabel As String
variabel = Range("A2").Value
Application.ScreenUpdating = False
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
sFile = Range("A1").Value
If Dir(sFile) = "" Then
Beep
Beep
MsgBox "Datei wurde nicht im gleichen Verzeichnis gefunden!"
GoTo ERRORHANDLER
End If
Set rng = Worksheets("Tabelle1").Range(variabel)
Workbooks.Open _
FileName:=sFile, _
password:=""
' bisher: rng.Value = Range("A1:C2100").Value
' jetzt: FilternNachDatum
ActiveWorkbook.Close savechanges:=False
Worksheets("Tabelle1").Select
ERRORHANDLER:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Sub FilternNachDatum()
Range("G1").Value = Date
ActiveWorkbook.Save
ActiveSheet.Range("A6").AutoFilter Field:=8, Criteria1:=">" & _
CDbl(DateValue(Range("Datum1").Text)) - 1, Operator:=xlAnd, _
Criteria2:="<" & CDbl(DateValue(Range("Datum2").Text)) + 1
'die gefilterten Daten sollen jetzt übernommen aber
'nicht in diesem Workbook gespeichert werden
End Sub
Bin für jeden Hinweis dankbar (VBA-Kenntnisse eher mittelmäßig)
Klaus