Übertrag mit Öffnen und Schliessen Datei
11.04.2016 13:56:57
chris58
Kann mir jemand sagen, wie ich das öffnen für den Abgleich und schliessen der Datei nach Ausführung im Hintergrund bewerkstelligen kann. Habe den Code von hier. Komme jedoch nicht dahinter, was ich machen soll.
Danke
chris
Private Sub CommandButton1_Click()
Dim rngTest As Range
Dim rngGefunden As Range
With Workbooks("download.xls").Worksheets("sortiert")
For Each rngTest In .Range("E2:E" & .Cells(Rows.Count, "E").End(xlUp).Row)
Set rngGefunden = Workbooks("SG.xls").Sheets(rngTest.Value) _
.Range("C:C").Find(rngTest.Offset(0, -4))
If rngGefunden Is Nothing Then
Set rngGefunden = Workbooks("SG.xls").Sheets(rngTest.Value) _
.Cells(Rows.Count, "C").End(xlUp).Offset(1, 0)
If rngGefunden.Row
Anzeige