Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.09.2025 15:11:53
Probleme mit dem Autovervollständigen
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1512to1516
1512to1516
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte Zeilen überspringen bei Barcodescann

Forumthread: Bestimmte Zeilen überspringen bei Barcodescann

Bestimmte Zeilen überspringen bei Barcodescann
14.09.2016 10:16:32
Jürgen
Hallo werte User,
ich scanne Barcodes ein. Es wird nur eine Zelle befüllt. Nach jedem Scann soll der Cursor automatisch eine Zeile nach unten springen. Dieses Problem scheine ich schon gelöst zu haben.

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A" & Target.Row)  "" Then
Range("A" & Target.Row + 1).Select
End If
End Sub

Nun soll aber zusätzlich nach jedem zwölften Scann eine komplette Zeile übersprungen werden. Es sollen also immer 12er-Blöcke abgebildet werden.
Ich bedanke mich im Voraus für Tips
Gruß
Jürgen
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Welche ZeileNr ist die Erste ? (owT)
14.09.2016 10:30:05
EtoPHG

AW: Bestimmte Zeilen überspringen bei Barcodescann
14.09.2016 10:33:58
UweD
Hallo
Private Sub Worksheet_Change(ByVal Target As Range)
     Dim i As Integer
     If Target.Column <> 1 And Target.Count > 1 Then Exit Sub
     If Target <> "" Then
        i = IIf(Target.Row Mod 12 = 1, 1, 0) 'Mod 12 = 1 wenn Überschrift sonst =0 
        Target.Offset(1 + i, 0).Select
    End If

End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 15 - mit VBAHTML 12.6.0
Gruß UweD
Anzeige
nimm OR statt AND
14.09.2016 10:50:28
Matthias
Hallo
If Target.Column  1 And Target.Count > 1 Then Exit Sub
Bei And gibts einen Fehler beim Löschen mehrerer Zellinhalte
Deshalb besser mit Or arbeiten: 
If Target.Column  1 Or Target.Count > 1 Then Exit Sub
Gruß Matthias
Anzeige
AW: nimm OR statt AND
14.09.2016 10:55:53
UweD
@ Matthias: Danke für den Hinweis.
Ist aber noch ein Bug drin.
so geht es aber.
Private Sub Worksheet_Change(ByVal Target As Range)
     Dim i As Integer, leer As Integer
     If Target.Column <> 1 Or Target.Count > 1 Then Exit Sub
     If Target <> "" Then
        leer = WorksheetFunction.CountBlank(Range(Cells(Target.Row, 1), Cells(Target.Row - 11, 1)))
        i = IIf(leer = 0, 2, 1)
        Target.Offset(i, 0).Select
    End If
