Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
16.04.2024 13:54:06
Multiplikation
16.04.2024 12:41:11
Vielleicht Onur ? Leider werden nicht alle Monate
16.04.2024 12:08:33
Zelle/Spalte bestimmten Wert in Kopfzeile zuordnen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
904to908
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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.

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

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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige