Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
936to940
936to940
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textboxen datum zuweisen beim verlassen

Forumthread: Textboxen datum zuweisen beim verlassen

Textboxen datum zuweisen beim verlassen
20.12.2007 20:30:07
Freddi
Hallo zusammen
Ich habe in meiner Tabelle mehrere Textboxen, in denen je nach bedarf was eingetragen wird. Ist es möglich das nach beendigung der eingabe automatisch dahinter das Datum eingetragen wird.
wenn ja , kann mir jemand den Code Posten. VBA ist leider nicht meine Stärke
Danke füe Eure Hilfe im Vorraus

Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textboxen datum zuweisen beim verlassen
20.12.2007 21:06:00
Yal
Hallo Freddi,
wenn Du die Textbox in Entwurf-Modus hast, kannst Du per Rechtmaustastenklick den Auswahl "Code anzeigen" nehmen. Dann gelangst Du im VBA-Editor (keine Angst, es beißt nicht).
Es hat sich vermutlich schon eine Ereignis-Prozedur "Private Sub TextBox1_Change()" eingefügt. In diesen Fenster oben Rechts steht im Auswahl "Change". Da suchst Du "LostFocus". Es fügt sich eine neue Ereignis-Prozedur "Private Sub TextBox1_LostFocus()" und darin, zwischen die zwei neue Zeile, fügst Du:
Range("A1") = Now()
So. Das war's.
Jetzt beim Verlassen des Textbox wird diese Funktion gerufen: die aktuelle Uhrzeit fügt sich in der Zelle A1.
Viel Erfolg.
Yal

Anzeige
AW: Textboxen datum zuweisen beim verlassen
20.12.2007 21:15:49
Freddi
Hallo Yal
Vielen Dank für Deine Mühe, ich glaube ich habe mich da nicht verständlich genug ausgedrückt. Ich möchte das Datum nicht in eine Zelle schreiben, sondern wenn der Focus nicht mehr auf der Textbox liegt, soll in der Textbox das Datum eingetragen werden.
Grüße

AW: Textboxen datum zuweisen beim verlassen
20.12.2007 21:19:29
Dan
Hi,

Private Sub TextBox1_LostFocus()
TextBox1 = Date
End Sub


mfg Dan

Anzeige
AW: Textboxen datum zuweisen beim verlassen
20.12.2007 21:25:10
Freddi
Hallo Dan
Das Funktioniert so schon, aber Leider wird dann auch der Text der In den Boxen steht gelöscht
Freddi

AW: Textboxen datum zuweisen beim verlassen
20.12.2007 21:27:00
Freddi
upps nicht offen

TextBox1 = TextBox1.Value & " " & Date
20.12.2007 21:38:25
Matthias
Hallo

Private Sub TextBox1_LostFocus()
TextBox1 = TextBox1.Value & " " & Date
End Sub


Userbild

Anzeige
AW: TextBox1 = TextBox1.Value & " " & Date
20.12.2007 21:41:00
Freddi
Vielen Dank
funktioniert super.

was Du aber wissen solltest !!
20.12.2007 21:50:18
Matthias
Hallo
Wenn Du ein zweites mal die Textbox benutzt & wieder verlässt ohne Änderung, dann wird der Text immer länger !
Userbild
Userbild

Anzeige
AW: was Du aber wissen solltest !!
20.12.2007 22:19:00
Herby
Hallo Matthias,
auch das kann man verhindern, z.B. so:

Private Sub TextBox1_LostFocus()
If CStr(Right(TextBox1, 4))  "2007" Then
TextBox1 = TextBox1 & " " & Date
End If
End Sub


Vielleicht reichts auch schon aus wenn die letzten
10 Stellen auf IsDate geprüft werden.
Viele Grüße
Herby

Anzeige
ich wollte ja nur darauf hinweisen !
20.12.2007 22:40:00
Matthias
Hallo Herby
Ich weiß das schon,
ich wollte ja auch nur darauf hinweisen.
hier ein weiteres Beispiel mit derm Code von Peter, der Kreativität sind ja keine Grenzen gesetzt
Option Explicit
'Code in der Tabelle

Private Sub TextBox1_GotFocus()
Strg = Me.TextBox1.Value
End Sub




Private Sub TextBox1_LostFocus()
If Me.TextBox1.Value  Strg And Me.TextBox1.Value  "" Then Me.TextBox1.Value = Me.TextBox1. _
Value & ", " & Date
End Sub


''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Public Strg As String in einem Modul
https://www.herber.de/bbs/user/48575.xls
Userbild

Anzeige
AW: Textboxen datum zuweisen beim verlassen
20.12.2007 21:39:00
Peter
Hallo Freddi,
im LostFocus Ereignis:
Me.TextBox1.Value = Me.TextBox1.value & ", " & Date
Gruß Peter
;

Forumthreads zu verwandten Themen

Format beim verlassen
Christian

Hallo,
kann mir jeman sagen warum
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox1.Value = Format(Time, "hh:mm:ss") End Sub
nicht funktioniert ?
Erhalte Meldung "Falsche Anzahl an Argumenten oder ungültige Zuweisung" !
Christian
05.09.2008 14:42:00
Thread-ID: 1007692
11 Beiträge
Makro beim verlassen einer Zelle
Dirk

Hallo zusammen,
hier wahrscheinlich zum x.ten ma die Frage; Kann ich beim Verlassen einer Zelle mit Return im Arbeitsblatt en Makro ablaufen lassen?
Im Archiv habe ich leider nichts gefunden
04.02.2009 22:09:38
Thread-ID: 1047231
5 Beiträge
Replace beim verlassen einer Zelle
Ingrid

Hallo Leute,ich habe eine Excel Tabelle mit Adressen und Problemen.
In dieser Tabelle gibt es Adressen für den deutschen Sprachraum mit umlauten und Adressen für den englischen Sprachraum ohne Umlaute.
Wie kann ich beim Verlassen der Zellen mit einer Adresse für den englischen Sprachraum...
10.04.2002 14:42:58
Thread-ID: 112109
6 Beiträge
Makro beim verlassen von Zelle
Stefan

Ich möchte beim Verlassen der Spalte D mittels der Tab-Taste, unmittelbar darunter eine definierte Zeile einfügen.
Normal verwende ich für das das Einfügen folgendes Makro:Sub Einfügen()
ActiveSheet.Unprotect ""
Selection.Insert Shift:=xlDown
Rows(1).Copy ActiveCell
ActiveSheet.P...
25.06.2002 10:18:29
Thread-ID: 131152
3 Beiträge
Anzeige
Aktion beim Verlassen des Feldes
Riccardo

Hallo Leute,
ich habe da mal eine Frage. Wie kann ich es realisieren, dass eine Aktion erst dann stattfindet, wenn ich eine Zelle geändert habe und diese verlassen will?
Also derzeitige Problemstellung:
Ich habe 2 Felder, die sich gegenseitig beeinflussen. Zusammen dürfen sie Maxima...
07.01.2013 12:50:51
Thread-ID: 1293153
4 Beiträge
rechnen beim Verlassen einer Zelle per Makro
Peter

Hallo Leute,
ich komme mal wieder nicht weiter !
Ich möchte im VBA Project "DieseArbeitsmappe" eine Funtion schreiben die mir nach verlassen einer Zelle einen Rechenvorgang auslöst.
z.B. A1 * B1 (Return) = C1, Courser - wechselt in die nächte Zelle
Ich habe versucht mit "Workbo...
16.03.2013 18:33:39
Thread-ID: 1304360
3 Beiträge
Makro beim Verlassen von Zellen bestimmter Spalten
Zellen

Guten Morgen liebe Forengemeinde,
ich steh momentan total auf dem Schlauch und hoffe, dass mir einer von euch schnell auf die Sprünge helfen kann.
Ich möchte gern beim Verlassen der Spalte "B" den Inhalt von Spalte "A" und Spalte "B" in Spalte "C" kombinieren. Das versuche ich mit folge...
21.01.2014 07:20:38
Thread-ID: 1346085
3 Beiträge
Anzeige
Makros aufrufen automatisch beim verlassen Tab.bla
Hepitus

Beim Verlassen eines Tabellenblattes sollen mehrere Makros (oder ein Makro) aufgerufen werden. Wie bekomme ich es hin, dass bei nach Beendigung des Makros, der Cursor sich in dem Arbeitsblatt befindet, welches ich bei Verlassen des bestimmten Arbeitsblattes angeklickt habe.Danke für die Hilfe i...
13.07.2002 11:46:46
Thread-ID: 136255
6 Beiträge
Beim Verlassen der Zelle Teilung durch 100
Ralf

Hallo,wir haben hier ein Problem auf einem Rechner.
Wenn man eine Zahl eingibt und die Zelle dann verläßt, wird der Wert durch 100 geteilt(Bsp.: Eingabe[6], Anzeige in Zelle[0,06]).
Nur die Anzeige ist nicht korrekt, intern rechnet EXCEL richtig.
Eine Neuinstallation, mit vorangegangen...
21.08.2002 11:55:07
Thread-ID: 151051
2 Beiträge
Anzeige
Beim Verlassen der Zeile Msg Box wenn
Markus

Hallo
folgendes Problem:
Wenn in Zelle C1 irgendwas mit EHWG (*EHWG*)steht und Zelle F1 leer ist dann soll eine Meldung kommen sobald ich die Zeile verlasse. z.B. "Bitte Zahl in Spalte F eintragen"
Geht das?
Gruss Markus
12.02.2018 21:50:43
Thread-ID: 1608508
5 Beiträge
Anzeige
Eingaben löschen beim Verlassen
Volker

Guten Morgen,
aus einner Übersicht werden Zellwerte in ein anderes Tabellenblatt übergeben.
Diese "Zieltabelle" kann man sich als Vordruck vorstellen. Dieser Vordruck wird unter anderem Namen in einem anderen Ordner gespeichert. Soweit funktioniert alles.
Jetzt zu meinem Problem:
05.04.2018 09:51:17
Thread-ID: 1618160
4 Beiträge
Makro ausführen beim verlassen von Zellen
wolfbri

hallo Leute,
welcher Makro wird immer ausgeführt, sobald eine Zelle, gleich wie, bestätigt (verlassen) wird?
Ich wäre für jede schnelle Hilfe dankbar
Gruß
Wolfe
07.12.2002 22:38:44
Thread-ID: 190271
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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