Excel programmieren

Hallo Claus,

hab recht herzlichen Dank für Deine Hilfe:

direkt ausprobiert und es funktionierte.

Danke

Peter

Hallo Peter,

wenn dies nur für B5 zutreffen soll, dann Rechtsklick auf den Reiter des Tabellenblattes => Code anzeigen und füge folgenden Code in das Codefenster ein:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(0, 0) <> "B5" Then Exit Sub

Target.Offset(, -1) = IIf(Len(Target) > 0, Time, "")

End Sub

Formatiere A5 deinen Wünschen entsprechend.

Sollte dies für einen Bereich in Spalte B zutreffen (z.B. B5:B1000), dann verwende folgenden Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("B5:B1000")) Is Nothing Or _

    Target.Count > 1 Then Exit Sub

Target.Offset(, -1) = IIf(Len(Target) > 0, Time, "")

End Sub

Claus

Hallo Wolf Fabian Spohr,

ich habe Office 2010 nicht deinstalliert, weil ich diese noch verwende.

Im Studium müssen wir in Excel programmieren, aber da mein Excel nur eine " Excel Starter Version" ist und ich da nicht die Möglichkeit habe zu programmieren, wollte ich Office 2016 installieren.

Also solle ich deiner Meinung nach mein Office 2010 deinstallieren und die Installation von Office 2016 anschließend nochmal versuchen?

Mit freundlichen Grüßen

Hallo,

danke für den Tipp. Gibt es eine Möglichkeit Excel zu programmieren, die ungarische Methode auf Tabellen anzuwenden? Im Netz fand ich leider nichts Hilfreiches.

Grüße

Dafür ist Excel nicht geeignet.

Um ein solches Verhalten zu bekommen muss man eine Datenbank-Anwendung programmieren die eine eigene Eingabemaske definiert und entsprechende Sperrcodes beachtet.

In Excel sind Eingabemasken (Userforms) mit VBA auch möglich, jedoch ist der Programmieraufwand erheblich.

Andreas.