Probleme mit jetzt() :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Sonstige] Probleme mit jetzt()

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

CrazyNet
Newbie
Newbie

Anmeldedatum: 23.07.2008
Beiträge: 11

Verfasst am: 23.07.2008, 21:03

Hallo!

Habe ein Prob mit den Uhrzeiten.
Und zwar schreibe ich eine Zutrittsliste und mein Vorgesetzter möchte, das so bald ein Name eingetragen wird, die momentane Uhrzeit automatisch in einer Spalte erscheint. Mit der Funktion jetzt() bekomme ich zwar die Uhrzeit, aber so bald in einer weiteren Zeile man das Gleiche versucht, kommt die neue Uhrzeit auch in der Zeile davor.

Mit der Tastenkombination <STRG> + <:> bekommt man zwar das gewünschte Ergebnis, aber ich brauch es halt automatisch. Kennt da wer die Funktion zu?!

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 438
Wohnort: Fridingen an der Donau

Verfasst am: 23.07.2008, 22:11

Hallo!

Das ist wohl am einfachsten mit VBA zu lösen.

Z.B so.

Dieser Code fügt in Spalte B ein Jetzt() ein sobald in A etwas eingetragen wird. Den Code in ein Tabellenblatt einfügen. Tabellenreiter rechtklick->Code anzeigen und da einfügen.

Code:

PPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Range
Dim bereich As Range
Set bereich = Range("a1:a100")
For Each i In bereich
If i <> "" And i.Offset(0, 1).Value = "" Then
i.Offset(0, 1).Value = Now
End If
Next i
End Sub

GRuß

CrazyNet
Newbie
Newbie

Anmeldedatum: 23.07.2008
Beiträge: 11

Verfasst am: 24.07.2008, 20:34

Ich möchte kein jetzt() eingefügt haben, da sich die Zeit bei jeder Zeile dann wieder aktualisiert. Das ein jetzt() in der Spalte B erzeugt wird, schaff ich auch mit einer WENN - Funktion.

Ich möchte das die Zeit angezeigt wird, ohne das sie aktualisiert wird.

Krino
Schlauberger

Anmeldedatum: 15.04.2007
Beiträge: 1525

Verfasst am: 24.07.2008, 20:45

Hallo!

Der Code, den Gook Dir anbietet, tut genau das, was Du wolltest.
In Spalte B erscheint das aktuelle Datum mit Uhrzeit, sobald Du in Spalte A etwas einträgst. Diese Uhrzeit bleibt ein für allemal fest; es ist so, als ob Du sie mit Hand eingetippt hättest.

_________________
Liebe Grüße
Krino
Win XP Home 2002 SP 3
Office Small Business 2002 SP 3

CrazyNet
Newbie
Newbie

Anmeldedatum: 23.07.2008
Beiträge: 11

Verfasst am: 06.08.2008, 12:33

Leider funktioniert es nicht.

Habe Windows Vista mit Excel 2002

Muss ich da erst noch was aktivieren?

Krino
Schlauberger

Anmeldedatum: 15.04.2007
Beiträge: 1525

Verfasst am: 06.08.2008, 12:49

Nimm den Code in die Zwischenablage (außer dem ersten P, das ist natürlich ein Tippfehler).

Gehe zu Deiner Excel-Tabelle, wo die Uhrzeiten erscheinen sollen. Mache einen Rechtsklick auf den Tabellenreiter unten am Bildschirm. Wähle "Code anzeigen". Es erscheint eine weiße Fläche. Mache einen Rechtsklick auf diese weiße Fläche und wähle "Einfügen". Schließe das Fenster, damit Du wieder die Tabelle siehst.

Das Makro bewirkt folgendes:

Trage in eine Zelle der Spalte A irgend etwas ein; die Zelle rechts daneben muß leer sein. Dann erscheint in Spalte B das aktuelle Datum mit Uhrzeit und bleibt unverändert.

makro_uhrzeit.xls

Beschreibung:

Download

Dateiname:

makro_uhrzeit.xls

Dateigröße:

19.5 KB

Heruntergeladen:

23 mal

_________________
Liebe Grüße
Krino
Win XP Home 2002 SP 3
Office Small Business 2002 SP 3

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5715

Verfasst am: 06.08.2008, 13:04

Hallo!

Vielleicht ist auch die Makro-Sicherheitsstufe auf "hoch". Dann werden Makros ohne Nachfrage deaktiviert.
Schau mal unter Menü Extras > Makros > Sicherheit und stelle dort die Sicherheit auf "mittel".

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen!

CrazyNet
Newbie
Newbie

Anmeldedatum: 23.07.2008
Beiträge: 11

Verfasst am: 06.08.2008, 21:01

Es funktioniert jetzt, aber leider übergeht er die Formation.

Möchte gerne folgende Benutzerdeffienierte Formation: hh:mm

@gook:

Danke für den Code!

@ all other:

Thanx für die Hilfe

gook
Schlauberger

Anmeldedatum: 25.11.2007
Beiträge: 438
Wohnort: Fridingen an der Donau

Verfasst am: 06.08.2008, 21:08

Hallo,

dann so.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Range
Dim bereich As Range
Set bereich = Range("a1:a100")
For Each i In bereich
If i <> "" And i.Offset(0, 1).Value = "" Then
i.Offset(0, 1).Value = Now
i.Offset(0, 1).NumberFormat = "hh:mm"
End If
Next i
End Sub

Gruß

CrazyNet
Newbie
Newbie

Anmeldedatum: 23.07.2008
Beiträge: 11

Verfasst am: 08.08.2008, 19:30

Moin!

Auch auf die Gefahr hin, das ich nerve... Ich konkretisier das Ganze jetzt mal etwas ;)

Die Eingabe passiert von B4 - B56 und die Uhrzeit soll dann in E4 - E56 erscheinen.

Einen Teil kann ich mir selber zusammenreimen - die Eingabe, aber net wie ich es schaffe, das er es in E einträgt.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Range
Dim bereich As Range
Set bereich = Range("b4:b56")
For Each i In bereich
If i <> "" And i.Offset(0, 1).Value = "" Then
i.Offset(0, 1).Value = Now
i.Offset(0, 1).NumberFormat = "hh:mm"
End If
Next i
End Sub

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5715

Verfasst am: 08.08.2008, 19:38

Hallo!

Probier's mal so:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b4:b56")) Is Nothing Then
With Target
If .Count = 1 And .Offset(0, 3) = "" Then
.Offset(0, 3) = Now
.Offset(0, 3).NumberFormat = "hh:mm"
End If
End With
End If
End Sub

CrazyNet
Newbie
Newbie

Anmeldedatum: 23.07.2008
Beiträge: 11

Verfasst am: 09.08.2008, 12:33

Vielen Dank!

Es funktioniert. Nun wird es so an meinen Vorgesetzten gegeben und dann werd ich es mit SQL umschreiben müssen, um es bedienerfreundlicher zu machen.

miriki
Schlauberger

Anmeldedatum: 05.03.2007
Beiträge: 336
Wohnort: Kiel

Verfasst am: 11.08.2008, 08:52

CrazyNet hat Folgendes geschrieben:

dann werd ich es mit SQL umschreiben müssen, um es bedienerfreundlicher zu machen.

Darf ich mir diesen Satz groß ausgedruckt an die Wand hängen? Wink

a) Excel-Tabelle nach SQL ?
c) SQL bedienerfreundlicher als Excel ???

Wenn ich das in meinem Club erzähle... Wink

Gruß, Michael

CrazyNet
Newbie
Newbie

Anmeldedatum: 23.07.2008
Beiträge: 11

Verfasst am: 28.08.2008, 09:39

Wenn man via SQL die Eingabe-Masken erstellt, ist es in so fern Bedienerfreundlicher. Ich hab`s an meinem Vater gesehen, der mit den Kapiteln usw in Excel nicht klar kam.

Allerdings habe ich jetzt wieder ein Prob mit dem Programm.

In dem Code, der hier erstellt wurde. wird das Format der Zeiteingabe ja geändert... Das gibt allerdings ein Problem mit dem Schutz, der auf dieser Spalte liegt. Kann man das irgendwie umgehen?!

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5715

Verfasst am: 28.08.2008, 09:47

Hallo!

Den Schutz musst du dann temporär aufheben:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b4:b56")) Is Nothing Then
Me.Unprotect Password:="Hallo"
With Target
If .Count = 1 And .Offset(0, 3) = "" Then
.Offset(0, 3) = Now
.Offset(0, 3).NumberFormat = "hh:mm"
End If
End With
Me.Protect Password:="Hallo"
End If
End Sub

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Probleme mit Service Pack	roller	Microsoft Windows Hilfe	1	07.10.2008, 16:44
	Probleme mit Verknüpfung mehrer Bedin...	Fledertier	Microsoft Excel Hilfe	4	05.10.2008, 16:21
	Probleme beim markieren in fett, kurs...	jpvdb	Microsoft Word Hilfe	1	06.09.2008, 11:45
	Probleme mit Format beim Speichern	hobro	Microsoft Excel Hilfe	0	05.09.2008, 09:46
	Probleme beim Erstellen eines Diagramms	Mona1990	Microsoft Excel Hilfe	1	03.09.2008, 16:43

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de