HILFE ganz DRINGEND / Liebsten dank

Ich habe folgendes Problem welches ich hier hoffe gelöst zu bekommen,
ich habe eine tabelle mit den spalten a - ha ( also ziemlich viele )
mich interessieren aber von dieser gesamten list nur die spalten ab bis ha.
in der spalte ab steht ein folgender text drin "M3" oder "M4" oder "M5"
in den spalten AE bis HA sind informationen enthalten die ähnlich aussehen.
Dort ist folgender text enthalten "XXX M3" oder "XXX M4" oder "XXX M5" oder
die Zelle ist leer, bzw. es stehe ein Text, beginnend mit ID ... dort
Nun benötige ich Makro welchen folgende funktion durchführt.
Wenn in der Spalte AB ein M3 steht soll diese Zeile von Spalte AE bis HA durchsuchtwerden,
und wenn dort kein M3 vorhanden ist dann soll in der Spalte AC der Text "ACHTUNG" erscheinen.
Ist in dieser Zeile allerdings ein Text beginnend mit ID .... dann soll in der Spalte AD der Text
"ACHTUNG ID" erscheinen. Wenn in beide zusagen zutreffen, soll in Spatle AC und AD der
jeweilige Text erscheinen.

siehe beispiel daten, ich hoffe ich habe mich so richtig ausgedrückt und ihr versteht was ich geschrieben habe.
ich danke euch schon mal im vorraus für eure bemühungen und lieben dank
https://www.herber.de/bbs/user/26918.xls

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub ZellenPrüfen() Dim intCounter, LetzteNichtLeereZelleSpalteAB As Integer, Bereich As Range, c Dim TextM3 As Boolean, TextID As Boolean LetzteNichtLeereZelleSpalteAB = Cells(Rows.Count, 28).End(xlUp).Row For intCounter = 2 To LetzteNichtLeereZelleSpalteAB TextM3 = False TextID = False Set Bereich = Range(Cells(intCounter, 31), Cells(intCounter, 209)) For Each c In Bereich If c.Value Like "*M3*" Then TextM3 = True Exit For End If Next For Each c In Bereich If c.Value Like "ID*" Then TextID = True Exit For End If Next If TextM3 = True Then Cells(intCounter, 29).Value = "" Else Cells(intCounter, 29).Value = "ACHTUNG!" End If If TextID = True Then Cells(intCounter, 30).Value = "ACHTUNG ID!" Else Cells(intCounter, 30).Value = "" End If Next intCounter End Sub

Sub ZellenPrüfen() Dim intCounter, LetzteNichtLeereZelleSpalteAB As Integer, Bereich As Range, c Dim TextM3 As Boolean, TextID As Boolean LetzteNichtLeereZelleSpalteAB = Cells(Rows.Count, 28).End(xlUp).Row For intCounter = 2 To LetzteNichtLeereZelleSpalteAB If Cells(intCounter, 28) = "M3" Then TextM3 = False TextID = False Set Bereich = Range(Cells(intCounter, 31), Cells(intCounter, 209)) For Each c In Bereich If c.Value Like "*M3*" Then TextM3 = True Exit For End If Next For Each c In Bereich If c.Value Like "ID*" Then TextID = True Exit For End If Next If TextM3 = True Then Cells(intCounter, 29).Value = "" Else Cells(intCounter, 29).Value = "ACHTUNG!" End If If TextID = True Then Cells(intCounter, 30).Value = "ACHTUNG ID!" Else Cells(intCounter, 30).Value = "" End If Else Cells(intCounter, 29).Value = "" Cells(intCounter, 30).Value = "" End If Next intCounter End Sub

Beliebteste Forumthreads (12 Monate)

HILFE ganz DRINGEND / Liebsten dank

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread