Formatierung nicht zurücksetzen
30.05.2016 08:47:02
Werner
nachdem mir gestern sehr gut geholfen wurde, hätte ich noch ein kleines Problem:
Habe folgendes Makro:
Sub Refresh()
' test Makro
Dim Tabelle As Worksheet
Wert = Range("E1").Text
Set Tabelle = ThisWorkbook.Worksheets("FF")
'Wert der eingefügt wird
'MsgBox ("=INDEX('[Stamm " & Wert & ".xlsm]Tabelle1'!$A:$L;VERGLEICH(FF!$E4;'[Stamm " & Wert & " _
.xlsm]Tabelle1'!$A:$A;0);2)")
MsgBox ("Bitte Tabelle Stamm " & Wert & ".xlsm in Verzeichnis C:\Stammdaten legen!")
If Dir("C:\Stammdaten\Stamm " & Wert & ".xlsm") "" Then
Workbooks.Open ("C:\Stammdaten\Stamm " & Wert & ".xlsm")
Windows("Kühlverluste KW 22.xlsm").Activate
'Fülle Artikel
Tabelle.Range("D4").FormulaLocal = "=INDEX('[Stamm " & Wert & ".xlsm]Tabelle1'!$A:$L;VERGLEICH( _
FF!$E4;'[Stamm " & Wert & ".xlsm]Tabelle1'!$A:$A;0);2)"
'Fülle Einheit
Tabelle.Range("F4").FormulaLocal = "=INDEX('[Stamm " & Wert & ".xlsm]Tabelle1'!$A:$L;VERGLEICH( _
FF!$E4;'[Stamm " & Wert & ".xlsm]Tabelle1'!$A:$A;0);6)"
Tabelle.Range("G4").FormulaLocal = "=INDEX('[Stamm " & Wert & ".xlsm]Tabelle1'!$A:$L;VERGLEICH( _
FF!$E4;'[Stamm " & Wert & ".xlsm]Tabelle1'!$A:$A;0);3)"
Tabelle.Range("AB4").FormulaLocal = "=INDEX('[Stamm " & Wert & ".xlsm]Tabelle1'!$A:$L;VERGLEICH( _
FF!$E4;'[Stamm " & Wert & ".xlsm]Tabelle1'!$A:$A;0);8)"
'Kopiere Zeilen nach unten
Range("D4").Select
Selection.AutoFill Destination:=Range("D4:D325"), Type:=xlFillDefault
Range("F4").Select
Selection.AutoFill Destination:=Range("F4:F325"), Type:=xlFillDefault
Range("G4").Select
Selection.AutoFill Destination:=Range("G4:G325"), Type:=xlFillDefault
Range("AB4").Select
Selection.AutoFill Destination:=Range("AB4:AB325"), Type:=xlFillDefault
Set Tabelle = Nothing
Else
MsgBox ("Datei mit dem Namen: Stamm " & Wert & ".xlsm existiert nicht!")
End If
End Sub
Bisher löscht es diese immer
Danke für euere Hilfe.
Gruß Werner