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

datum wird ohne punkte an tb zurückgegeben

Forumthread: datum wird ohne punkte an tb zurückgegeben

datum wird ohne punkte an tb zurückgegeben
28.08.2007 08:05:00
Holger
Hallo Excelianer,
Ich lese aus einer Tabelle Daten in eine UF ein, beim Datum wird der Wert dann aber ohne Punkte in die Textbox geschrieben, kann mir jemand helfen?
Gruß und Dank
Holger

Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: datum wird ohne punkte an tb zurückgegeben
28.08.2007 08:12:32
Hajo_Zi
Hallo Holger,
Textbox1=Range("A1").Text

AW: datum wird ohne punkte an tb zurückgegeben
28.08.2007 08:35:00
Holger
Hallo Hajo,
hätte auch den Code sofort listen können...sorry.
mit dem Code fülle ich meine Text/Comboboxen in der UF

Private Sub ComboBox1_Change()
On Error Resume Next
Application.ScreenUpdating = False
TextBox2 = Format(Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 2))
TextBox3 = Format(Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 5))
TextBox4 = Format(Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 6))
TextBox5 = Format(Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 7))
TextBox6 = Format(Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 8))
TextBox7 = Format(Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 9))
TextBox8 = Format(Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 10))
TextBox9 = Format(Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 11))
TextBox10 = Format(Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 14))
TextBox11 = Format(Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 15))
TextBox13 = Format(Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 18))
TextBox14 = Format(Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 19))
TextBox21 = Format(Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 12))
TextBox22 = Format(Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 16))
ComboBox2 = Format(Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 4))
ComboBox3 = Format(Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 20))
ComboBox4 = Format(Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 13))
ComboBox5 = Format(Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 17))
ComboBox6 = Format(Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 3))
ComboBox7 = Format(Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 21))
End Sub


in der Textbox3 steht das Geburtsdatum, wass im sheet auch als Datum formatiert ist. Alles funtzt auch prima, nur das GebDatum wird ohne Punkte angezeigt. Hast Du hierfür ne Lösung?
Mit der UF kann ich eingegebene Daten ändern und zurück speichern.
Gruß und Dank
Holger

Anzeige
AW: datum wird ohne punkte an tb zurückgegeben
28.08.2007 08:39:28
Hajo_Zi
Hallo Holger,
Warum benutzt Du nicht meinen Vorschlag? Jdenbfalls fü die Textbox. Ich baue das nicht nach.
Wenn ich das richtig sehe benutzt Du den Befehl Format, gibst aber kein Format an!
Gruß Hajo

Anzeige
AW: datum wird ohne punkte an tb zurückgegeben
28.08.2007 08:55:46
Holger
Hallo Hajo,
in dem Sheet stehen in Spalte "E" die Geburtstage, ich wähle mit einer CB den Namen aus und lasse das dazugehörige GebDatum ausgeben um es ggf. ändern zu können. Mit Textbox1=Range("A1).text lege ich aber doch einen starren Wert an der immer die gleiche Celle ausliest, oder irre ich mich da?
Gruß und Dank
Holger

Anzeige
AW: datum wird ohne punkte an tb zurückgegeben
28.08.2007 09:03:13
Hajo_Zi
Hallo Holger,
dazu kann ich nichts schreiben. Da ich es ablehne über das Internet auf fremde Rechner zu schauen.
Gruß Hajo

AW: datum wird ohne punkte an tb zurückgegeben
28.08.2007 09:30:28
Holger
Hallo Hajo,
wiso auf andere Rechner zugreifen? Das verstehe ich jetzt nicht.
Gruß
Holger

Anzeige
AW: datum wird ohne punkte an tb zurückgegeben
28.08.2007 09:33:58
Hajo_Zi
Hallo Holger,
ich habe in keinem Beitrag einen Link auf die Datei gesehen. Darum habe ich vermutet die liegt auf Deinem Rechner.
Gruß Hajo

AW: datum wird ohne punkte an tb zurückgegeben
28.08.2007 09:38:48
Holger
Hallo Hajo,
habe sie auch keinen Upload durchgeführt, dachte es könnte mir so geholfen werden. Jetzt habe ich sie aber da
https://www.herber.de/bbs/user/45455.xls
mit Username: kockmeyer Passwort:punkin kannst du dich anmelden, mit Button "Bewohner Daten bearbeiten" erscheint die UF die gemeint ist.
Vielleicht hilft das ja.
Gruß und Dank
Holger

Anzeige
AW: datum wird ohne punkte an tb zurückgegeben
28.08.2007 09:52:24
Wuxinese
Hallo,
mir hilft die Datei nicht weiter, ich kann sie leider nicht oeffnen... es wird wohl eine andere Datei benoetigt, die ich nicht habe!
Aber ich stimme Hajo zu mit dem Format - warum laesst Du das nicht einfach weg und schreibst anstelle von 

TextBox2 = Format(Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 2))


nicht einfach


TextBox2 = Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 2)

?
Das muesste meines Erachtens voellig ausreichen. Evtl. kannst Du noch ".text" an den Sheets-Begriff anhaengen, aber das sollte es dann auch gewesen sein...
Gruss
Rainer

Anzeige
Danke HAJO und Rainer!!! es funtzt
28.08.2007 09:56:00
Holger
Hallo und DANKE!!
Jetzt funtzt es prima!!!
DANKE HAJO und Rainer

AW: datum wird ohne punkte an tb zurückgegeben
28.08.2007 09:55:12
Hajo_Zi
Hallo Holger,
ich habe Dir eine Tip gegeben. Ich vermute mal Dich hält jemand davon ab diesen umzusetzen, wenn Du nun diesem mehr vertraust als uns. Warum fragst Du dann im Forum? Dieses Verfahren solltest Du abstellen.

TextBox2 = Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 2).Text
TextBox3 = Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 5).Text
TextBox4 = Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 6).Text
TextBox5 = Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 7).Text
TextBox6 = Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 8).Text
TextBox7 = Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 9).Text
TextBox8 = Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 10).Text
TextBox9 = Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 11).Text
TextBox10 = Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 14).Text
TextBox11 = Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 15).Text
TextBox13 = Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 18).Text
TextBox14 = Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 19).Text
TextBox21 = Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 12).Text
TextBox22 = Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 16).Text
ComboBox2 = Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 4).Text
ComboBox3 = Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 20).Text
ComboBox4 = Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 13).Text
ComboBox5 = Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 17).Text
ComboBox6 = Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 3).Text
ComboBox7 = Sheets("Bew_Dat").Cells(ComboBox1.ListIndex + 2, 21).Text


Gruß Hajo

Anzeige
Hallo HAJO
28.08.2007 09:58:00
Holger
ich war nur zu BLÖD, ich vertraue euch...IHR seit SUPER...bin manchmal etwas schwer von cape...
LIEBE GRÜßE und BESTEN DAAAANK
Holger
;

Forumthreads zu verwandten Themen

Uhrzeit ohne Doppelpunkt eingeben
Timo

Halllo zusammen,
Ich habe in einer Tabelle in Spalte C,D,E Uhrzeiten stehen mit denen ich auch weiterrechne.
Ich möchte die Uhrzeit ohne Doppelpunkt eingeben und den Doppelpunkt automatisch ausfüllen lassen Dazu habe ich folgenden Code den ich Ihr im Forum gefunden habe im Codebereich d...
03.03.2009 19:57:16
Thread-ID: 1056091
6 Beiträge
Anzeige
Datumeingabe ohne Punkte
Frank

Hallo,
ich wollte bei der Datumseingabe in eine Zelle auf die Punkte verzichten. Also die Zelle ist als Datum formatiert tt.mm.jjjj
Nun wollte ich lediglich z.B. 091110 eingeben und nach Enter soll 09.11.2010 in der Zelle stehen um halt schneller Datumse einzugeben. Kann mir da jemand h...
09.11.2010 17:02:06
Thread-ID: 1185927
11 Beiträge
Datumseingabe in eine Zelle ohne Punkte
nsodw

Hallo,
ich habe eine Frage zu Excel 2007. Wenn man einen Datumswert in eine Zelle eingibt muss man zwischen die Zahlen Punkte setzen.
Kann man eine Zelle so formatiern, dass man nur noch die Zahlen eingeben kann; z.B. 11102011 anstatt der Datumseingabe von 11.10.2011.
Gruß
nsodw...
28.10.2011 17:04:37
Thread-ID: 1235827
9 Beiträge
Datum zählen ohne doppelte nach JAHR
Sascha

