VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Chris1603	Datum: 26.03.2014 20:44:18	Views: 1171	Rating:	Antwort:
Thema: Genaue Texteingabe
Hallo Excel-Freunde, für folgendes bräuchte ich etwas Hilfe. Ich habe in der Spalte A ca. 100 Artikelnummern. Was muss ich an der VBA ändern oder hinzufügen, dass die Eingabe korrekt sein muss. Bei falsche Eingabe soll dann auch eine msgbox aufgehen, Artikelnummer nicht vorhanden. Wäre sehr schön, wenn mir jemand helfen könnte. Ich danke Euch für Eure Hilfe! Gruß Chris Option Explicit Private Sub CommandButton1_Click() Dim rngFund As Range Set rngFund = Range("A2:A200").Find(TextBox1.Value) rngFund.Offset(0, 2).Value = TextBox2.Value rngFund.Offset(0, 3).Value = rngFund.Offset(0, 3).Value + TextBox2.Value TextBox1.Text = vbNullString TextBox2.Text = vbNullString End Sub Private Sub CommandButton3_Click() Unload UserForm1 End Su

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen