Formatierung beim einlesen behalten
06.01.2016 20:30:09
Werner
Habe ein Makro zum einlesen von einer Datei.
Funktioniert alles einwandfrei, nur löscht es jedes mal meine voeher eingegebene Schriftgröße, bzw. die vorgegebene Ausrichtung der Schrift.
Beispiel: Ich gebe under F5 die Schriftgröße 28 und die Ausrichtung 0° ein, nach dem einlesen mit dem Makro ist die Schriftgröße jedesmal 10 und die Ausrichtung 90°.
Hier das Makro:
Sub Refresh2()
' test Makro
Dim Tabelle As Worksheet
Wert = Range("E1").Text
Set Tabelle = ThisWorkbook.Worksheets("Lager")
'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("Brot 2016 KW 01 .xlsm").Activate
'Fülle Artikel
Tabelle.Range("D4").FormulaLocal = "=INDEX('[Stamm " & Wert & ".xlsm]Tabelle1'!$A:$L;VERGLEICH( _
Lager!$E4;'[Stamm " & Wert & ".xlsm]Tabelle1'!$A:$A;0);2)"
'Fülle Einheit
Tabelle.Range("f4").FormulaLocal = "=INDEX('[Stamm " & Wert & ".xlsm]Tabelle1'!$A:$L;VERGLEICH( _
Lager!$E4;'[Stamm " & Wert & ".xlsm]Tabelle1'!$A:$A;0);8)"
Tabelle.Range("g4").FormulaLocal = "=INDEX('[Stamm " & Wert & ".xlsm]Tabelle1'!$A:$L;VERGLEICH( _
Lager!$E4;'[Stamm " & Wert & ".xlsm]Tabelle1'!$A:$A;0);6)"
Tabelle.Range("h4").FormulaLocal = "=INDEX('[Stamm " & Wert & ".xlsm]Tabelle1'!$A:$L;VERGLEICH( _
Lager!$E4;'[Stamm " & Wert & ".xlsm]Tabelle1'!$A:$A;0);3)"
Tabelle.Range("i4").FormulaLocal = "=INDEX('[Stamm " & Wert & ".xlsm]Tabelle1'!$A:$L;VERGLEICH( _
Lager!$E4;'[Stamm " & Wert & ".xlsm]Tabelle1'!$A:$A;0);3)"
'Kopiere Zeilen nach unten
Range("D4").Select
Selection.AutoFill Destination:=Range("D4:D58"), Type:=xlFillDefault
Range("F4").Select
Selection.AutoFill Destination:=Range("F4:F58"), Type:=xlFillDefault
Range("G4").Select
Selection.AutoFill Destination:=Range("G4:G58"), Type:=xlFillDefault
Range("h4").Select
Selection.AutoFill Destination:=Range("h4:h58"), Type:=xlFillDefault
Else
MsgBox ("Datei mit dem Namen: Stamm " & Wert & ".xlsm existiert nicht!")
End If
End Sub
Werner