Laufzeitfehler 13
27.11.2004 13:29:21
Alois Gruber
Ich habe mir da aus mehreren Makros etwas zusammengebaut.
Leider erhalte ich den Fehler Laufzeitfehler 13 (Typen unverträglich) wenn ich den letzten Satz (Cells(z, 6).FormulaLocal = "=SUMME" & "(" & Variable + 1 & ":" & Ende & ")"
)dabei habe. Sonst passt das Makro.
Wo könnte der Fehler liegen?
Bitte um eure Hilfe
Option Explicit
Sub Summierer()
Dim z As Long
z = 1
Columns("F:F").Select
Selection.ClearContents
Dim lgZeile As Long
lgZeile = 2
Do Until IsEmpty(Cells(lgZeile, 2))
Cells(lgZeile, 5).FormulaLocal = "=B" & lgZeile
lgZeile = lgZeile + 1
Loop
Dim Variable
Dim Ende
[a1].Sort Key1:=[A2], Order1:=xlAscending, Header:=xlYes
z = 1
Variable = Cells(z, 3).Address
Ende = Cells(z, 3).Address
Do While Not IsEmpty(Cells(z + 1, 1))
If Left(Cells(z, 1), 4) = Left(Cells(z + 1, 1), 4) Then
z = z + 1
Else
Ende = Cells(z, 3).Address
Cells(z, 6).FormulaLocal = "=SUMME" & "(" & Variable & ":" & Ende & ")"
Variable = Cells(z + 1, 3).Address
z = z + 1
End If
Loop
Cells([a65536].End(xlUp).Row + 0, 5).Activate
Ende = Cells(ActiveCell.Row, 3).Address
Cells(z, 6).FormulaLocal = "=SUMME" & "(" & Variable + 1 & ":" & Ende & ")"
End Sub