Kleine Bitte zwischendurch.
Ich hätte bei der Uhrzeit gern die Stunde mit führender 0. Jetzt erscheint immer 13.06. - 3:20.? ist das machbar?
Petra

Hallo Petra,
wir machen Fortschritte, freut mich :-)

Deine Zwischendurchbitte:
folgende Zeile sorgt für zweistellige Werte für alles, nichtnur die Uhrzzeit
Soll etwas einstellig werden, einfach einen Buchstaben löschen
d = day m=month h = hour m = minute

Cells(Target.Row, 1).NumberFormat = "dd/mm/ hh:mm"

Sehr gute Idee, dann kann man auch "A1" nehmen, das Blatt nenne
ich "Schalter", der Code sieht dann so aus:

Private Sub worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
'falls SpalteA aktiv und Zella "A1" im Blatt "Schalter" = 1
If Target.Column = 1 And Worksheets("Schalter").Cells(1, 1).Value = 1 Then
    'Format setzen
    Cells(Target.Row, 1).NumberFormat = "dd/mm/ hh:mm"
    'aktuelles Datum zur Eingabe = Uhrzeit hinzu
    Cells(Target.Row, 1) = Date & " " & Cells(Target.Row, 1)
    'IV1 auf 0, um Zelle zu bestätigen
    Cells(1, 256).Value = 0
    'Focus zurück zur Startzelle; erforderlich, weil
    'Markierung nach Eingabe nach unten verschoben wird = Standard
    ActiveCell.Offset(-1, 0).Activate
    'jetzt Eingabe bestätigen
    SendKeys "{F2}", True
    SendKeys "{ENTER}", True
    'IV1 auf 1 zurückstellen
    Cells(1, 256).Value = 1
End If
Application.EnableEvents = True
End Sub

Gleichzeitig muss dann auch der Bezug für den Button geändert werden:

Sub DatumHilfeAn()
Sheets("Schalter").Cells(1, 1).Value = 1
End Sub

Sub DatumHilfeAus()
Sheets("Schalter").Cells(1, 1).Value = 0
End Sub

So, bleibt das Thema Sortieren:
Im jetzigen Zustand überläßt Du es Excel, den Datenbereich zu erkennen.
4 Zeilen als Überschrift, da muss man Excel sagen, wo die zu sortierenden Daten liegen.
Du nutzt die Spalten A:I und wieviel Zeilen?

Ich nutze für solche Zwecke Namen, die gewünschten Bereichen zugeordnet werden.
Dazu markierst Du den Datenbereich incl der letzten Überschrift, also Zeile4, die letzte Zeile sollte leer sein (erkläre ich gleich).
Dann Menü <<Einfügen--Namen--Festlegen...>> , ich habe als Namen "DatenZeitSort" gewählt.

Sub DatenSortieren()
'sortiert Bereich "DatenZeitSort" nach Spalte B
Application.Goto Reference:="DatenZeitSort"
    Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Beim Erweitern der Daten muss beachtet werden, dass der "Datenbankbereich" angepasst wird.
Das geht am einfachsten, wenn vor der Eingabe die letzte Zeile markiert und eine neue Zeile eingefügt wird.
Dadurch wird der benannte Bereich automatisch um eine Zeile erweitert.
Zur Erinnerung könnte man die erste Zeile ausserhalb des benannten Bereichs farblich markieren.

Ich hoffe, ich habe nichts vergessen.
mfg
schnallgonz

Schönen guten Tag Schnallgonz!

Erstmal eine Verbeugung - du bist echt Klasse.

Ich glaube wir sind fast am Ziel. Ich habe jetzt eine Zeile Überschrift und die Zeiten, so wie ich sie haben will und nach denen sortiert werden soll, stehen in Spalte A. So klappt alles genau, wie ich mir das gewünscht habe. Du hast es echt drauf.

Mein Wunsch ist aber die Sortierzeiten in Spalte B. Was muß ich ändern um die Spalte zu ändern. Außerdem hab ich noch Probleme mit den 4 Zeilen für die Überschrift. Füge ich 1 Zeile ein kommt der Debugger und die Zeile "ActiveCell.Offset(-1, 0).Activate" ist gelb markiert. Schließe ich den Debugger, hab ich wieder das 1900 Problem.

Das mit den Sortieren geht auch nicht.
Ich markiere den Bereich =Tabelle1!$A$2:$I$200, gehe auf Menü- Einfügen-Namen und habe dann die Möglichkeit Definieren, Einfügen, Erstellen, Übernehmen, Beschriftung. Ich hab mich für Definieren entschieden bei "Namen in der Arbeitsmappe" "DatenZeitSort" eingetragen und meinem Sortierbutton das Makro DatenSortieren zugewiesen. Klicke ich drauf, wird aber nur der Bereich markiert aber nichts sortiert.

Erstmal wünsch ich dir aber ein schönes Wochenende
mfg Petra

Hallo Petra,
erstmal Danke für das Lob,
Leider bin ich gar nicht so klasse, wie Du vielleicht meinst.
Ich habe z.B. bei der Anpassung mit dem Schalter nur eine Codezeile geändert und
2 vergessen...
Abhilfe und Sortierzeiten Spalte B siehe hier:
im fett formatierten Teil stehen die Änderungen;
vorher alle auf 1 für Spalte A, jetzt 2 = B

Private Sub worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
'falls SpalteA aktiv und Zelle "A1" im Blatt "Schalter" = 1
If Target.Column = [b]2[/b] And Worksheets("Schalter").Cells(1, 1).Value = 1 Then
    'Format setzen
    Cells(Target.Row, [b]2[/b]).NumberFormat = "dd/mm/ hh:mm"
    'aktuelles Datum zur Eingabe = Uhrzeit hinzu
    Cells(Target.Row, [b]2[/b]) = Date & " " & Cells(Target.Row, [b]2[/b])
    'Zelle "A1" im Blatt "Schalter" auf 0, um Zelle zu bestätigen
    [u]Worksheets("Schalter").Cells(1, 1).Value = 0[/u]
    'Focus zurück zur Startzelle; erforderlich, weil
    'Markierung nach Eingabe nach unten verschoben wird = Standard
    ActiveCell.Offset(-1, 0).Activate
    'jetzt Eingabe bestätigen
    SendKeys "{F2}", True
    SendKeys "{ENTER}", True
    'Zelle "A1" im Blatt "Schalter" auf 1 zurückstellen
    [u]Worksheets("Schalter").Cells(1, 1).Value = 1[/u]
End If
Application.EnableEvents = True
End Sub

Die unterstrichenen Codezeilen sind diejeingen, die
ich vergessen hatte anzupassen, ich hoffe hiermit funktioniert es jetzt.

"DatenSortieren" aus Antwort 22 steht auf Sortieren nach SpalteB.
Stehen dort Werte? Falls noch nicht, dann kann nichts sortiert werden. Oder stimmt die Buttonzuweisung nicht?
Hier nochmal der Code mit einer Schlußzeile, welche die Markierung
nach Makroende aufhebt.
Wenn Du 4 Überschriftenzeilen hast, markiere für die Namenzuweisung nicht A2:I200
sondern A4:I200

Sub DatenSortieren()
'sortiert Bereich "DatenZeitSort" nach Spalte B
Application.Goto Reference:="DatenZeitSort"
    Selection.Sort Key1:=Range("B5"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'B5 auswählen, um Markierung von DatenZeitSort aufzuheben
Range("B5").Select
End Sub

mfg
schnallgonz

Hi!
Es ist vollbracht. Ich bin echt zufrieden mit dir. Du warst immer kompetent und immer zuverlässig. Alles klappt wie ich es mir gewünscht habe. Danke, Danke, Danke.
Eine kleine Frage hätte ich aber noch. Wenn ich mal eine Zeit ändern will, erscheint manchmal das Format so, wie ich es will (15.06. 14:11), aber manchmal schiebt sich einfach das Jahr dazwischen (15.06.2008 14:11). Das sprengt dann natürlich die vorgegebene Spaltenbreite. Komisch ist eben, mal geht es und mal geht es nicht (bei gleicher Eingabe).

Aber ich bin auch so sehr zufrieden mit dir.
Schön, dass es Leute, wie dich gibt, die anderen helfen.

Mit freundlichen Grüßen Petra

N'abend,
schön dass ich Dir weiterhelfen konnte.

Manchmal entwickelt Excel Eigenheiten, die sich nach einem Programmneustart geben, vielleicht gehören die merkwürdigen Formatwechsel dazu.
Ich habe gerade alle möglichen Varianten probiert, bei mir tritt kein Formatwechsel auf.
Vielleicht kannst Du mit der Zeit die Ursache eingrenzen, immer
dieselben Zellen, nur bei bestimmten Eingaben usw.

Falls es bei Ausnahmen bleibt, schlage ich für's erste vor, einen weiteren Button anzulegen,
der das gewünschte Format für die gerade markierte Zelle einstellt:

Sub DatumRep()
ActiveCell.NumberFormat = "dd/mm/ hh:mm"
End Sub

Vielleicht hilft es auch, diese Zeile wie folgt im Ereigniscode einzusetzen:

...
'Markierung nach Eingabe nach unten verschoben wird = Standard
ActiveCell.Offset(-1, 0).Activate
ActiveCell.NumberFormat = "dd/mm/ hh:mm"
'jetzt Eingabe bestätigen
...

Damit wird diese Formatzuweisung immer ein 2.mal ausgeführt.

Falls es nochmal hängt, keine Scheu, einfach nochmal fragen, es gab schon längere Threads.
mfg
schnallgonz

Guten Abend Schnallgonz!

Ich habe einfach noch mal das Format in der Spalte B auf
TT.MM. hh:mm festgelegt und seitdem hatte ich keine "Ausfälle" mehr. (Hatte ich bestimmt beim Ändern auf Spalte B vergessen.)
Du bist eben doch Klasse.

Ich nutze mal die Chance und stelle dir zwischendurch eine neue Frage:
Wie kann ich ein Formular in Excel verankern, so dass niemand Fremdes Zeilen- und Spaltenbreiten verändern kann? Ich habe mir in Tabelle 1 ein Formular mühevoll (mit vielen Testdrucken) so nachgebildet, dass, wenn ich es auf das fertige Formular drucke, genau die richtigen Zeilen beschrieben werden. (Ich will das eigentliche Formular nicht mitdrucken.) Den Text für die entsprechenden Zeilen habe ich alle aus Tabelle 2 mit "=" und "Sverweis" verknüpft. Leider klappt das nicht auf verschiedenen Rechnern (Druckern). Ich muß für andere den Blattschutz frei lassen, damit eventuell nötige Änderungen vorgenommen werden können.
Geht das auch eleganter?

Auch wenn du mir nicht mehr antworten willst, ich bin dir für deine Hilfe sehr dankbar!

Mit freundlichen Grüßen Petra

Hallo Petra,
"Uhrzeit und Datum" ist also erledigt, sehr schön und vielen Dank für die Rückmeldung.

Für die neue Frage würde ich ein neues Thema aufmachen.

Grundsätzlich kannst Du den Blattschutz u.a. ohne Passwort einrichten. Dann kann jeder Anpassungen vornehmen und versehentliche Änderungen sind ausgeschlossen.
Für die Anpassung an verschiedene Drucker würde ich entsprechende Blätter je Drucker anlegen.

Das so aus der Hüfte geschossen;
für weitere (neue) Fragen zu einem Thema ausserhalb Uhrzeit datum
bitte neues Thema anlegen, damit dies keine Privatveranstaltung wird.

mfg
schnallgonz

Hi!
Du hast natürlich vollkommen recht. Ich werde das mal alles neu überdenken und dann neu reinstellen.
Es hat eben einfach so gut geklappt mit dir, da bin ich leichtsinnig geworden ....
Tschüß und noch mal vielen Dank
mfG Petra