Anzeige
Archiv - Navigation
224to228
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
224to228
224to228
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Worksheet_Change

Worksheet_Change
27.02.2003 19:39:25
philip
hallo.
ich habe folgendes problem und hoffe mal, dass mir jemand helfen kann. und zwar habe ich folgenden code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target.Value) = 11 Then [D4] = Target.Value
End Sub
er bewirkt, dass egal wo im tabellenblatt eine 11 stellige zahl eingegeben wird, diese immer in D4 erscheint.
das soll auch so sein, jedoch soll die zahl wenn sie also nicht in D4 eingegeben wird aus der zelle gelöscht werden, dass sie am ende also nur noch in D4 steht.
Hoffe mal es hat jemand dafür eine lösung, bin schon am verzweifeln. Danke!
phillip


11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Worksheet_Change
27.02.2003 19:45:31
PeterW

Hallo Phillip,

folgender Code:

Gruß
Peter

Re: Worksheet_Change
27.02.2003 19:45:38
Hajo

Hallo Phillip

Gruß Hajo

Re: Worksheet_Change
27.02.2003 19:49:00
phillip

hallo,

vielen vielen dank !! funktioniert prima!

gruß phillip

noch ein Problem Worksheet_Change !!
27.02.2003 20:23:33
phillip

hallo noch mal,
der code funktioniert wunderbar, jedoch ist er nicht der einzige,der aushefürt werden soll. danach folgt:
If Target.Address <> "$H$3" Then Exit Sub
With Application
.EnableEvents = False
If [I7] = "" And Target.Value <> "" Then
[I7] = Format(Now, "hh:mm:ss")
Target.Offset(0, 1) = Target.Value
ElseIf Target = Target.Offset(0, 1) And [I7] <> "" Then
[I10] = Format(Now, "hh:mm:ss")
End If
.EnableEvents = True
End With

und seltsamerweise wird dieser nicht ausgeführt, wenn ich den anderen code eingefügt habe.
also entweder ist es eine kleinigkeit oder es geht nicht

danke gruß phillip


Anzeige
Re: noch ein Problem Worksheet_Change !!
27.02.2003 20:28:14
Hajo_Zi

Hallo Phillip

immer den komplettenm Code Posten. Ich kann nicht sehen wie Du das zusammengebaut hast.

Gruß hajo

Re: noch ein Problem Worksheet_Change !!
27.02.2003 20:34:43
phillip

Private Sub Worksheet_Change(ByVal Target As Range)


If Len(Target.Value) = 11 Then
Application.EnableEvents = False
[D4] = Target.Value
Target.Value = ""
Application.EnableEvents = True
End If

If Target.Address <> "$H$3" Then Exit Sub
With Application
.EnableEvents = False
If [I7] = "" And Target.Value <> "" Then
[I7] = Format(Now, "hh:mm:ss")
Target.Offset(0, 1) = Target.Value
ElseIf Target = Target.Offset(0, 1) And [I7] <> "" Then
[I10] = Format(Now, "hh:mm:ss")
End If
.EnableEvents = True
End With

If Target.Address <> "$H$3" Then Exit Sub
With Application
.EnableEvents = False
If [F7] = "" And Target.Value <> "" Then
[F7] = Format(Now, "hh")
Target.Offset(0, 1) = Target.Value
ElseIf Target = Target.Offset(0, 1) And [F7] <> "" Then
[F10] = Format(Now, "hh")
End If
.EnableEvents = True
End With

If Target.Address <> "$H$3" Then Exit Sub
With Application
.EnableEvents = False
If [F8] = "" And Target.Value <> "" Then
[F8] = Format(Now, "mm")
Target.Offset(0, 1) = Target.Value
ElseIf Target = Target.Offset(0, 1) And [F8] <> "" Then
[F11] = Format(Now, "mm")
End If
.EnableEvents = True
End With


Range("H3").Select
End Sub

Anzeige
Re: noch ein Problem Worksheet_Change !!
27.02.2003 20:36:15
phillip

Private Sub Worksheet_Change(ByVal Target As Range)


If Len(Target.Value) = 11 Then
Application.EnableEvents = False
[D4] = Target.Value
Target.Value = ""
Application.EnableEvents = True
End If

If Target.Address <> "$H$3" Then Exit Sub
With Application
.EnableEvents = False
If [I7] = "" And Target.Value <> "" Then
[I7] = Format(Now, "hh:mm:ss")
Target.Offset(0, 1) = Target.Value
ElseIf Target = Target.Offset(0, 1) And [I7] <> "" Then
[I10] = Format(Now, "hh:mm:ss")
End If
.EnableEvents = True
End With

If Target.Address <> "$H$3" Then Exit Sub
With Application
.EnableEvents = False
If [F7] = "" And Target.Value <> "" Then
[F7] = Format(Now, "hh")
Target.Offset(0, 1) = Target.Value
ElseIf Target = Target.Offset(0, 1) And [F7] <> "" Then
[F10] = Format(Now, "hh")
End If
.EnableEvents = True
End With

If Target.Address <> "$H$3" Then Exit Sub
With Application
.EnableEvents = False
If [F8] = "" And Target.Value <> "" Then
[F8] = Format(Now, "mm")
Target.Offset(0, 1) = Target.Value
ElseIf Target = Target.Offset(0, 1) And [F8] <> "" Then
[F11] = Format(Now, "mm")
End If
.EnableEvents = True
End With


Range("H3").Select
End Sub

Anzeige
Re: noch ein Problem Worksheet_Change !!
27.02.2003 20:41:59
Hajo_Zi

Hallo Phillip

versuche es mal so

Gruß Hajo

Re: noch ein Problem Worksheet_Change !!
27.02.2003 20:56:24
phillip

hallo hajo,
funktioniert leider nicht. die funktion soll sein wenn in eine zelle eine kundennummer eingegeben wird (mit barcodescanner) dann soll in einer bestimmten zelle eine startzeit erscheinen, ... (sieh code) wenn diese nummer wieder in die gleiche zelle eingegeben wird, soll einen endzeit in einer anderen zelle erscheinen.
wenn der cursor im tabellenblatt wo anders steht,und die nummer eingelesen wird soll aber die nummer trotzdem in der bestimmten zelle erscheinen.

Re: noch ein Problem Worksheet_Change !!
27.02.2003 21:00:14
Hajo_Zi

Hallo Phllip

ich sehe in Deinem Code nur die Unterscheidung eingabe von 11 Zeichen in einer beliebigen Zelle und eingabe in H3. Darauf mußt Du schon Bezug nehmen in Deiner Beschreibung. Du mußt immer davon ausgehen Du hast den Code erstellt und ich sehe ihn zum ersten mal.

Gruß hajo

Anzeige
@ Hajo (off topic)
27.02.2003 21:14:59
PeterW

Hallo Hajo,

der Code stand hier vor einigen Tagen im Forum, und da war die Problembeschreibung etwas anders. Boris hatte die Lösung gepostet.

Gruß
Peter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige