Zeile nach unten kopieren
08.03.2015 09:15:03
Werner
habe ein Makro, bei welchen die Zelle C8 nach unten bis Zelle C30 kopiert werden soll.
Leider funktioniert dieses nicht, finde aber den Fehler nicht.
Kann jemand helfen?
Danke
Werner
Hier das Makro:
Sub Refresh1()
' test Makro
Worksheets("HVL").Unprotect Password:="er14ater"
Dim Tabelle As Worksheet
Wert = Range("c6").Text
Set Tabelle = ThisWorkbook.Worksheets("HVL")
'Wert der eingefügt wird
'MsgBox ("=INDEX('[Stamm " & Wert & ".xlsm]Tabelle1'!$A:$L;VERGLEICH(HVL!$c6;'[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("Stamm 10.xlsm").Activate
'Fülle Artikel
Tabelle.Range("c8").FormulaLocal = "=INDEX('[Stamm " & Wert & ".xlsm]Tabelle1'!$A:$L;VERGLEICH( _
HVL!$e8;'[Stamm " & Wert & ".xlsm]Tabelle1'!$a:$a;0);2)"
'Kopiere Zeilen nach unten
Range("C8").Select
Selection.AutoFill Destination:=Range("C8:C30"), Type:=xlFillDefault
Set Tabelle = Nothing
Else
MsgBox ("Datei mit dem Namen: Stamm " & Wert & ".xlsm existiert nicht!")
End If
End Sub
Anzeige