Microsoft Excel

Herbers Excel/VBA-Archiv

Buchstabe vor Scancode

Betrifft: Buchstabe vor Scancode von: Andreas Buttler
Geschrieben am: 24.10.2020 15:52:24

Hallo Zusammen,
bis jetzt konntet Ihr mir immer helfen. Jetzt was kniffliges.
Vorab: Barcode scannen in Excel funktioniert einwandfrei wenn man das Format richtig zuordnet.
Jetzt zum Problem: Jeder gescannte Code hat einen Buchstaben vorangestellt. Dieser sagt die Bedeutung und die Zuordnung aus. Wenn Scancode P123456 ist, soll der Wert nach dem P in Feld C11. Bei F vorangestellt soll nur der Wert in D19.
Also so:
P123456 soll Wert 123456 in Feld C11
F789456 soll Wert 789456 in Feld D19
Nach allen Scans soll das Feld geleert und der nächste Code gescannt werden. Ca 17 Scans
Die Formatierung ist immer Text

Herzlichen Dank Euch allen

Betrifft: If Left([A1], 1) = "P" Then ... mach irgend was...
von: Matthias L
Geschrieben am: 24.10.2020 16:23:31

.

Betrifft: AW: If Left([A1], 1) = "P" Then ... mach irgend was...
von: Andreas Buttler
Geschrieben am: 24.10.2020 16:58:59

Hallo Matthias,
Danke, der Ansatz ist echt gut aber was soll ich dann machen ?
Das Feld dann kopieren und irgendwo einfügen funktioniert auch aber ich möchte ja den Wert hinter dem "P" dann in C11

Betrifft: AW: If Left([A1], 1) = "P" Then ... mach irgend was...
von: onur
Geschrieben am: 24.10.2020 17:38:15

    RScan = Right(Scan, Len(Scan) - 1)
    If Left(Scan, 1) = "P" Then
        Range("C11") = RScan
    Else
        Range("D19") = RScan
    End If

Genaueres geht nur, wenn du mal die (Beispiels-) Datei postest.

Betrifft: AW: If Left([A1], 1) = "P" Then ... mach irgend was...
von: Andreas Buttler
Geschrieben am: 24.10.2020 18:21:14

Hallo Matthias,
ich habe Dir mal die Beispieltabelle hochgeladen.
Wenn im grünen Feld gescannt wird, soll der Wert ohne "P" in C11 geschrieben werden.
Wird ein Code gescannt mit einem "F" soll der Wert dann in C15 ohne "F" geschrieben werden.

Betrifft: AW: If Left([A1], 1) = "P" Then ... mach irgend was...
von: onur
Geschrieben am: 24.10.2020 21:33:02

1) Wieso Matthias? ICH habe um die Datei gebeten.
2) "ich habe Dir mal die Beispieltabelle hochgeladen" - schön, da ist sie nun irgendwo auf dem Herber-Server und keiner kommt daran, da du den LINK dazu NICHT gepostet hast.

Betrifft: AW: Buchstabe vor Scancode
von: Herbert_Grom
Geschrieben am: 25.10.2020 14:58:49

Hallo Andreas,

probiers mal damit:
Sub ScanCode()
   Dim iCount%
   For iCount = 1 To 17
      '* hier wird dein ScanCode ausgelesen und in die Zelle A1 eingefügt!
      If Left([A1], 1) = "P" Then Range("C11").Value = Mid([A1], 2, 15) * 1
      If Left([A1], 1) = "F" Then Range("D19").Value = Mid([A1], 2, 15) * 1
      [A1].ClearContents
   Next iCount
End Sub
Servus

Betrifft: AW: Buchstabe vor Scancode
von: Andreas Buttler
Geschrieben am: 25.10.2020 16:56:35

Hallo Herbert,
bei * wird mein scancode ausgelesen, ok. Füge ich hier ein Feld ein, will die Prozedur ein Anweisungsende ?? If Left([A1], 1) = "P" Then Range("C11").Value = Mid([A1], 2, 15) ["D12"] 1
Wo liegt mein Denkfehler ?
Und was macht icount = 1 to 17 ??
Danke Dir

Betrifft: AW: Buchstabe vor Scancode
von: Herbert_Grom
Geschrieben am: 25.10.2020 17:01:40

Warum beachtest du diesen Hinweis nicht? Glaubst du dass wir Lust haben, deine AM nachzubauen? Ich jedenfalls nicht!



Betrifft: AW: Buchstabe vor Scancode
von: Andreas Buttler
Geschrieben am: 25.10.2020 17:22:54

https://www.herber.de/bbs/user/141074.xlsx
Sorry, in den grünen Feldern wird gescannt und der Wert hinter dem Buchstabe einem gelben Feld zugeordnet.
Bei "P" in C11:C15, bei "C" in C15:K15 usw.
Sorry noch mal und Danke

Betrifft: AW: Buchstabe vor Scancode
von: onur
Geschrieben am: 25.10.2020 17:31:05

Zuerst schreibst du: "P123456 soll Wert 123456 in Feld C11;F789456 soll Wert 789456 in Feld D19"
und diesmal: "Bei "P" in C11:C15, bei "C" in C15:K15 usw." - WAS DENN NUN ?
Aus deiner Datei kann man es leider nicht entnehmen, da es das reinste Chaos ist.

Betrifft: AW: Buchstabe vor Scancode
von: Andreas Buttler
Geschrieben am: 25.10.2020 17:35:28

Danke

Betrifft: AW: Buchstabe vor Scancode
von: onur
Geschrieben am: 25.10.2020 17:36:21

Ist DAS die Antwort auf meine Frage?

Beiträge aus dem Excel-Forum zum Thema "Buchstabe vor Scancode"