Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform - Gültigkeit der Eingabe abfragen

Forumthread: Userform - Gültigkeit der Eingabe abfragen

Userform - Gültigkeit der Eingabe abfragen
29.08.2006 10:46:44
Rupert
Hallo Forum,
Ich hab da noch ein kleines problem mit Userform.
Ich hab soweit alles fertig, das mir die Userform die Daten ins Excel übergibt, jetzt möchte jedoch mein Cheffe noch das ich eine Prüfung einbaue ob die Artikelnummer in der Textbox 1 mit dem Tabellenblatt artikelstammdaten spalte B übereinstimmt, wenn sie übereinstimmt soll das vorhandenen makro ablaufen und die daten eintragen, wenn nicht, dann soll das die eingabe wieder auf die Textbox 1 zurückspringen und eine neueingabe ermöglichen (möglichst mit einer Msgbox)
Ich weiss das es mit einer If anweisung zu machen ist nur wie bekomme ich die Range von dem blatt und die die Find anweisung um die werte von TB1 auszugeben.
Vielleicht, sogar sicher hat jemand von euch eine Idee
danke schon mal
Rupert
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform - Gültigkeit der Eingabe abfragen
29.08.2006 10:50:27
Matthias
Hallo Rupert,
so in der Art:

Private Sub CommandButton1_Click()
Dim z As Range
Set z = Sheets("Tabelle1").Range("B:B").Find(What:=TextBox1, LookAt:=xlWhole)
If z Is Nothing Then
MsgBox "nicht gefunden"
Else
MsgBox "'" & TextBox1 & "' steht in Zeile " & z.Row
End If
End Sub

Gruß Matthias
Anzeige
AW: Userform - Gültigkeit der Eingabe abfragen
29.08.2006 11:06:51
Rupert
Hallo Matthias,
Funktioniert mal soweit gut, jedoch soll nachdem ich den OK-Button des MS-box klicke, das userform wieder da sein, es werden aber die werte eingetragen.
Ich hab mal den code genommen, leicht abgeändert von dir da ich die zweite Msg-Box nicht wirklich brauche
Dim z As Range
Set z = Sheets("Artikel_Stammdaten").Range("B:B").Find(What:=TextBox1, LookAt:=xlWhole)
If z Is Nothing Then
MsgBox "Wrong Articlenumber inputed try again"
End If
Nachdem die Msgbox kommt, werden die daten eingetragen und nicht wie gewollt die eingabe nochmals versucht.
vielleicht hast du noch eine idee
danke
Anzeige
AW: Userform - Gültigkeit der Eingabe abfragen
29.08.2006 11:16:27
Matthias
Hallo Rupert,
Wenn die Userform "noch da" sein soll, musst du den Befehl Unload Me, der die UF schließt, vermeiden.
Falls du es nicht hinkriegst, poste mal den gesamten Code (oder zumindest den relevanten).
Gruß Matthias
AW: Userform - Gültigkeit der Eingabe abfragen
29.08.2006 11:33:48
Rupert
Ok der code, schon mit deinem find eingebaut

Private Sub CommandButton1_Click()
Dim letzteZeile As Long
Dim z As Range
Set z = Sheets("Artikel_Stammdaten").Range("B:B").Find(What:=TextBox1, LookAt:=xlWhole)
If z Is Nothing Then
MsgBox "Wrong Articlenumber inputed try again"
End If
With ThisWorkbook.Sheets("DATENBANK")
letzteZeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
If ComboBox1.Value = "NEW-1" Then
.Unprotect
.Cells(letzteZeile, 1) = TextBox1.Value
.Cells(letzteZeile, 3) = ComboBox1.Value
.Cells(letzteZeile, 4) = Format(TextBox3, ">")
.Cells(letzteZeile, 5) = TextBox4.Value
.Cells(letzteZeile, 6) = TextBox5.Value
Range("B2").AutoFill Destination:=Range("B2:B" & Cells(Rows.Count, 1).End(xlUp).Row)
Range("G2").AutoFill Destination:=Range("G2:G" & Cells(Rows.Count, 1).End(xlUp).Row)
.Protect
ActiveWorkbook.RefreshAll
TextBox1 = " "
TextBox3 = " "
TextBox5 = " "
ComboBox1.ListIndex = -1
TextBox6 = " "
ComboBox2.ListIndex = -1
Else
.Unprotect
.Cells(letzteZeile, 1) = TextBox1.Value
.Cells(letzteZeile, 3) = ComboBox2.Value
.Cells(letzteZeile, 4) = Format(TextBox6, ">")
.Cells(letzteZeile, 5) = TextBox4.Value
.Cells(letzteZeile, 6) = TextBox5.Value
Range("B2").AutoFill Destination:=Range("B2:B" & Cells(Rows.Count, 1).End(xlUp).Row)
Range("G2").AutoFill Destination:=Range("G2:G" & Cells(Rows.Count, 1).End(xlUp).Row)
.Protect
ActiveWorkbook.RefreshAll
End If
End With
TextBox1 = " "
TextBox3 = " "
TextBox5 = " "
ComboBox1.ListIndex = -1
TextBox6 = " "
ComboBox2.ListIndex = -1
End Sub

wie gesagt, das problem ist wenn jetzt die artikelnummer nicht stimmt, zeigt er mir die Msg-Box, jedoch beim blicken auf ok, übergibt er die daten an das Excelsheet.
Eine Feinheit wäre noch, wenn in der combobox 1 das new-1 steht das dann combobox 2 und textbox6 gesperrt werden für die eingabe, ist dann aber nur mehr feinheit.
ich werde aber weiterversuchen, vielleicht wenn du zeit hast, kannst du dir das bitte ansehen.
danke
rupert
Anzeige
AW: Userform - Gültigkeit der Eingabe abfragen
29.08.2006 11:40:43
Matthias
Hallo Rupert,

If z Is Nothing Then
MsgBox "Wrong Articlenumber inputted try again"
With Me.TextBox1
.SelStart = 0
.SelLength = Len(Me.TextBox1)
.SetFocus
End With
Exit Sub
End If

Gruß Matthias
AW: Userform - Gültigkeit der Eingabe abfragen
29.08.2006 12:07:16
Rupert
Hallo Matthias,
Wunderbar, das funktioniert super, ich hoffe dir nicht zuviele umstände gemacht zu haben.
Ich bin absolut begeistert.
Super, diese funktionen hab ich noch nicht gekannt, werde sie mir aber jetzt aneignen.
Vielen Dank
Rupert
Anzeige
AW: Userform - Gültigkeit der Eingabe abfragen
29.08.2006 14:34:16
@Matthias
Hallo Mathias,
Es stellen sich noch kleine fragen
combobox1 & Textbox3 & Textbox5 müssen immer befüllt sein
combobox 2 & Textbox6 müssen nur dann befüllt werden wenn combobox1 nicht "NEW-1" enthält.
wie kann ich das denn lösen.
ich hab es so versucht
If ComboBox1.Value "NEW-1" Then
MsgBox "Please fill in Symbol 2"
With Me.ComboBox2
.SetFocus
End With
Exit Sub
End If
If ComboBox1.Value "NEW-1" Then
MsgBox "Please fill in Location2"
With Me.TextBox6
.SetFocus
End With
Exit Sub
End If
funktioniert aber nicht ganz, kannst du mir vielleicht noch mal hilfestellung geben?
auch wenn combobox1 nicht auf new steht schreib er mir die message hin.
danke
rupert
Anzeige
;

Forumthreads zu verwandten Themen

In derTextBox das Format ändern
edie

Hallo zusammen,
würde gerne, wenn es möglich wäre, das Datum in der TextBox im Format TT.MM.YYYY
zurückschreibe in die Zelle A1 im Format YYYY-MM-TT 00:00 z. B. 2008-07-01 00:00
Wenn es möglich ist dann wie?
Hat jemand eine Idee und kann weiter helfen?
Danke im Voraus.
...
13.08.2008 15:27:49
Thread-ID: 1001560
3 Beiträge
Fehler in der Formel
Baywatch

Hi
ich habe eine Formel und die tut es leider nicht. Wenn ich MIN durch Max ersetze klappt es, aber warum bei min NIcht?
Vielleicht findet jemand den Denkfehler?
{=(BEREICH.VERSCHIEBEN(Daten!$A$1;SUMME(WENN(Daten!D1:D5002=MIN(WENN(Daten!F1:F5002="M"; Daten!D1:D5002;0));ZEILE(Date...
15.08.2008 15:59:00
Thread-ID: 1002235
8 Beiträge
Datum in der Userform formatieren
Nadine

Hallo,
ich habe im VBA eine Userform erstellt. In einem der Textfelder soll ein Datum stehen.
Wenn Buchstaben in dieser Textbox stehen, soll keine Übertrabung in die -von mir vorgesehen- Excelzelle erfolgen.
Bitte um HILFE!!!
Vielen Dank
Nadine
18.08.2008 16:17:00
Thread-ID: 1002660
7 Beiträge
Bearbeiten/Formatieren der x-Achse in Diagramm
Mayr,

Hallo zusammen,
ich hab ein Problem beim Formatieren der X-Achse in meinem Diagramm...
Und zwar soll es eine Zeitachse sein und um 4 Uhr anfangen und um 4 Uhr enden.... also nicht von 0-24Uhr.
Das stellt aber jetzt für mich ein Problem dar, da ich wnicht weiß wie ich excel sag das e...
15.10.2008 14:03:00
Thread-ID: 1016558
2 Beiträge
Formel - Anzeige der gefilterten Inhalte
Rocky

Hallo Excelfreunde und zweiäugigen unter den Blinden und Einäugigen,
ich möchte gern einen dynamischen "Querfilter" basteln. Mein Ansatz bisher: Ich kopieren die Tabelle und transportiere diese. dann wird in jede Zelle folgende Formel geschrieben:
=WENN(INDIREKT(ADRESSE(SPALTE()+0;ZEILE...
28.11.2008 08:53:12
Thread-ID: 1028554
4 Beiträge
Fehler in der Verkettung der Formel ?
Selma

Hallo Leute,
ich habe in Spalte E und F mit Formeln die Zelleninhalte verkettet. Mit einem Makro markiere ich ab Zeile 3 die Zellen in Spalte E und F und erzeugte eine Datei move.bat die danach ausgeführt wird.
In Spalte E stehen die Ordnername die erstellt werden und in Spalte F die D...
21.12.2008 13:20:00
Thread-ID: 1034590
2 Beiträge
Inhalt einer Zelle in anderer Zelle als Formel
Elias

Guten Morgen,
ich bin auf der Suche nach einer Lösung für folgenden Sachverhalt.
In einer Tabelle wird aus dem Inhalt verschiedener Zellen über Verketten eine Zeichenfolge gebildet, die in einer anderen Tabelle als Formel herhalten soll.
(Kurzes) Beispiel, das Original ist furchtbar...
11.01.2009 06:01:22
Thread-ID: 1038572
6 Beiträge
Anzeige
Per Userform oder Inputbox Daten selektieren
Bernd


Hallo Freaks,
ich habe im Archiv gesucht, aber leider nichts gefunden.
Ich suche ein Makro, in das ich per Userform (oder Inputbox?) einen Begriff (Namen) eingebe, dann VBA in das Tabellenblatt 1 geht, in Spalte G den Suchbegriff (Namen) sucht und dann als Ergebnis der Suche die...
05.02.2009 16:36:55
Thread-ID: 1047421
6 Beiträge
Per Userform oder Inputbox Daten selektieren
Bernd


Hallo Freaks,
ich habe im Archiv gesucht, aber leider nichts gefunden.
Ich suche ein Makro, in das ich per Userform (oder Inputbox?) einen Begriff (Namen) eingebe, dann VBA in das Tabellenblatt 1 geht, in Spalte G den Suchbegriff (Namen) sucht und dann als Ergebnis der Suche die...
05.02.2009 17:06:43
Thread-ID: 1047434
3 Beiträge
mehrzeilige Eingabe in Inputbox oder UserForm
Jakob

Hallo,
ich stehe vor folgenden Problem und suche eine Lösung.
Ich habe die Zellen C19-I25 miteinnander verbunden. Nun möchte ich aus einer SAP-Anwendung einen mehrzeiligen Text kopieren (Strg+c). Wenn ich direkt die oben genannten Zellen anklicke und dort mit Strg+v versuche den Text ei...
18.02.2009 14:34:00
Thread-ID: 1051819
5 Beiträge
untereinanderstehende Werte via VBA umformatieren
Harry

Hallo zusammen,
ich habe folgendes Problem, das ich gerne mit VBA lösen möchte:
Und zwar habe ich eine Tabelle, in der untereinander in verschiedenen Spalten Werte stehen, die ich auf einem weiteren Tabellenblatt hintereinander ausgeben möchte.
Ich benötige dazu ein Makro, das bspw....
30.03.2009 19:56:28
Thread-ID: 1065412
5 Beiträge
Anzeige
Bilder einfügen ander Tabelle Formel Reaktion
Karel

Hallo Exelianer,
Habe untestehende Code zum bilder einfügen von Hajo's Seite.
meine Frage:
- wie kan ich Bilder einfugen wobei die Bildernamen in ein andere tabelle liegen (Tabelle1) bereich A8:A100
- bildname komen in Zelle Set RaBereich = Range("A10,C10,E10,G10") Tabelle (bild...
11.06.2009 20:52:07
Thread-ID: 1080841
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige