Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

mehrere Bedingungen eine MsgBox


Betrifft: mehrere Bedingungen eine MsgBox von: Peter
Geschrieben am: 29.11.2017 18:00:48

Hallo ihr Excelspezialisten,

nach längerem erfolglosen Suchen bitte ich euch um Hilfe:

Ich habe eine Tabelle in welcher in zwei Spalten in den ersten 4 Zeilen jeweils
gleiche bzw. unterschiedliche Werte eingetragen sind.

Z.B. Spalte A Spalte B
001 001
002 002
003 003
004 004

Wenn alle Werte identisch dann passiert nichts. (exit Sub )

Wenn aber ein Wert in Spalte A oder mehrere oder alle nicht identisch mit Spalte B sind, dann soll, der jeweilige nicht idenische Wert in einer MsgBox angezeigt werden.

Besten Dank für eure Hilfe.

Gruss
Peter

  

Betrifft: AW: mehrere Bedingungen eine MsgBox von: Hajo_Zi
Geschrieben am: 29.11.2017 18:05:42

Hallo Peter,

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten anonymisieren bzw. pseudonymisieren.


GrußformelHomepage

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung. o.w.T."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.

Beiträge von Werner, Luc, robert und folgende lese ich nicht.


  

Betrifft: AW: mehrere Bedingungen eine MsgBox von: JoWE
Geschrieben am: 29.11.2017 18:22:16

Hallo Peter,

was soll das mit der MsgBox? Und wann soll das denn geschehen?
Immer bei Eingabe oder in einer Schleife über alle Zeilen mit u.U. 500 MsgBoxen nacheinander?

Ich würd's so machen:
Formel in C1: =WENN(A1<>B1;"ungleich";"") dann die Formel runterkopieren.

Gruß
Jochen


  

Betrifft: AW: mehrere Bedingungen eine MsgBox von: Peter
Geschrieben am: 29.11.2017 19:26:09

Hallo Jochen,

anbei die gewünschte Datei.
Die Werte in SpalteB sind immer gleich nur Spalte A kann sich ändern.

Testdatei:https://www.herber.de/bbs/user/117999.xlsm

Besten Dank
Gruss
Peter


  

Betrifft: AW: mehrere Bedingungen eine MsgBox von: Peter
Geschrieben am: 29.11.2017 19:24:06

Hallo Hajo,

anbei die gewünschte Datei.
Die Werte in SpalteB sind immer gleich nur Spalte A kann sich ändern.

Testdatei:https://www.herber.de/bbs/user/117999.xlsm

Besten Dank
Gruss
Peter


  

Betrifft: AW: mehrere Bedingungen eine MsgBox von: Hajo_Zi
Geschrieben am: 30.11.2017 05:38:15

Hallo Peter,

Gut, es ist nicht die Datei laut ersten Beitrag. Exit Sub gibt es nicht.

Gruß Hajo


  

Betrifft: AW: mehrere Bedingungen eine MsgBox von: Peter
Geschrieben am: 30.11.2017 06:58:53

Hallo Hajo,

es handelt sich um die Datei und seit wann soll es exit sub nicht geben???

Gruss
Peter


  

Betrifft: AW: mehrere Bedingungen eine MsgBox von: hary
Geschrieben am: 30.11.2017 07:32:33

Moin
Meinst du so?

Dim strText As String
Dim Zelle As Range
For Each Zelle In Range("A2:A5")
  strText = IIf(Zelle <> Zelle.Offset(0, 1), strText & Zelle & " ", strText & "")
Next
If strText <> "" Then
MsgBox "Wert nicht identisch" & " " & strText & vbLf & "bitte USB-Stick ändern"
Else
MsgBox "alle Werte identisch"
End If

gruss hary


  

Betrifft: AW: mehrere Bedingungen eine MsgBox von: Peter
Geschrieben am: 30.11.2017 12:57:28

Hallo Hary,

das ist genau das, was ich gesucht habe. Vielen Dank für Deine Hilfe.
Wünsche Dir noch einen schönen Tag.

Gruss
Peter


Beiträge aus den Excel-Beispielen zum Thema "mehrere Bedingungen eine MsgBox"