Ich hatte gehofft, jemand könnte mit diesem Code helfen. Ich versuche, die gesamte Zeile zu löschen, wenn ich den Text 'FemImplant' in Spalte A finde. Der schwierige Teil ist, dass dieser Text Teil eines Satzes ist, der durch '$0$#39; verknüpft ist. Ich brauche also den Code, um den Zelleninhalt vor '$0$#39; zu analysieren und festzustellen, ob er mit 'FemImplant' übereinstimmt, und diese Zeile zu löschen. Dies ist, was ich bisher habe, aber es wird nicht funktionieren.

Dim cell As Excel.Range
 RowCount = DataSheet.UsedRange.Rows.Count
 Set col = DataSheet.Range("A1:A" & RowCount)
 Dim SheetName As String
 Dim ParsedCell() As String

 For Each cell In col

 ParsedCell = cell.Value.Split("$")
 SheetName = ParsedCell(0)

 If SheetName = "FemImplant" Then
 cell.EntireRow.Delete Shift:=xlUp

 End If

Nächster