try this

Sub asd()

Dim Cell As String
Dim Cell2 As String
Dim Teller As Integer
Dim Letterteller As Integer

For Letterteller = 1 To 5
If Letterteller = 1 Then Letter = "A"
If Letterteller = 2 Then Letter = "B"
If Letterteller = 3 Then Letter = "C"
If Letterteller = 4 Then Letter = "D"
If Letterteller = 5 Then Letter = "E"

For Teller = 1 To 100
Cell = Letter & Teller
Cell2 = "" & Cell & ""
Cell2 = "=indirect(Sheet1!" & Cell2 & ")"
ActiveCell.Formula = Cell2
Next
Next

"Dan Jansen" wrote:

I have been trying to write a small help to get an indirect formula
into Sheet2. Problem is that the indirect formula needs to have the "
in it: =indirect(Sheet1!"A1"). what I tried to do is this

Dim Cell As String
Dim Cell2 As String
Dim Teller As Integer
Dim Letterteller As Integer

For Letterteller = 1 To 5
If Letterteller = 1 Then Letter = "A"
If Letterteller = 2 Then Letter = "B"
If Letterteller = 3 Then Letter = "C"
If Letterteller = 4 Then Letter = "D"
If Letterteller = 5 Then Letter = "E"

For Teller = 1 To 100
Cell = Letter & Teller
Cell2 = """ & Cell & """
ActiveCell.Formula = "=indirect(Sheet1!" & Cell2 & ")"
Next
Next

Something has to be wrong with the Definition of Cell2 ( Cell2 = """ &
Cell & """), but I can't figure out how to get around it. And I
definitly don't want to manually change 500 cells myself. :-(

Anyone?