Herbers Excel/VBA-Archiv

VBA Hilfe | Herbers Excel-Forum

• VBA Hilfe von Walter vom 29.01.2010 05:50:13
• Code zum löschen - von Tino am 29.01.2010 08:35:46

Betrifft: VBA Hilfe von: Walter
Geschrieben am: 29.01.2010 05:50:13

https://www.herber.de/bbs/user/67604.xls

Einen wunderschönen guten Morgen,

Benötige bitte Eure Hilfe.
Der VBA Code soll so geändert werden, dass die erzeugten Zahlen in einer Zelle stehen und
Zellen sollen gelöscht werden, wenn fünf Ziffern aufeinander folgen.
Ich bekomme es nicht hin!

Danke
Walter

Betrifft: Code zum löschen von: Tino
Geschrieben am: 29.01.2010 08:35:46

Hallo,
zum löschen kannst Du mal diesen Code versuchen.

Sub LoescheFuenfer()
Dim meAr(), tmpAr
Dim A&, AA&, AAA&, iCounter%

meAr = Sheets("Tabelle1").Range("1:20").Value2

For A = 1 To UBound(meAr)
     For AA = 1 To UBound(meAr, 2)
        If meAr(A, AA) <> "" Then
            tmpAr = Split(meAr(A, AA), ",")
            For AAA = LBound(tmpAr) To UBound(tmpAr) - 1
                If CInt(tmpAr(AAA)) = CInt(tmpAr(AAA + 1)) - 1 Then
                    iCounter = iCounter + 1
                Else
                    iCounter = 0
                End If
                If iCounter = 5 Then
                    meAr(A, AA) = Empty
                    iCounter = 0
                    Exit For
                End If
            Next AAA
        End If
     Next AA
Next A

Sheets("Tabelle1").Range("A1").Resize(UBound(meAr), UBound(meAr, 2)) = meAr

End Sub

Gruß Tino