VBA Hilfe

Forumthread: VBA Hilfe
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: VBA Hilfe

VBA Hilfe

Walter

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

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Benutzer

Code zum löschen

Tino

Code zum löschen

29.01.2010 09:35:46

Tino

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

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!