Tabelle durchsuchen und dann msgbox

Private Sub Worksheet_Change(ByVal Target As Range) Static m1 As Boolean Dim a As Integer a = 5 If m1 And Range("G2").Value = a Then m1 = True MsgBox "Kleidungstück Imprägnieren", vbOKOnly + vbExclamation, "Hinweis" End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Markus,
so könnte es gehen:
Dazu musst aber in G1, H1, J1 usw. der gleiche Name eingetragen sein wie in Spalte A.
Also Hose und Hose1. Aber nicht Turnhose und Hose1.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyValue As String
If Target.Column  1 Then Exit Sub
On Error Resume Next
MyValue = Target
If Err.Number  0 Then Exit Sub
MyCloth = StringOhneZiffern(MyValue)
MyNumber = StringNurZiffern(MyValue)
MyCol = 6 + WorksheetFunction.Match(MyCloth, Range("G1:Z1"), 0)
MyRow = MyNumber + 1
If MyCol = "" Then Exit Sub
If MyRow = 1 Then Exit Sub
If Cells(MyRow, MyCol) Mod 5 = 0 Then
m1 = True
MsgBox "Kleidungstück Imprägnieren", vbOKOnly + vbExclamation, "Hinweis"
End If
End Sub
Public Function StringOhneZiffern(ByVal Text As Variant) As Variant
'Quelle: www.dbwiki.net oder www.dbwiki.de
Dim strText As String
Dim Zeichen As String
Dim i As Long
If IsNull(Text) Then
StringOhneZiffern = Null
Else
For i = 1 To Len(Text)
Zeichen = Mid(Text, i, 1)
If Not IsNumeric(Zeichen) Then
strText = strText & Zeichen
End If
Next i
End If
StringOhneZiffern = Trim(strText)
End Function
Public Function StringNurZiffern(ByVal Text As Variant) As Variant
'Quelle: www.dbwiki.net oder www.dbwiki.de
Dim strText As String
Dim Zeichen As String
Dim i As Long
If IsNull(Text) Then
StringNurZiffern = Null
Else
For i = 1 To Len(Text)
Zeichen = Mid(Text, i, 1)
If IsNumeric(Zeichen) Then
strText = strText & Zeichen
End If
Next i
End If
StringNurZiffern = Trim(strText) * 1
End Function

Hallo
Folgendes ich habe jetzt auf den Tabellenblatt Ausgabebereich zu Jeden Kleidungsstück 4 Spalten hinzugefügt damit ich 4 verschieden Codes einlesen kann.
Diese Codes werden dann automatisch in die Formeln auf den Tabellenblatt Wäschen (Berechnung) Automatisch übernommen. Wobei die Formeln die eingegebenen Codes vom Tabellenblatt Waschliste in Spalte A Zusammenrechnen.
Und dann Werden im Tabellenblatt Waschliste Bereich G2:I101 noch die einzellen Formeln vom Tabellenblatt Wäschen (Berechnung) zu einer Gesamtsumme zusammen gerechnet.
Mein Bitte ist jetzt So wie beim vorigen Versuch die MSGBox aufplopen zu lassen wenn Im Bereich Tabellenblatt Waschliste Bereich G2:I100 die einzellen Werte 5 10 15 usw. ergeben.
Hier die Datei
https://www.herber.de/bbs/user/120155.xlsm
Mfg Markus

Beliebteste Forumthreads (12 Monate)

Tabelle durchsuchen und dann msgbox

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabelle durchsuchen und dann msgbox

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread