Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
904to908
904to908
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

berechnete werte fest eintragen

Forumthread: berechnete werte fest eintragen

berechnete werte fest eintragen
07.09.2007 12:18:10
frank_on_air
Hallo,
bitte um Hilfe bei folgendem Problem:
- gebe ich in Zelle a2 einen Wert ein und schließe mit Enter ab, wird in b2 die aktuelle Zeit als unveränderlicher Wert eingetragen
- gleichzeitig werden die in c2, d2 , e2 enthaltenen Formeln berechnet (hängen von a2 ab !) und ebenso als unveränderliche Werte eingetragen
- der Cursor springt nach a3 und wartet auf die nächste Eingabe
Danke.

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: berechnete werte fest eintragen
07.09.2007 12:37:00
Rudi
Hallo,
wo ist das Prob? Sieht doch gut aus.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: berechnete werte fest eintragen
07.09.2007 12:37:25
ptonka
Hallo Frank,
da hilft nur ein Makro:

Sub werte_fest()
anzahl = [A65536].End(xlUp).Row
Cells(anzahl, 2).Select
Selection.NumberFormat = "h:mm;@"
Cells(anzahl, 2).Value = Now
Range(Cells(anzahl, 3), Cells(anzahl, 5)).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Cells(anzahl + 1, 1).Select
End Sub


Gruß,
Jochen
P.S. Feedback interessiert alle

Anzeige
AW: berechnete werte fest eintragen
07.09.2007 12:56:18
Rudi
Hallo Jochen,
gut, dass du zu helfen versuchst.
Select und Activate sind in VBA fast immer überflüssig.
Für deine persönliche Weiterentwicklung:

Sub tt()
With Cells(Rows.Count, 1).End(xlUp)
.Offset(0, 1).NumberFormat = "hh:mm;@"
.Offset(0, 1) = Now
.Range(.Offset(0, 2), .Offset(0, 4)).Value = .Range(.Offset(0, 2), .Offset(0, 4)).Value
.Offset(1, 0).Select
End With
End Sub


Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
AW: berechnete werte fest eintragen
07.09.2007 15:01:00
ptonka
Hallo Rudi,
Danke für den Tipp. Das spart mir 'ne Menge Schreibarbeit.
Schönes Wochenende.
Gruß,
Jochen
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige