Barcode in Excel einlesen und Datum automatisch hinzufügen
Schritt-für-Schritt-Anleitung
Um in Excel einen Barcode einzulesen und automatisch das aktuelle Datum sowie die Uhrzeit in einer benachbarten Spalte anzuzeigen, gehe wie folgt vor:
-
Öffne Excel und gehe zu dem Tabellenblatt, in dem du arbeiten möchtest.
-
Öffne den VBA-Editor, indem du Alt + F11 drückst.
-
Finde das Klassenmodul für das betreffende Tabellenblatt im Projektfenster. Klicke mit der rechten Maustaste auf das Blatt und wähle „Code anzeigen“.
-
Füge den folgenden VBA-Code in das Modul ein:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Columns("A")) Is Nothing Then
If Target.Value <> "" Then
Target.Offset(0, 1).Value = Now
End If
End If
End Sub
-
Schließe den VBA-Editor und gehe zurück zu Excel.
-
Teste die Funktion, indem du einen Barcode in die erste Spalte (A) eingibst. In der zweiten Spalte (B) sollte nun automatisch das aktuelle Datum und die Uhrzeit erscheinen.
Häufige Fehler und Lösungen
Alternative Methoden
Falls du nicht mit VBA arbeiten möchtest, kannst du auch eine Formel verwenden. Diese Methode ist jedoch nicht so dynamisch, da sie manuell aktualisiert werden muss.
- Gib in Spalte B die folgende Formel ein:
=WENN(A1<>"",JETZT(),"")
- Beachte, dass du die Formel manuell kopieren musst, um sie auf neue Zeilen anzuwenden.
Praktische Beispiele
Beispiel 1: Wenn du in Zelle A1 den Barcode 12345 eingibst, sollte in Zelle B1 das aktuelle Datum und die Uhrzeit erscheinen, wie z.B. 09.09.2022 12:45.
Beispiel 2: Wenn du mehrere Barcodes hintereinander eingibst (z.B. 23412 in A2), wird in B2 automatisch 09.09.2022 13:02 eingetragen.
Tipps für Profis
-
Nutze die Funktion Format, um das Datum und die Uhrzeit nach deinen Wünschen anzupassen:
Target.Offset(0, 1).Value = Format(Now, "dd.mm.yyyy hh:mm")
-
Experimentiere mit weiteren Automatisierungen, z.B. durch das Hinzufügen von Benachrichtigungen oder das Speichern der Daten in einer anderen Tabelle.
FAQ: Häufige Fragen
1. Kann ich den Code auch für andere Spalten verwenden?
Ja, du kannst die Spalte im Code anpassen, indem du Me.Columns("A") in die gewünschte Spalte änderst.
2. Funktioniert das auch in Excel Online?
Leider unterstützt Excel Online keinen VBA-Code. Du musst die Desktop-Version von Excel verwenden, um diese Funktion zu nutzen.