Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
804to808
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
804to808
804to808
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aktuelle Uhrzeit in aktive Zelle ohne "Jetzt-Funkt

Aktuelle Uhrzeit in aktive Zelle ohne "Jetzt-Funkt
22.09.2006 15:30:03
Andreas
Hallo Excel Profis!
Ich habe folgendes Problem:
1. Ich möchte per CommandButton in die jeweils aktive Zelle per klick die aktuelle Uhrzeit im Format hh:mm eintragen ohne das die "=JETZT()"-Funktion" benutzt wird, diese verändert nämlich diese Zelle beim erneuten aufruf der Arbeitsmappe wieder.
Wenn schon ein Wert in der Zelle steht, sollte eine Überschreiben-Abfrage erscheinen, damit ich nichts versehentlich lösche.
2. Per 2. CommandButton möchte ich in die jeweils aktive Zelle das aktuelle Datum im Format TT.MM.JJ eintragen, allerdings auch ohne die "=HEUTE()"-Funktion (aus den oben genannten Gründen), auch hier wäre eine Überschreiben-Abfrage nicht schlecht.
Ich hoffe mir kann Jemand helfen, Danke schon mal!
mfg, Andreas

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

Betreff
Datum
Anwender
Anzeige
AW: Aktuelle Uhrzeit in aktive Zelle ohne "Jetzt-Funkt
22.09.2006 15:47:30
Kurt 
Hi,
wenn das Commandbutton aus der Steuerelemente-Toolbox sind,
stelle die Eigenschaft: TakeFocusOnClick auf False.
Option Explicit
Const M As String = "Soll die Zelle überschrieben werden?"
Dim Msg As Integer
Private Sub CommandButton1_Click()
If Len(ActiveCell) > 0 Then
Msg = MsgBox(M, 36)
If Msg = 6 Then Zeit
Else
Zeit
End If
End Sub
Private Sub CommandButton2_Click()
If Len(ActiveCell) > 0 Then
Msg = MsgBox(M, 36)
If Msg = 6 Then Datum
Else
Datum
End If
End Sub
Private Sub Zeit()
ActiveCell = Time
ActiveCell.NumberFormat = "hh:mm"
End Sub
Private Sub Datum()
ActiveCell = Date
ActiveCell.NumberFormat = "dd.mm.yy"
End Sub
Mfg Kurt

Anzeige
AW: Aktuelle Uhrzeit in aktive Zelle ohne "Jetzt-Funkt
22.09.2006 15:47:37
Andi
Hi,
zu 1.:

Private Sub CommandButton1_Click()
With ActiveCell
Select Case .Value
Case ""
.Value = Format(Time, "hh:mm")
Case Else
If MsgBox("Überschreiben?", vbYesNo) = vbYes Then
.Value = Format(Time, "hh:mm")
Else
Exit Sub
End If
End Select
End With
End Sub

und 2. funktioniert dann eigentlich analog:

Private Sub CommandButton2_Click()
With ActiveCell
Select Case .Value
Case ""
.Value = Format(Date, "dd.mm.yy")
Case Else
If MsgBox("Überschreiben?", vbYesNo) = vbYes Then
.Value = Format(Date, "dd.mm.yy")
Else
Exit Sub
End If
End Select
End With
End Sub

Schönen Gruß,
Andi
Anzeige
AW: Aktuelle Uhrzeit in aktive Zelle ohne "Jetzt-Funkt
ransi
HAllo Andreas
teste mal..


Option Explicit
Private Sub CommandButton1_Click()
If ActiveCell = "" Then
    ActiveCell = Now
Else:
    If MsgBox("Überschreiben ?", vbYesNo) = vbYes Then ActiveCell = Now
End If
End Sub
Private Sub CommandButton2_Click()
If ActiveCell = "" Then
    ActiveCell = Format(Now, "DD.MM.YY")
Else:
    If MsgBox("Überschreiben ?", vbYesNo) = vbYes Then ActiveCell = Format(Now, "DD.MM.YY")
End If
End Sub


ransi
Anzeige
Danke!
22.09.2006 15:54:23
Andreas
Danke für die Lösungen!
Ich teste sie gleich.
mfg, Andreas

62 Forumthreads zu ähnlichen Themen

Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Anzeige
VBA Ausdruck des Moduls mit aktueller Uhrzeit
MBorn

Hallo,
weiß vielleicht jemand von Euch, wie man ein VBA-Modul ausdruckt und es schafft,
die aktuelle Zeit / und das Datum in der ersten Zeile mit auszudrucken?
Gruß und Dank,
Born
31.01.2009 14:30:56
Thread-ID: 1045652
4 Beiträge
Formel per VBA in Zelle schreiben
einfachf

Hallo Zusammen,
ich habe folgendes Problem
Vielleicht kann mir ja jemand helfen.
Ich prüfe in welcher Zelle der letzte Wert steht mit
CellCount = Cells(65536, 23).End(xlUp).Row
Nun möchte ich in sagen wir mal Cells(CellCount, 21) die Formel eintragen
Summe aus Cells(Cel...
20.02.2010 14:24:22
Thread-ID: 1139917
7 Beiträge
Anzeige
Via VBA Formel in Zelle schreiben
Tim

Hallo zusammen,
Ich würde gerne via vba eine Formel in eine Zelle schreiben. Ich weiß, dass das über
Cells.Formula =...geht.
Allerdings möchte ich die Formel um die es geht über eine ganze Spalte gehen lassen. Er soll also z.B. eintragen:
"=Anzahl2(E:E)"
Mein Problem ist,...
29.11.2010 16:59:17
Thread-ID: 1189277
5 Beiträge
VBA Anzahl in Zelle C18 schreiben/ einfrieren
Marcy

Hallo Forum,
mit unterem Code entferne ich meine doppelten Einträge in Spalte A ab Zeile 25.
Funktioniert auch.
Jetzt hätte ich allerdings gerne mindestens eine Erweiterung:
In Zelle C18, soll vor dem Löschen die Anzahl der gefüllten Zellen (handelt sich um Zahlen) eingetragen w...
27.10.2011 08:24:59
Thread-ID: 1235504
3 Beiträge
Formel mittels VBA in Zelle schreiben
Jürgen

Hallo,
ich möchte gerne die Formel : =ZÄHLENWENNS(D9:D9813;"A"). Also in dem Bereich soll nach A gesucht werden.
mittels VBA in die Zelle D1 schreiben. Allerdings ist im Bereich der Spaltenbuchstabe sowie das Ende des Bereichs offen.
das Ende des Bereichs wird errechnet in der Vari...
23.05.2012 22:05:31
Thread-ID: 1264607
5 Beiträge
Aktuelle Uhrzeit als Linie in Chart einfügen
DirkR

Hallo zusammen,
momentan baue ich schon seit einiger Zeit an einem Excelchart und jetzt fehlt mir noch die letzte Funktion, evtl. hat jemand von euch eine Idee. Es geht um folgende Datei:
https://www.herber.de/bbs/user/82315.xlsx
Ich habe dort einen Balkenchart erstellt der mir die...
25.10.2012 15:13:27
Thread-ID: 1283881
3 Beiträge
Datum ohne Uhrzeit berechnen
Basti

Hallo zusammen,
ich habe ein Datum in Excel mit Uhrzeit. Das Format ist wie folgt: "18.01.2012 13:15:00".
Diese Uhrzeit brauche ich bei einigen Berechnungen, daher kann ich sie nicht löschen. Bei einer Formel jedoch soll mir Excel die Differenz in Tagen zu einem anderen Datum ausrechne...
19.11.2012 11:41:28
Thread-ID: 1287252
2 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
1
3
6
5
4
2
4
2
1
3
4
7
2
3
3
6
5
4
3
14
7
7
8
3