GetOpenFilename
21.10.2014 12:29:37
rag
Code funktioniert wunderbar, problem ist nur beid er GetOpenFilename...da muss ich die datei zweimal Öffnen...also wird zweimal abgefragt. Ich will es nur einmal!
Sub Vergleichen()
'
' Vergleichen Makro
'
'
Range("K1").Select
ActiveCell.FormulaR1C1 = "Erfasst"
Range("K2").Select
Columns("K:K").EntireColumn.AutoFit
Range("K2").Select
ActiveCell.FormulaR1C1 = ""
Dim var As Variant
ChDrive "C:"
ChDir "C:\Users\Dokumente\Wöchentliche Report\Erfassungslieste"
' Workbooks.Open Filename:= _
' "C:\Users\Z212723\Dokumente\Wöchentliche Report\Erfassungslieste\Erfassungsliste_Solidcore.xlsx" _
' , Origin:=xlWindows
var = Application.GetOpenFilename( _
FileFilter:="Excel-Dateien (*.xls; *.xlsx),*.xls;*.xlsx", _
MultiSelect:=False)
If var False Then
Workbooks.Open var, UpdateLinks:=False
End If
ActiveWindow.ActivateNext
Range("K2").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF(C[-10],[var]Tabelle1!C1)"