VBA Lösung
09.10.2017 13:15:27
Peter(silie)
Hallo,
hier wäre eine VBA Lösung, allerdings nicht getestet.
Option Explicit
Sub DeleteRows()
Dim rowCount, columnCount As Long
Dim String_ As String
Dim rng As Range
Dim i As Long
With ThisWorkbook.ActiveSheet
rowCount = UsedRange.Rows.Count
columnCount = UsedRange.Columns.Count
For i = rowCount To 2 Step -1
Set rng = Range(Cells(i, 1), Cells(i, columnCount))
String_ = CreateString(rng)
If String_ "" Then
If StringContains(String_, "-") Then Cells(i, 1).EntireRow.Delete
String_ = ""
End If
Next i
End With
End Sub
Private Function CreateString(ByVal rng As Range) As String
Dim c As Range
For Each c In rng
CreateString = CreateString & c.Value
Next c
End Function
Private Function StringContains(ByVal String_ As Variant, Search_ As String) As Boolean
StringContains = CBool(InStr(1, String_, Search_, vbTextCompare))
End Function