Hallo liebe Experten,
Inmeiner Liste habe ich viele Datumsangaben. daraus habe ich die Daten gezählt und die doppelten herausgefiltert (Formel aus Google)
=SUMME(WENN(C16:M500"";1/ZÄHLENWENN(C16:M500;C16:M500);0))
Nun möchte ich noch dass die Daten einem Jahr zugeordnet werden. Also...
28.02.2015 11:31:56
Thread-ID: 1411983
3 Beiträge
Zelle mit Datum in Anführungszeichen ohne Punkte
Marco

Hallo,
ich habe in Spalte H Zellen mit folgenden Datumsformat "19.02.2019"
Da die Einträge in Anführungszeichen stehen, bekomme ich die Punkte per VBA nicht raus.
Das Ergebnis soll "19022019" sein - also das Datum mit Anführungszeichen.
Kann mir Jemand helfen, die Punkte da raus...
21.02.2019 09:49:57
Thread-ID: 1676877
8 Beiträge
Anzeige
Datum ohne Punkte eingeben, mit Punkten ausgeben
Marion

Hallo,
gibt es die Möglichkeit in Excel (egal welche Version) die Datumseingabe z.B. 22112000 einzugeben und 22.11.2000 ausgeben zu lassen, ähnlich wie in Access mit Eingabe und AUsgabeformat.Ich muß für die Bilanz verschiedene Aufstellungen machen und darf ganz viele Datumsfelder ausfüllen...
06.02.2003 17:02:20
Thread-ID: 215161
4 Beiträge
Datum ohne Punkte, aber wie ?
Andreas

Hallo,ich habe folgendes Problem:Wenn eine Zelle als Datum formatiert ist, wird dieses mit Punkten, also TT.MM.JJ oder TT.MM.JJJJ dargestellt.Für den Import in ein anderes Programm stören jedoch diese Punkte im Datum. Daher habe ich eine weitere Zelle angelegt und dort als benutzerdefinierts Fo...
16.05.2003 09:58:53
Thread-ID: 257377
12 Beiträge
Datumsortieren - ohne Jahr
Tobi
Hallo zusammen
ich würde gerne in VBA eine Spalte mit Daten (jeweils Geburtsdatum in der Form: 14.04.1990) als erstes nach dem Monat und dann nach dem Tag sortieren und in der sortierten Ordnung in einer anderen Spalte abspeichern. Wichtig, das Jahr darf bei der Sortierung nicht berücksichtiget w...
11.11.2003 10:40:55
Thread-ID: 336297
4 Beiträge
Gültiges Datum (ohne Punkteingabe)
Jürgen

Hallo Forumsmitglieder,
nochmal das beliebte Thema Datumseingabe ohne Punkt.
Mit folgendem Code versuche ich eine Datumseingabe in einer Zelle:
Private Sub Worksheet_Change(ByVal Target As Range) Dim Bereich As Range Dim Datum As String Set Bereich = Range("C8") If Not Intersect(Tar...
01.01.1970 00:00:00
Thread-ID: 415218
18 Beiträge
Datumseingabe ohne Punkt
Florian

Hallo, Leute,
vor rund drei Wochen gab's hier einen Thread zu diesem Thema. Klappt aber alles irgendwie nicht. Da kommen die seltsamsten Ergebnisse, zum Teil auch dann, wenn derselbe Wert nacheinander in die gleiche Zelle eingetragen wird.
Wie muß der Code verändert werden, damit in die...
04.05.2004 03:50:40
Thread-ID: 423801
2 Beiträge
Datumeingabe ohne Punkte
Anna

Hallo,
wer kann mir bei folgendem PRoblem helfen?
Würde gerne in eine Zelle das Datum eingeben (TT.MM.JJ), jedoch ohne dabei die lästigen Punkte eingeben zu müssen. Diese sollen automatisch zugefügt werden.
Wie bekomme ich das hin?
Vielen Dank schon mal im Vorraus.
Anna.
16.09.2004 17:58:28
Thread-ID: 486295
6 Beiträge
Datum ohne Punkt eingeben?
Frank

Hallo Excelperten!
Ist folgendes in Excel möglich: Ich gebe in eine Zelle 01011980 ein und Excel erkennt das als Datum und schreibt 01.01.1980. Geht das? Möglichst so, dass Excel auch wirklich "weiß" das es ein Datum ist, also das man damit rechnen kann. Bin für jeden Tipp dankbar!
MfG<...
18.10.2004 19:42:53
Thread-ID: 502614
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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