Hallo Peter,

was bedeuten die 5 Sternchen? Ist die Aufgabe bereits gelöst? Falls nicht, hier mal meine Idee dazu.

Öffne den VBA-Explorer mit Alt + F12. Suche im Projektfenster links oben das Tabellenmodul das deiner Barcodetabelle entspricht und klicke doppelt darauf. Gib im Codefenster rechts nun folgenden Code an:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Range("G:G").NumberFormat = ";;;"
  Range("G" & Target.Row).NumberFormat = "@"
End Sub

Wenn du nun durch die Zeilen gehst wird nur der Barcode der jeweiligen Zeile angezeigt. Prüfe aber unbedingt ob dieser noch funktioniert und vom Lesegerät ausgelesen werden kann, da der Inhalt der Zelle mit dem Barcode nun nicht mehr vom Typ Zahl sondern vom Typ Text ist. Sollte das Probleme bereiten, klick mit der rechten Maustauste auf die Zelle mit dem Barcode und wähle Zellen formatieren und im Register Zahlen den Punkt Benutzerdefiniert. Nenne dann hier im Forum welches Zahlenformat auf der rechten Seite steht. Dann können wir den Code noch entsprechend anpassen.

Gruß Mr. K.