1) Anwendungsfall:
Ein Excelsheet in dem in der ersten Spalte leere Zellen, Buchstaben und * sind. Alle Zeilen mit * sollen gelöscht werden.
2) Problemstellung:
Die Find Funktion schlägt fehl. Sie liefert jede Zelle mit Inhalt.
Eine manuell programierte Suche nach * auf basis von Range("??").Value = "*" liefert das selbe Resultat.
3) Bisherige einzig entwickelte Lösung:
'***************************************************************
Sub DeleteAsterix()
Dim i As String
Dim szBuf As String
i = 1
' Solange Sheetende nicht erreicht
' Vergleiche auf Unicode Ebene
While Int(i) < 65536
szBuf = StrConv(Range("A" + i).Formula, vbUnicode)
If szBuf = StrConv("*", vbUnicode) Then
Rows(i).Delete Shift:=xlUp
End If
Wend
End Sub
'***************************************************************
Wenn jemand von Euch eine bessere Lösung hat, dann lasst es micht wissen.
Thx in advance. BR, Arne