Formeln per VBA einfügen
16.02.2004 09:19:50
Frank
ich habe folgendes Makro(dank des Forums) mit dem ich in einem Tabellenblatt Formeln aus verschiedenen Tabellen einfügen kann :
Sub FormelnEinfügen()
Dim i As Long
Dim wb As Workbook
Dim ws As Worksheet
Dim wsLetzt As Worksheet
Dim zeile As Long
Set wb = ThisWorkbook
Set wsLetzt = wb.Worksheets(wb.Worksheets.Count)
zeile = 5
For i = 1 To wb.Worksheets.Count - 1
Set ws = wb.Worksheets(i)
wsLetzt.Cells(zeile + i, "B").Formula = "=" & ws.Name & "!D35"
Next i
End Sub
Jetzt kommt folgendes Problem. Wenn der Blattname aus mehreren Wörten besteht
kommt ein anwendungs- oder objektdefinierter Fehler. Besteht der Blattname aus
einem Wort läuft alles in Ordnung.Wer kann mir helfen?
Gruß
Frank
Anzeige