Runtime Error 1004

Function ReadItems(nTabLevel As Integer, ByRef nRow As Integer, ByRef nCol As Integer, Optional  _
_
_
ByVal iMonitored As Integer = 0) As String
Dim sItems As String
Dim sItem As String
Dim sPrefix As String
Dim nCurrentRow As Integer
Dim nCurrentCol As Integer
Dim sMerker As String
Dim sMerker2 As String
Dim sMerker3 As String
Dim wsMusterAlarmOff As Worksheet
Set wsMusterAlarmOff = Sheets("MusterAlarmOff")
wsMusterAlarmOff.Activate
Dim Q As String
Q = Chr$(34)
nCurrentRow = nRow
While Cells(nCurrentRow, nCol)  ""
nCurrentCol = nCol
sPrefix = ""
While Cells(nCurrentRow, nCurrentCol)  ""
sMerker = Cells(nCurrentRow, nCurrentCol).Value
sItem = sItem & sPrefix & Cells(1, nCurrentCol) & "=" & Q & Replace(Cells( _
nCurrentRow, nCurrentCol), ",", ".") & Q
sPrefix = " "
Cells(nCurrentRow, nCurrentCol).Value = sMerker
nCurrentCol = nCurrentCol + 1
Wend
sItems = sItems & getTabs(nTabLevel) & "" & vbCrLf        ' _
Struktur für Items wird mit ausgelesenem Wert beschrieben
nCurrentRow = nCurrentRow + 1
Wend
nRow = nCurrentRow
nCol = nCurrentCol
ReadItems = sItems
End Function