Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon ThoSaKi vom 04.12.2020, 15:37 Options
Zeitstempel und nächste Zeile
Für eine Testumgebung soll ein Datamatrix Scanner zwei Codes nacheinander einlesen. Erst eine Seriennummer, dann ein Arbeits-/ Lagerplatz. Wenn diese beiden Fehler gefüllt sind, soll Excel in einem dritten Feld Daum und Uhrzeit speichern, und in die nächste Zeile wechseln.
Ich versuche krampfhaft mit Excel eine Programmierung hinzubekommen, das er ein Feld weiter nach rechts springt habe ich mittlerweile herausbekommen, beim Rest harpert es noch. Hat jemand eine Lösung?
Viele Grüße
Ich versuche krampfhaft mit Excel eine Programmierung hinzubekommen, das er ein Feld weiter nach rechts springt habe ich mittlerweile herausbekommen, beim Rest harpert es noch. Hat jemand eine Lösung?
Viele Grüße
Antwort 1 von fedjo vom 04.12.2020, 17:43 Options
Hallo ThoSaKi ,
Code in das Codefenster der Tabelle einfügen.
Sind die Zellen der Spalten A-B gefüllt und eine andere ausgewählt, so wird Datum-Uhrzeit in die nächste eingetragen und die übernächste ausgewählt.
Gruß
fedjo
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Cells(Target.Row, Target.Column) <> "" Then
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("B1:B65365")
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then RaZelle.Offset(0, 0).Select
Next RaZelle
Application.EnableEvents = True
Set RaBereich = Nothing
ActiveCell.Offset(0, 1) = Now
ActiveCell.Offset(0, 2).Select
End If
End Sub
Code in das Codefenster der Tabelle einfügen.
Sind die Zellen der Spalten A-B gefüllt und eine andere ausgewählt, so wird Datum-Uhrzeit in die nächste eingetragen und die übernächste ausgewählt.
Gruß
fedjo
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Cells(Target.Row, Target.Column) <> "" Then
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("B1:B65365")
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then RaZelle.Offset(0, 0).Select
Next RaZelle
Application.EnableEvents = True
Set RaBereich = Nothing
ActiveCell.Offset(0, 1) = Now
ActiveCell.Offset(0, 2).Select
End If
End Sub
Ähnliche Themen
Average von einer Zeile
martin123 01.06.2007 - 29 Hits - 3 Antworten
Daten aus Zeile und Spalte in einer Zeile
Snuddler 30.06.2007 - 73 Hits - 2 Antworten
Zeile mit Zeile vergleichen in Excel
mond_sterne183 30.08.2007 - 363 Hits - 1 Antwort
VBA - Zeile ? bis letzte Zeile markieren ...
Tomschi 03.04.2008 - 120 Hits - 7 Antworten
Excel Tabelle einfärben (eine Zeile weiss, eine Zeile grau)
weissgrau 16.10.2008 - 64 Hits - 3 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
