Makro in ausgeblendeten Blättern
12.04.2005 09:45:00
alex
leider habe ich in der Recherche keine Lösung gefunden, daher meine Bitte an Euch mir auf diesem Weg zu helfen.
Per Makro (s. u.) will ich auf einem ausgeblendeten Blatt in einer Zelle eine Formel einfügen, auf die darunterliegenden Zellen kopieren und dann alles durch die Werte der Formelergebnisse ersetzen:
Sub test_zweite_ebene()
With Worksheets("Umsatz") 'dieses Blatt ist ausgeblendet
letzte = .Cells(Rows.Count, 1).End(xlUp).row
'Formel einfügen
.Range("C4").FormulaR1C1 = "=VLOOKUP(RC2,System!R33C1:R300C8,System!R21C5,FALSE)"
'Formel kopieren u übertragen
.Range("C4").Copy
'---bis hier funktioniert das Makro, dann kommt Laufzeitfehler 1004
.Range(Cells(5, 3), Cells(letzte, 3)).PasteSpecial Paste:=xlFormulas, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
'Formeln durch Werte ersetzen
.Range(Cells(4, 3), Cells(letzte, 3)).Copy
.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End With
End Sub
Danke und viele Grüße,
Alex
Anzeige