Userform mit Abfrage Tabellenblatt 3

Moderator: ModerationP

Userform mit Abfrage Tabellenblatt 3

Beitragvon Frank 2.0 » 11. Feb 2019, 17:26

Hallo liebe Excel Freunde,

ich habe hier im Forum folgenden Code gefunden.

Nun bin ich kein großer Fachmann auf diesem Gebiet und hoffe auf Eure Hilfe.

Ich möchte, dass der Code die Eingabe in TextBox1 mit dem Tabellenblatt3 Spalte A prüft und dann Textbox2 mit der Zahl im Tabellenblatt3 Spalte B prüft. Wenn die Zahl in TextBox2 um 21 Größer ist als in Spalte B, soll eine Meldung kommen. Im Bereich dieser 20 ist alles ok.


Vielen Dank im Voraus.

Private Sub CommandButton1_Click()
Dim c As Range
If Len(TextBox1.Value) > 0 And IsNumeric(TextBox2.Value) Then
With Worksheets("Tabelle2").Columns(1)
Set c = .Find(what:=TextBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
If 1 * TextBox2.Value < c.Offset(, 1) Then
MsgBox "das ist Mist"
Else
c.Offset(, 1) = TextBox2.Value * 1
End If
End If
Set c = Nothing
End With
End If
End Sub
Frank 2.0
 

Re: Userform mit Abfrage Tabellenblatt 3

Beitragvon Flotter Feger » 11. Feb 2019, 17:45

Hallo,

leider fehlt die wichtigste Info ... wie sehen bei dir die Spalten A und B aus ?

Gibt es da spezielle Zellen, die zum Vergleich herangezogen werden sollen ?
VG Sabina

bei mir läuft Win 7 32-Bit - Office 2010 Pro Plus 32-Bit und Office 2016 Pro Plus 32-Bit
Wer auch weiter Hilfe erwartet, sollte sich nicht zu schade sein, ein kurzes Feedback zu geben.
Benutzeravatar
Flotter Feger
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 2247
Registriert: 24. Okt 2016, 16:40

Re: Userform mit Abfrage Tabellenblatt 3

Beitragvon Frank 2.0 » 11. Feb 2019, 18:09

Hallo,

nein keine bestimmten Zellen.

In Spalte a soll ein bestimmter Wert Z.B. Drucker1 gefunden werden und in Spalte b soll die Zahl mit der TextBox verglichen werden.

Ist die Zahl in der Textbox um 21 größer als die in der Liste, soll eine Meldung kommen.
Frank 2.0
 

Re: Userform mit Abfrage Tabellenblatt 3

Beitragvon DerHoepp » 12. Feb 2019, 12:35

DerHoepp
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 8229
Registriert: 14. Mai 2013, 11:08


Zurück zu Excel Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: astern, feridun81, Sanji81, sven8219, Zwenn und 34 Gäste