Hallo Zusammen,
an sich tun die Makros im angehängten Excel-Workbook genau das, was ich haben möchte, aber ich bin mit ein Teil der Programmierung nicht zufrieden. Das Datenblatt arbeitet zusammen mit einem Barcode-Scanner, die bestimmte Zellen mit Nummern füllt. Kurze Bedienanweisung: Klicke auf der Produktname, der Cursor springt (abhängig vom Monatsnummer) zur ersten Eingabe-Zelle, 8 x Barcode - oder 8x etwas eingeben und mit "enter" abschliessen - , cursor springt zur Ruhe-Position.
Was mir nicht gefällt sind diese Code-Zeilen, weil Sie alle gleich sind und für jedes Produkt (alle unebene Zeilen) wiederholt werden müssen. Es muss doch einfacher gehen, nur ich finde die Lösung gerade nicht (blind oder dumm könnt Ihr entscheiden).
Case "B7"
If Check = "C" Then
Call Control_R
Exit Sub
End If
Range(NameCell).Offset(0, s).Select
Range(NameCell).Offset(0, s).Interior.ColorIndex = 19
Range("A1").Value = ActiveCell.Row: Range("A2").Value = 1 'Tell where you are
Case "B9"
If Check = "C" Then
Call Control_R
Exit Sub
End If
Range(NameCell).Offset(0, s).Select
Range(NameCell).Offset(0, s).Interior.ColorIndex = 19
Range("A1").Value = ActiveCell.Row: Range("A2").Value = 1 'Tell where you are
Case "B11"
If Check = "C" Then
Call Control_R
Exit Sub
End If
Range(NameCell).Offset(0, s).Select
Range(NameCell).Offset(0, s).Interior.ColorIndex = 19
Range("A1").Value = ActiveCell.Row: Range("A2").Value = 1 'Tell where you are
etc.
Link zum Workbook: https://www.herber.de/bbs/user/135893.xlsm
Wenn Ihr hier eine Lösungsansatz geben könntet, wäre ich Euch sehr dankbar. Auch gerne andere Kommentare zur Code-Verbesserung - ich möchte immer noch dazu lernen