VBA if abfrage mit variablen inhalt

Computer: Software & Programmierung Visual Basic
1

Hallo ,

If Cells(lngZeile, 1) = „*mn*“ Then
Cells(lngZeile, 1).EntireRow.Delete

also wie man sieht versuche ich alle cellen die wörter die wiederum mn beinhalten gefiltert werden.

ich habe mehrere zeilen wo user drin stehen z.b.

mn23525
mn23522
mn12512

und diese will ich rausfiltern , wie ist dies möglich ?

2

Hallo Hauerli,

ungefähr so:

dim lngZeile as long

lngZeile=1 ' oder eben die erste Zeile, in der es losgehen soll
do while lngZeile
(ungetestet; ggf. Tabelle1 und die Spalte anpassen, in der das Suchkriterium steht.)

Gruß, Manfred
3

Hallo Hauerli,

If Cells(lngZeile, 1) = „*mn*“ Then
Cells(lngZeile, 1).EntireRow.Delete

also wie man sieht versuche ich alle cellen die wörter die
wiederum mn beinhalten gefiltert werden.

du willst alle Zeilen, die in Ax ein „mn“ haben löschen?

Zeige mal den Komplettcode. Und was klappt da nicht?

Gruß
Reinhard

4

hier der komplettcode

ich will alle excell zeilen mit # löschen und wenn in der zeile darüber ein wert mit „mn“ existiert diese ebenso

Sub OffPC_Killer()
'variablendeklaration
Dim lngLetzte As Long
Dim lngZeile As Long
Dim lngUser As Long
’ screenupdater ausschalten um speicher zu sparen
Application.ScreenUpdating = False
’ gesamtanzahl der zeilen definieren
lngLetzte = Cells(Cells.Rows.Count, 1).End(xlUp).Row
'gehe von der letzten immer eine zeile zurück und lösche leere zeilen
For lngZeile = 1 To lngLetzte Step 1
If Cells(lngZeile, 1) = " #################### " Then
lngUser = lngZeile - 1
If Cells(lngUser, 1) = „*mn*“ Then
Cells(lngZeile, 1).EntireRow.Delete
Cells(lngUser, 1).EntireRow.Delete
End If
End If
Next
'screenupdater reaktivieren
Application.ScreenUpdating = True
End Sub

5

hier der komplettcode

ich will alle excell zeilen mit # löschen und wenn in der
zeile darüber ein wert mit „mn“ existiert diese ebenso

Hallo hauerli,

teste mal dieses:

Sub OffPC\_Killer()
'variablendeklaration
Dim lngZeile As Long
' screenupdater ausschalten um speicher zu sparen
Application.ScreenUpdating = False
For lngZeile = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
 If Cells(lngZeile, 1) Like "\*###\*" Then
 Rows(lngZeile).Delete
 If Cells(lngZeile - 1, 1) Like "\*mn\*" Then
 Rows(lngZeile - 1).Delete
 lngZeile = lngZeile - 1
 End If
 End If
Next
'screenupdater reaktivieren
Application.ScreenUpdating = True
End Sub

Gruß
Reinhard