Zeichensatz nicht nur in länge einschränken?

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row >= 4 And Target.Column = 2 And Target.Value > "" Then If Len(Target.Value) = 15 Then Target.Offset(0, 1).Value = Now Else Beep Target.Value = "" Target.Cells.Select UserinterfaceOnly = True End If End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row >= 4 And Target.Column = 2 And Target.Value "" Then Application.EnableEvents = False If Target.Value Like "A?2ED" Then Target.Offset(0, 1).Value = Now Else Beep Target.Value = "" Target.Cells.Select UserinterfaceOnly = True End If Application.EnableEvents = True End If End Sub

Tausend Dank!!!!!!! Es geht... *freu*
eine andere Frage gleich noch hinten dran. Der o.a. Code bezieht sich ja nun auf das Active Worksheet (wenn ich das schon richtig lesen kann ;) Gibt es eine Möglichkeit, einen "komplexen" Code auf nur eine bestimmte Zelle anwenden zu lassen. Formeln zbsp. gebe ich ja nur in einer Zelle ein.
Mein nunmehr letztes Problem:
in den Spalten B steht eine Seriennummer in Spalte C steht das Erfassungsdatum.
Ich möchte nun alle Geräte abscannen (immer in Zelle B1) der aufgenommene Code soll mit der Kompletten Spalte (von B4:B1000) abgeglichen werden. Findet er den Code in der Spalte soll er direkt in die Spalte (A*) neben dem gefunden Code ein "Erfasst" schreiben, wenn möglich in grün. Findet er Ihn nicht, soll er eine msgbox auswerfen und wieder peepen ;o) Steht bei der gefunden Nummer in Spalte A bereits ein "verkauft" soll er ebenfalls peepen und msgbox auswerfen.
Da ich nun aber wirklich nicht gut im Thema VBA bin scheint das wohl ein doch sehr complexer Code zu werden und frage mich ob ich nicht einfach der Zelle B1 wie oben beschrieben sagen kann:
Schaue ob die gerade gescannte (Auch wieder eingeschränkter Zeichensatz) Nummer irgendwo in Spalte B4 - B* vorhanden ist. Wenn ja, schaue ob in Spalte A daneben "verkauft" steht. Wenn nicht dann schreibe "Erfasst" in grün in die Spalte A daneben, wenn "verkauft" da steht Beep und Msg Box. Ist die Nummer garnicht vorhanden ebenfalls Beep und MsgBox.
Ich hoffe ich hab es einigermassen verständlich erklärt. Bin doch langsam leicht durcheinander ;) brauch ne Pause ;o)

Beliebteste Forumthreads (12 Monate)

Zeichensatz nicht nur in länge einschränken?

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeichensatz nicht nur in länge einschränken?

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread