Open File VBA
16.10.2014 10:27:57
Riman
Der code wurde mit Makro aufgenommen, und vergleicht zwei Tabellen.
Ich möchte nicht immer mit der selbe Tabelle vergleichen, sondern, dass ein Open File Dialog öffnet und ich die Datei selber aussuchen kann.
Also ich habe verschiedene "Erfassungsliste_Solidcore.xlsx" Tabelle.
Wass ich will, dass ein OpenDialog Fenster aufgeht und ich die Datei selber aussuchen kann. Der Code soll so bleiben, nur dass "Erfassungsliste_Solidcore.xlsx" soll in ein Opendialog ausgewählt werden und in die Code integriert werden.
"C:\Users\Dokumente\WöchentlicheReport\Erfassungslieste\[GEWÄHLTE DATEI].xlsx" _
Sub Vergleichen()
' Vergleichen Makro
Range("K1").Select
ActiveCell.FormulaR1C1 = "Erfasst"
Range("K2").Select
Columns("K:K").EntireColumn.AutoFit
Range("K2").Select
ActiveCell.FormulaR1C1 = ""
ChDir "C:\Users\Dokumente\Wöchentliche Report\Erfassungslieste"
Workbooks.Open Filename:= _
"C:\Users\Dokumente\Wöchentliche Report\Erfassungslieste\Erfassungsliste_Solidcore.xlsx" _
_
, Origin:=xlWindows
ActiveWindow.ActivateNext
Range("K2").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF([Erfassungsliste_Solidcore.xlsx]Tabelle1!C1,C[-10])"
Columns("K:K").Select
Selection.FormatConditions.AddIconSetCondition
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1)
.ReverseOrder = False
.ShowIconOnly = True
.IconSet = ActiveWorkbook.IconSets(xl3Symbols)
End With
Selection.FormatConditions(1).IconCriteria(1).Icon = xlIconNoCellIcon
With Selection.FormatConditions(1).IconCriteria(2)
.Type = xlConditionValueNumber
.Value = 0
.Operator = 7
.Icon = xlIconRedCrossSymbol
End With
With Selection.FormatConditions(1).IconCriteria(3)
.Type = xlConditionValueNumber
.Value = 1
.Operator = 7
.Icon = xlIconGreenCheckSymbol
End With
With Selection
.HorizontalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("L3").Select
End Sub