Loop stopt nicht
02.10.2023 08:32:01
Andreas
mit folgenden Macro vergleiche ich einen Textinhalt in "Tabelle 73 Zelle R51". Es hat nur noch paar kleine Bug's.
https://www.herber.de/bbs/user/163208.xlsm
1. Ist kein Text vorhanden, oder er findet ihn nicht, dann hängt sich die Schleife auf. Eigentlich soll die MsgBox "keine Eigenschaft zuordbar " angezeigt werden- und das Makro stoppen.
2. Beim Eingabewort " Scanner" stoppt das Macro nicht- und arbeitet weitere Prozeduren ab. Wird hingegen ein anderer Text aus der gleichen Vergleichsspalte eingetragen- stoppt das Makro. Z.B " Kopierer "
Wo könnten die Fehler sein?
Option Explicit
Sub Makro_Vergleich()
Dim d As Range
Dim firstAddress As String
With Tabelle73.Range("Q58:AF196")
Set d = .Find(Tabelle73.Range("R51").Text, LookIn:=xlValues)
If Not d Is Nothing Then
firstAddress = d.Address
Do
Select Case d.Column
Case Is = 17
MsgBox "Schutzleiter"
'CMD_Schutzleiter
Case Is = 20
MsgBox "Schutzisoliert"
'CMD_Schutzisoliert
Case Is = 26
MsgBox "Sicht"
'CMD_Nur_Sichtprüfung
Case Is = 29
MsgBox "Halt - Stopp Auswahl Eigenschaft"
Case Is = 32
MsgBox "nicht meßbar"
'CMD_nicht_meßbar
Case Is = 23
MsgBox "Schutzart händig wählen"
'Öffne_UF10_Page02
'''und hier will er nicht..................................................
Case Else
MsgBox "keine Eigenschaft zuordbar "
''''.........................................................................
End Select
Set d = .FindNext(d)
Loop While Not d Is Nothing And d.Address > firstAddress
End If
End With
End Sub
Gruß Andreas