Excel makro bestimmte zellen markieren bzw löschen

weedl89 · 30. November 2016, 16:41

Hi Leute,

ich habe ein kleines, glaube relativ einfaches problem was ich nicht umsetzen kann. Bin leider schon berufsbedingt über 6 jahre aus dem programmieren raus, daher habe ich ein paar startschwierigkeiten. so nun zum thema.

Ich habe eine exceltabelle in der in spalte B verschiedene texte stehen. jetzt möchte ich per makro (weil ich die funtion immer wieder benötige) die zellen markieren bzw löschen in der die abkürzung "nmlb" drin steht.
egal ob groß oder klein geschrieben. egal ob am anfang oder am ende des textes. überall wo ein "nmlb" drin steht soll was passieren.

Könnt Ihr mir da weiterhelfen?

Danke schon mal im voraus.

weedl89 · 1. Dezember 2016, 16:46

hat keiner ne idee?

petaod · 1. Dezember 2016, 16:58

Visual Basic-Quellcode

For Each c in Intersect(UsedRange,Range("B:B"))
If Instr(1, c.Value, "nmlb", vbTextCompare) > 0 Then c.ClearContents
Next

weedl89 · 6. Dezember 2016, 13:38

hi petaod, danke für deine Hilfe. habe es jetzt mal ausprobiert, nur leider bringt er mir einen laufzeitfehler 424: objekt erforderlich.
woran kann das liegen?

Wäre echt super wenn wir das hinbekommen würden.

Habe gearde was gecodet. weiß aber nicht ob es so sauber ist oder ob man es noch anders machen kann. zumindest bringt es auf den ersten blick das gewünschte ergebnis:

VB.NET-Quellcode

Sub zeilenloeschen()
Dim i As Long
Dim letzteZeile As Long
Dim suchBereich As Range
Dim gefunden As Range
Dim ersterTreffer As String
Dim suchWert As String
suchWert = "nmlb" 'hier kommt das suchwort rein
With ThisWorkbook.Sheets("DR_Report_Penner Liste_20161206") 'hier kommt die arbeitsmappe in der gearbeitet wird rein
letzteZeile = .Range("A" & Rows.Count).End(xlUp).Row
Set suchBereich = .Range("B1:B" & letzteZeile) 'hier wird die spalte in der gesucht werden soll eingetragen
Set gefunden = suchBereich.Find(What:=suchWert, LookAt:=xlPart)
If Not gefunden Is Nothing Then
ersterTreffer = gefunden.Address
Do
gefunden.Activate
ActiveCell.EntireRow.Delete shift:=xlUp
Set gefunden = suchBereich.Find(What:=suchWert, LookAt:=xlPart)
Loop While Not gefunden Is Nothing
End If
End With
End Sub

petaod · 6. Dezember 2016, 16:39

Mein Code ist dafür gedacht, lokal im Codebereich des Sheets zu stehen.
Wenn du's in einem Modul oder sonstwo hast, musst du die Range-Objekte unter Angabe des Sheets adressieren.

Excel makro bestimmte zellen markieren bzw löschen

Excel makro bestimmte zellen markieren bzw löschen

Visual Basic-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

2 Benutzer haben hier geschrieben