End Sub
LG UweD
Anzeige
da ist aber auch der wurm drin.
14.09.2016 11:20:56
UweD
- da testet man, wenn mehr als 12 erfasst sind und stellt einen Fehler fest,
- ändert das dann, dass es klappt
- und beachtet die Zeilen &lt12 nicht. :-((
so sollte es aber jetzt klappen.
Private Sub Worksheet_Change(ByVal Target As Range)
     Dim i As Integer, leer As Integer
     If Target.Column <> 1 Or Target.Count > 1 Then Exit Sub
     If Target <> "" Then
        If Target.Row > 12 Then
            leer = WorksheetFunction.CountBlank(Range(Cells(Target.Row, 1), Cells(Target.Row - 11, 1)))
            i = IIf(leer = 0, 2, 1)
        Else
            i = 1
        End If
        Target.Offset(i, 0).Select
    End If
End Sub

LG UweD
Anzeige
AW: Danke
14.09.2016 11:37:14
Jürgen
Läuft perfekt.
Ich bedanke mich ganz herzlich.
Gruß
Jürgen
gern geschehen owT
14.09.2016 11:40:00
UweD
;

Forumthreads zu verwandten Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Anzeige
Summen in bestimmte Zeilen
Thomas

Hallo,
ich suche eine sicherlich einfache Möglichkeit Summen in einer bestimmten Zeile bilden zu lassen. Das Problem ist das die Bereiche unterschiedlich groß sind.
Zur besseren Erläuterung habe ich eine Bsp-Datei angehängt.
Vielen Dank!
MfG Tom
Die Datei https://www.herber....
27.08.2008 14:19:00
Thread-ID: 1005088
13 Beiträge
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
In Textfile bestimmte Zeile suchen
Pascal

In einem Textfile soll nach einer bestimmten Zeile (immer der gleiche Text) gesucht werden.
Wird dieser Text gefunden, so soll alles vom Beginn weg des Textfiles bis und mit dieser Zeile (plus zusätzlich noch die nächste Zeile) gelöscht werden.
Geht das irgendwie ?
Wenn ja, wie ?
24.09.2008 16:14:00
Thread-ID: 1012111
8 Beiträge
Anzeige
aktive Zelle soll in Spalte "L" springen
Karsten

Hallo... ,
Suche folgenden Makrobefehl:
Die aktive Zelle soll in der Zeile bleiben, in der sie sich befindet, allerdings nach Spalte "L" springen.
Danke für eure Hilfe!
Gruß
Karsten
03.10.2008 16:34:44
Thread-ID: 1014058
3 Beiträge
Zelle einer Spalte in bestimmte Zelle kopieren
Fred

Wie kann man irgendeine Zelle, die in einer bestimmten Spalte befüllt wird, in eine fixe Zelle einer andere Excel-Tabelle übertragen?
Danke für eure Unterstützung!
08.10.2008 09:43:47
Thread-ID: 1014907
3 Beiträge
Anzeige
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Makro nur in bestimmten Zellen
TomTom

Hi,
der folgende Code soll in der Spalte Q das Datum umformatieren. Nun habe ich aber auch in der Spalte Q auch leere Zellen drin und der Code schreibt dann in die leeren Zellen immer 01.01.1900 rein, obwohl sie eigentlich leer bleiben sollen.
Wie kann man den Code ändern, dass leere Ze...
13.11.2008 08:56:51
Thread-ID: 1024041
5 Beiträge
Anzeige
Formelwerte in bestimmte Zellen
Sebastian

Hallo zusammen,
ich möchte gerne mit Hilfe eines Makros oder ähnlichem die Formelwerte eines bestimmten Arrays in ein bestimmtes Array eintragen lassen, wenn man darauf klickt.
Ist dies möglich? Wenn ja, wie? ;)
Vielen Dank für eure Hilfe und falls Ihr noch etwas mehr Info braucht,...
17.11.2008 21:32:00
Thread-ID: 1025413
7 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Bestimmte Zeilen bei Barcodescann in Excel überspringen

Schritt-für-Schritt-Anleitung

Um in Excel beim Scannen von Barcodes automatisch eine Zeile zu überspringen, kannst Du VBA (Visual Basic for Applications) verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne Deine Excel-Datei und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Wähle im Projekt-Explorer das Arbeitsblatt aus, für das Du den Code einfügen möchtest.

  3. Füge den folgenden Code in das Code-Fenster ein:

    Private Sub Worksheet_Change(ByVal Target As Range)
   Dim i As Integer, leer As Integer
   If Target.Column <> 1 Or Target.Count > 1 Then Exit Sub
   If Target <> "" Then
       If Target.Row > 12 Then
           leer = WorksheetFunction.CountBlank(Range(Cells(Target.Row, 1), Cells(Target.Row - 11, 1)))
           i = IIf(leer = 0, 2, 1)
       Else
           i = 1
       End If
       Target.Offset(i, 0).Select
   End If
End Sub

  4. Schließe den VBA-Editor und teste das Scannen von Barcodes in Deinem Arbeitsblatt.

Häufige Fehler und Lösungen

  • Fehler beim Löschen mehrerer Zellen:

    • Problem: Der Code funktioniert nicht korrekt, wenn Du mehrere Zellen gleichzeitig bearbeitest.
    • Lösung: Ändere die Zeile:
    If Target.Column <> 1 Or Target.Count > 1 Then Exit Sub

  • Cursor springt nicht wie gewünscht:

    • Problem: Der Cursor springt nicht nach jeder zwölften Zeile.
    • Lösung: Stelle sicher, dass der Code den richtigen Modulo-Operator verwendet, um die Zeilen korrekt zu zählen.

Alternative Methoden

Falls Du keinen VBA-Code verwenden möchtest, gibt es auch alternative Methoden:

  1. Formeln: Du kannst Formeln verwenden, um bestimmte Zellen zu überspringen, jedoch ist dies nicht so flexibel wie VBA.
  2. Makros: Erstelle ein Makro, das die gewünschte Funktionalität bietet und das Du bei Bedarf ausführen kannst.

Praktische Beispiele

Hier sind einige praktische Beispiele, wie der Code verwendet werden kann:

  • Beispiel 1: Wenn Du Barcodes in die Zellen A1 bis A12 scannst, wird der Cursor nach dem Scannen von A12 auf A14 springen.
  • Beispiel 2: Bei einem neuen Barcode in A13 wird der Cursor auf A15 springen, sofern die vorherige Zeile nicht leer ist.

Tipps für Profis

  • Debugging: Nutze die Debugging-Funktion im VBA-Editor, um Fehler schnell zu identifizieren.
  • Optimiere den Code: Überlege, ob Du den Code so optimieren kannst, dass er schneller läuft oder weniger Ressourcen verbraucht.
  • Regelmäßige Backups: Mache regelmäßig Backups Deiner Excel-Datei, bevor Du Änderungen am VBA-Code vornimmst.

FAQ: Häufige Fragen

1. Frage
Wie kann ich den Code anpassen, um mehr als 12 Zeilen zu überspringen?
Antwort: Du kannst den Wert 12 im Code durch die gewünschte Anzahl ersetzen.

2. Frage
Funktioniert dieser Code in allen Excel-Versionen?
Antwort: Der Code wurde in Excel 2013 getestet, sollte jedoch auch in neueren Versionen funktionieren.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige