Hallo zusammen
Im nachstehenden Makro erhalte ich plötzlich den Laufzeitfehler 13 in Excel 2002. In Excel 97 funktionierte es einwandfrei. Der Fehler tritt bei " sAnalyse = .Cells(1, 2) " auf.
Dim zaehl As Long
Dim sAnalyse As String, sResult As String
Dim iLetter As Integer
For Each wks In ThisWorkbook.Sheets
With wks
If .Name "Start" And .Name "DatenImport" And .Name "ESRVorlage" Then
sAnalyse = .Cells(1, 2)
sResult = ""
For iLetter = 1 To Len(sAnalyse)
sResult = Mid(sAnalyse, iLetter, 1) & sResult
Next
.Cells(1, 1) = sResult
For zaehl = 1 To Len(.Cells(1, 1))
.Cells(2, zaehl) = Mid(.Cells(1, 1), zaehl, 1)
Next
End If
End With
Next wks
Das Makro soll mir eine ganze Zahl (Zelle T2) in ihre einzelnen Ziffern zerlegen und auf einzelne Zellen verteilen.
In der Zelle B1 steht: =((WIEDERHOLEN(0;8-LÄNGE(C1))&C1)*1)
In der Zelle C1 steht: =(T2)*100
In der Zelle T2 steht der Wert (ganze Zahl)
Hat jemand eine Idee? Das wäre super! :-)
Vielen Dank und Grüsse
Patrick