06.05.2021, 11:32
Hallo bitte um Hilfe, ich möchte ein VBA Script ausführen , in meiner Testarbeitsmappe klappte das ganz gut, jedoch wenn nun neue Daten einfach via Copy Paste in Spalte E einfüge macht er mir nix mehr.
Habe bisher versucht die Spalte in Standart und Text zu formatieren.
Die Daten als Werte eingefügt , aber es klappt nix.
Hier der VBA Code welcher gut funktioniert
(Lösche Zeilen die eine bestimmte Zeichenkette (pin, am, www) in Spalte E enthalten)
Sub finde_und_loesche()
Dim i As Long
For i = Cells(Rows.Count, 5).End(xlUp).Row To 1 Step -1
If enthaelt(Cells(i, 5), "pin") Or enthaelt(Cells(i, 5), "am") Or enthaelt(Cells(i, 5), "www") Then '...hier kannst du beliebig viele Bedingungen einfügen
Rows(i).Delete
End If
Next i
End Sub
Function enthaelt(ByVal search_in As String, ByVal search_for As String) As Boolean
Dim i As Integer
enthaelt = False
For i = 1 To Len(search_in) - Len(search_for) + 1
If Mid(search_in, i, Len(search_for)) = search_for Then enthaelt = True
Next i
End Function
Habe bisher versucht die Spalte in Standart und Text zu formatieren.
Die Daten als Werte eingefügt , aber es klappt nix.
Hier der VBA Code welcher gut funktioniert
(Lösche Zeilen die eine bestimmte Zeichenkette (pin, am, www) in Spalte E enthalten)
Sub finde_und_loesche()
Dim i As Long
For i = Cells(Rows.Count, 5).End(xlUp).Row To 1 Step -1
If enthaelt(Cells(i, 5), "pin") Or enthaelt(Cells(i, 5), "am") Or enthaelt(Cells(i, 5), "www") Then '...hier kannst du beliebig viele Bedingungen einfügen
Rows(i).Delete
End If
Next i
End Sub
Function enthaelt(ByVal search_in As String, ByVal search_for As String) As Boolean
Dim i As Integer
enthaelt = False
For i = 1 To Len(search_in) - Len(search_for) + 1
If Mid(search_in, i, Len(search_for)) = search_for Then enthaelt = True
Next i
End Function