2
Excel VBA - Typen unverträglichkeit
Hallo zusammen,
leider finde ich meinen Fehler nicht und würde mich über eure Hilfe freuen.
Der Code soll in einen kleinen Bereich nach 4 Wort-Teilen suchen und wenn einer fehlt soll eine MsgBox erscheinen.
Leider habe ich wohl ein Problem bei der Variablenbestimmung, finde mit der Hilfe von Google aber nicht die Lösung.
Vielen Dank schon einmal für eure Hinweise und Hilfe!
Viele Grüße
Jens
leider finde ich meinen Fehler nicht und würde mich über eure Hilfe freuen.
Der Code soll in einen kleinen Bereich nach 4 Wort-Teilen suchen und wenn einer fehlt soll eine MsgBox erscheinen.
Leider habe ich wohl ein Problem bei der Variablenbestimmung, finde mit der Hilfe von Google aber nicht die Lösung.
Sub Pruefung_Sys2Sys()
Dim Bereich As Range
Dim Kriterium1 As String
Dim Kriterium2 As String
Dim Kriterium3 As String
Dim Kriterium4 As String
Set Bereich = Range("C5:C8")
Kriterium1 = "*B_Sys2Sys*"
Kriterium2 = "*AZ_R*"
Kriterium3 = "*ROT_Sys*"
Kriterium4 = "*Global_Sys2Sys*"
If Not Bereich Like Kriterium1 Then
MsgBox "BCS Sys2Sys sind nicht vorhanden. Bitte prüfen!"
End If
If Not Bereich Like Kriterium2 Then
MsgBox "RCS Sys2Sys / Auszahlungen sind nicht vorhanden. Bitte prüfen!"
End If
If Not Bereich Like Kriterium3 Then
MsgBox "SAP rot Sys2Sys sind nicht vorhanden. Bitte prüfen!"
End If
If Not Bereich Like Kriterium4 Then
MsgBox "SAP global Sys2Sys sind nicht vorhanden. Bitte prüfen!"
End If
End SubVielen Dank schon einmal für eure Hinweise und Hilfe!
Viele Grüße
Jens
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 374210
Url: https://administrator.de/contentid/374210
Printed on: April 19, 2024 at 07:04 o'clock
2 Comments
Latest comment
Du gibst einen Range (Array) zum Vergleich mit einem einfachen String an, das geht so nicht.
Mach es mit find()
Mach es mit find()
If Bereich.Find(Kriterium1) Is Nothing Then
MsgBox "BCS Sys2Sys sind nicht vorhanden. Bitte prüfen!"
End If
1
super, danke!
