Laufzeitfehler 6 Überlauf
Yves
Hallo,
ich möchte mit dem folgenden Skript alle Zellen einer Arbeitsmappe mit gleichen Inhalt verbinden. Die Zellen befinden sich in dem Bereich F11:BF298. Ich erhalte leider immer einen Laufzeitfehler 6 Überlauf. Wenn ich den Variablentyp des Zählers als Long definiere, dann bekomme ich einen Laufzeitfehler 1004 Anwendungs- oder objektdefinierter Fehler bei Loop Until.
Wie soll ich den Skript optimieren?
Vielen Dank im Voraus
Windows("Report.xls").Activate
Worksheets("Overview").Activate
Dim rngZelle As Range, intZähler As Integer, strAdresse As String
Application.DisplayAlerts = False
For Each rngZelle In ActiveSheet.UsedRange
If Not (IsEmpty(rngZelle) Or rngZelle.HasFormula) Then
intZähler = 0
Do
strAdresse = rngZelle.Offset(intZähler, 0).Address
intZähler = intZähler + 1
Loop Until rngZelle.Value rngZelle.Offset(intZähler, 0).Value
ActiveSheet.Range(rngZelle.Address, strAdresse).Merge
End If
Next
Application.DisplayAlerts = True