Userform Msgbox erstellen

Computer: Software & Programmierung Office Software
1

Hallo zusammen, habe eine Userform und wenn man in einer Combobox eine Zahl eingibt, prüft diese in einer Externen Tabelle, ob die Zahl auch in der externen Tabelle zur Verfügung steht. Wenn eine Zahl nicht in der Externen Tabelle ist, dann soll eine Fehlermeldung erscheinen. Nun habe ich es nur so eingestellt bekommen, das die Fehlermeldung, die von Excel erscheint, deaktiviert wird.

Hoffe, dass es verständlich war soweit:
Hier ist der Code

Private Sub ComboBox2\_Change()
Dim SuchDate As String
Dim Zelle As Range
On Error Resume Next
If Me.ComboBox2.Value "" Then
 SuchDate = Me.ComboBox2.Value
 Me.Label7.Visible = False
 Set Zelle = Range("a:a").Find(SuchDate)
 Me.TextBox1.Value = Zelle.Offset(, 1).Value
 Me.TextBox5.Value = Zelle.Offset(, 9).Value

Oben mit

On Error Resume Next

wurden die Fehlermeldungen ausgeschaltet… hoffe war richtig so :smile:

Nun soll da eine Msg box mit Ja / Nein Schaltfläche rein. Wie kann man das machen? Hat einer eine idee???

Gruß

2

Verfügung steht. Wenn eine Zahl nicht in der Externen Tabelle
ist, dann soll eine Fehlermeldung erscheinen.

Private Sub ComboBox2_Change()
Dim SuchDate As String
Dim Zelle As Range
On Error Resume Next
If Me.ComboBox2.Value „“ Then
SuchDate = Me.ComboBox2.Value
Me.Label7.Visible = False
Set Zelle = Range(„a:a“).Find(SuchDate)
Me.TextBox1.Value = Zelle.Offset(, 1).Value
Me.TextBox5.Value = Zelle.Offset(, 9).Value

Nun soll da eine Msg box mit Ja / Nein Schaltfläche rein. Wie
kann man das machen? Hat einer eine idee???

Was genau soll da abgefragt werden? Die Zahl gibt es nicht in der tabelle.

Hier ein Ansatz:

 Set Zelle = Range("a:a").Find(SuchDate)
 If Not Zelle Is Nothing Then
 'Me.TextBox1.Value = Zelle.Offset(, 1).Value
 'Me.TextBox5.Value = Zelle.Offset(, 9).Value
 Else
 MsgBox "Zahl nicht da"
 End If

Wieso Suchdate wenn du eine Zahl suchst?

Gruß
Reinhard

3

Hi Reinhard, hatte Zahl geschrieben anstatt Datum sorry,

also ich habe die Tabelle auf der Arbeit, werde deinen Ansatz morgen mal testen und mich dann wieder melden. Danke Dir

4

Hi Reinhard, hatte Zahl geschrieben anstatt Datum sorry,

also ich habe die Tabelle auf der Arbeit, werde deinen Ansatz
morgen mal testen und mich dann wieder melden. Danke Dir

Hallo Kolri,

bei Datum suchen in Excel ist es oft problematisch.

Wenn immer nix gefunden wird, benutz mal .find(Cdate(Suchdate)…
TextBoxen und Comboboxen liefern immer nur Strings zurück und Excel findet nicht den String „1.1.2011“ in einer Spalte wo das zwar auch steht, sichtbar ist, aber als Datum formatiert.

Gruß
Reinhard

5

Hi Reinhard,
also ich habe das mal versucht und es klappt nur teilweise. Also um das ganze durcheinander mal perfekt zu machen muss ich dir noch sagen, dass es doch eine Zahl sein soll und kein Datum :wink: Habe mich in der Tabelle vertan.

Also nochmal eine kurze Problembeschreibung:

Ich habe 2 Excelltabellen:

In der 1. Exceltabelle habe ich eine Userform, wo man nach bestimmten Räumen suchen kann. Die Raumnummern sind in einer anderen Exceltabelle hinterlegt. Diese stehen in der anderen Tabelle in der Spalte A3 bis A177.

Nun, wenn ich aus der ersten Tabelle in der Userform in der ComboBox die Raumnummer angebe, und diese in der anderen Tabelle auch vorhanden ist, dann soll er nichts melden. Wenn jedoch eine Raumnummer, welche nicht vorhanden ist, eingegeben wird, soll gemeldet werden: „Die Raumnummer existiert nicht - Möchten Sie Ihre Eingabe korrigieren? Ja / Nein“.

Die Raumnummer fängt mit der Nummer 1 an. Wenn man also z.B. 0 eingibt, dann soll es zu der Fehlermeldung kommen.

Habe nun auch mit deinem Code versucht, aber irgendwie gibt er die Fehlermeldung bei manchen Nummern an und bei manchen nicht.

Komme irgendwie nicht weiter.

Zur Zeit sieht mein Code folgendermaßen aus:

Private Sub ComboBox2\_Change()
Dim SuchDate As String
Dim Zelle As Range

On Error Resume Next

If Me.ComboBox2.Value "" Then
 SuchDate = Me.ComboBox2.Value
 Me.Label7.Visible = False
 Set Zelle = Range("a3:a200").Find(SuchDate)
 If Not Zelle Is Nothing Then
 'Me.TextBox1.Value = Zelle.Offset(, 1).Value
 'Me.TextBox5.Value = Zelle.Offset(, 9).Value
 Else
 MsgBox "Die Raumnummer ist nicht vorhanden. "
 End If

Sorry, aber ich schaffe das einfach nicht :frowning: Hast du eine Idee???