Hallo und einen guten Tag
Ich habe ein kleines Problem das ich nicht in den Griff bekomme.
Ich habe eine Ein-/Ausfahrtsliste erstellt wo ich in die Spalte C die KFZ - Kennzeichen eingebe und der Pc bringt mir in Spalte A die entsprechende Firma.
Nun habe ich mit =JETZT() versucht mir die aktuelle Zeit automatisch anzeigen zu lassen sobald Text in einer C Zeile eingegeben wird.
Das funktioniert leider nicht denn es wird die gesammte Zeitspalte F aktualisiert.Das soll aber nicht so sein, sondern es soll die Zeit stehen ab wann der Text in C eingegeben wurde, ohne die Zellen darüber zu verändern.
Jetzt habe ich versucht das Problem mit einem Makro zu lösen. Es lautet wie folgt:
Option Explicit
Public ET As Variant
Sub Zeitmakro()
ThisWorkbook.Worksheets(„Tabelle1“).Range(„F4“) = Format(Time, „hh:mm:ss“)
ET = Now + TimeValue(„00:00:01“)
Application.OnTime ET, „Zeitmakro“
End Sub
Leider bekomme ich jetzt laufend Laufzeitfehler „9“ Index auserhalb des gültigen Bereichs.
Die Zeit sollte in Spalte F eigetragen werden.
Bitte kann mir jemand einen Rat zur Lösung meines Problems geben oder mir einen anderen Weg aufzeigen wie ich die aktuelle Zeit in die dazu gehörige Zelle bekomme ohne das die vorherigen beeinflusst werden.
vielen dank im voraus
Sven
Hallo Sven,
veruchs mal hiermit:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCell As Range, wb As Workbook, ws As Worksheet
Set wb = ActiveWorkbook: Set ws = wb.ActiveSheet
’ Bereich der überwacht wird
Set Target = Intersect(Target, Range(„C1:C65536“))
If Target Is Nothing Then Exit Sub
For Each rngCell In Target
ws.Cells(rngCell.Row, 6) = Format(Now, „hh:mm:ss“)
Next rngCell
End Sub
Spalte C die KFZ - Kennzeichen eingebe und der Pc bringt mir
in Spalte A die entsprechende Firma.
Nun habe ich mit =JETZT() versucht mir die aktuelle Zeit
automatisch anzeigen zu lassen sobald Text in einer C Zeile
eingegeben wird.
Das funktioniert leider nicht denn es wird die gesammte
Zeitspalte F aktualisiert.Das soll aber nicht so sein, sondern
es soll die Zeit stehen ab wann der Text in C eingegeben
wurde, ohne die Zellen darüber zu verändern.
Hallo Sven,
in das Modul des Blattes:
Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range(„C:C“))
If Target Is Nothing Then Exit Sub
Target.Offset(0, 3).Value = Format(Now, „hh:mm:ss“)
End Sub
Gruß
Reinhard
Hi Reinhard
Habe deinen Code über Visual Basic 2008 Express eingegeben und bekomme
drei Fehlermeldungen.
- Typ Range ist nicht definiert Zeile 3 Spalte 50
- Intersect nicht deklariert Zeile 4 Spalte 26
- Range nicht deklariert Zeile 4 Spalte 44
Was ist damit gemeint. Ich verstehe das nicht so richtig weil ich erst abgefangen habe mich mit VBA zu beschäftigen.
Würde vieleicht auch folgender Code funktionieren???
Private Sub Worksheet_Change(ByVal Target As Exel.Range)
Dim I As Long
I = ActiveSheet.UsedRange.Rows.Count
If Not Application,Intersect(Target, Range"A1:A" & 1))IS Nothing Then
Target.Offset(0,1).Value = Now
End If
End Sub
Ich bin fast am verzweifeln.
mit freundlichem Gruß Sven
Hi Mr_Tom007
habe auch deinen Code probiert und es kommt die Fehlermeldung
Kopilitirungsfehler.
Ich kann damit nichts anfangen da ich ein Neuling in VBA bin.
hast du eine Lösung für mich ??
mit freundlichem Gruß Sven
Habe deinen Code über Visual Basic 2008 Express eingegeben und
bekomme
drei Fehlermeldungen.
Hallo Sven,
kein Wunder, mein Code ist Excel-VBA-Code, du hast VB.
VB kennt keine Range usw.
http://www.chip.de/downloads/Visual-Basic-2008-SP1-E…
Allerdings ist im VB-Brett auch kein VB 2008 erwünscht, siehe dortige Brettbeschreibung).
Bitte den Mod dich ins NET-Brett zu schieben, vielleicht können die dir helfen.
Gruß
Reinhard
Hi Reinhard,
habe deinen Code jetzt im Ecel - Makro in Modul1 eingegeben und gespeichert. Beim aufrufen will er einen Makronamen und wenn ich Worksheet_Cange eingebe kriege ich eine Fehlermeldung.
Einen anderen Namen finde ich aber nicht um das Makro auszuführen.
Was mache ich falsch ??
Bin ein absoluter Neuling auf diesem Gebiet.
vielen Dank für deine Mühen
Sven
habe deinen Code jetzt im Ecel - Makro in Modul1 eingegeben
und gespeichert. Beim aufrufen will er einen Makronamen und
wenn ich Worksheet_Cange eingebe kriege ich eine
Fehlermeldung.
Hallo Sven,
allgemeiner Sprachgebrauch ist, Standardmodul =Modul1 (modul2, usw, ist egal welches)
Ich sagte in das Modul des Blattes, das bedeutet, im VB-Editor links in der Liste einen Doppelklick auf den namen des Blattes.
Ist der Blattname links nicht zu sehen, es ist so wie beim Explorer, aufs Pluszeichen klicken.
Gruß
Reinhard
Hi Reinhard
Ich habe es nach deinem weiteren Ratschlag hin bekommen.
Recht herzlichen Dank für deine Hilfe.
Dürfte ich noch etwas fragen???
Wie kann man in der Funktion Strg + F also die Suchfunktion den weißen Ramen in einen farbigen Ramen umändern so das mann das Suchergebnis schneller erkennen kann.Dabei sollte aber die Zellfarbe nicht geändert werden.
Gruß Sven
Wie kann man in der Funktion Strg + F also die Suchfunktion
den weißen Ramen in einen farbigen Ramen umändern so das mann
das Suchergebnis schneller erkennen kann.Dabei sollte aber die
Zellfarbe nicht geändert werden.
Hallo Sven,
welchen weißen Rahmen? Wenn ich in XL2000 Strg+f eingebe sieht das so aus:
http://www.bilder-space.de/show.php?file=18.094r5ERk…
Bei jedem Klick auf weitersuchen wird von Trefferzelle zu Treferzelle gehüpft.
Gruß
Reinhard
Hi Reinhard,
was bei dir in A1 schwarz ist wird bei mir mit ganz dünnen schwarzen Linien dargestellt. Habe aber nun in meiner Tabelle einen Ramen, sodas man beim suchen die gefundene Zelle nicht gleich erkennt.Um das zu erleichtern wollte ich das was bei dir schwarz ist eventuell rot oder gelb darstellen, so das mann das Suchergebniss gleich findet.
Es sollte aber danach der Ausgangszustand wieder hergestellt werden.
mit freundlichem Gruß
Sven
