Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1556to1560
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1556to1560
1556to1560
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zahlen Textfeld oder ähnlichem zuordnen

Zahlen Textfeld oder ähnlichem zuordnen
19.05.2017 08:26:42
Carsten
Guten Morgen zusammen,
ich habe mir eine kleine Abfrage gebastelt die Soll-Werte mit Ist-Werten (Mit Barcode Scanner eingelesen) vergleicht und mir falsche Stellen (Zahl wird geteilt untersucht) ausgibt. Allerdings beginnen die Zahlen mit einer fortlaufenden Nummer also 1...,2...,3... also ist es notwendig immer in der richtigen Reihenfolge zu scannen, ist es möglich das beim Scannen die Zahl anhand seiner Anfangszahl zugewiesen wird z.B. zahl 200000 in die 2. Box und 400000 in die 4. Box?

  • Produkt 1: 1xxxxxxxx
    Produkt 2: 2xxxxxxxx
    Produkt 3: 3xxxxxxxx
    Produkt 4: 4xxxxxxxx
    Produkt 5: 5xxxxxxxx
    Produkt 6: 6xxxxxxxx
    Produkt 7: 7xxxxxxxx
    Produkt 8: 8xxxxxxxx

    • 1
    Beitrag zum Forumthread
    Beitrag zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Zahlen Textfeld oder ähnlichem zuordnen
    19.05.2017 08:58:55
    Max2
    Hallo,
    so z.B. wenn die Daten in TextBoxen auf einer UF reinkommen:
    
Option Explicit
Sub a()
Dim i As Integer
i = MyPosition("eingescannte Zahl")
UserForm1.Controls("TextBox" & i).Value = "eingescannte Zahl"
End Sub
Private Function MyPosition(ByVal myString) As Integer
Dim compare As Integer
On Error Resume Next
compare = CInt(Left(myString, 1))
'//Wenn compare Nothing ist dann raus hier
If Err.Number  0 Then Exit Function
'//Wenn compare Null ist, dann raushier
'(die Ziffer ist gemeint)
If compare = 0 Then Exit Function
'//gebe die Position zurück
MyPosition = compare
End Function

    Anzeige

    Links zu Excel-Dialogen

    TextBox UserForm

    Beliebteste Forumthreads (12 Monate)

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

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige