Tabelle durchsuchen und dann msgbox

Markus · 2018-03-01T06:30:37+00:00

Hallo Ich hab folgendes Problen ich muss aus einer Tabelle die mit Formeln hinterlegt ist Werte finden z.B. 5 und dann eine Msgbox Ausgeben. Die MSGbox soll aber nur einmal kommen wenn 5 drinnen steht. Und wenn eine zweite Zelle mit 5 kommt dann auch nur für diese Zelle ein Pop Up. Zurzeit habe ich das ganze nur für eine Zelle gefunden. 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 Im weiteren Sinne muss ich dann nicht nur 5 auswerten sondern alle werte bis 80 in 5er schritten.

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

Tabelle durchsuchen und dann msgbox

Forumthread: Tabelle durchsuchen und dann msgbox

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Tabelle durchsuchen und dann msgbox

Forumthread: Tabelle durchsuchen und dann msgbox

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread