in Excel zellensprung definieren?

Hallo,

ich arbeite nun beruflich mit einen Barcodescanner und kann aufgrund des Vertikalen Fortschrittes nicht einfach durchscannen. Ich habe nun versucht mittels VBA eine Reihenfolge zu definieren. A1 B1 A2 B2 A3 B3 USW.

leider hab ich mir anscheinend zu glatt angestellt.

If Target.Cells.Address = "$B$1" Then Range("A2").Select
If Target.Cells.Address = "$B$2" Then Range("A3").Select

so versuchte ich es. Kennt jemand einen Besseren weg bzw einen der mich zumindest an mein Ziel bringt?

Answer 1

[Oubyi, UserMod Light]

Zum einen gibt es eine Möglichkeit ohne VBA:
Gehe auf: Datei/ Optionen/ Erweitert/ Bearbeitungsoptionen/ Markierung nach Drücken der Eingabetaste verschieben/ Richtung: Rechts/ OK.Markiere dann den gesamten Berich, z.B.
A1:B100
Jetzt wird der Bereich mit ENTER oder halt dem Scanner in der gewünschten Reihenfolge abgearbeitet.

Mit VBA geht das so:
Rechtsklick auf den Tabellenreiter (unten, da wo z.B. Tabelle1 steht) und gehe dann auf "Code anzeigen...".
In das große Fenster des VBA-Editors, der sich dann öffnet kopierst Du folgenden Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B100")) Is Nothing Then
    If Target.Column = 1 Then
       Target.Offset(0, 1).Select
    Else:
        Target.Offset(1, -1).Select
    End If
End If
End Sub

Klappt es?

Woher ich das weiß: Berufserfahrung – IT-Administrator (i.R.)

Comments

[BerryOBoyle]

Ja das klappt so! 
Habe mich für die VBA variante entschieden, so funktioniert das auf allen Laptops, da die Datei in der Dropbox liegt. Danke vielmals! 

[Oubyi, UserMod Light]

@BerryOBoyle

Gern geschehen 🙂