Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
848to852
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
848to852
848to852
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

inputbox mit Datum

inputbox mit Datum
03.03.2007 22:45:00
Fritz
Hallo, wer kann mir helfen?
Habe Variable Dim a as Date deklariert.
Wenn ich über die inputbox ein Datum eingebe und danach suchen lasse, funktioniert alles.
Wenn ich aber auf "abbrechen" klicke bringt er mir eine Fehlermeldung in der Zeile der inputbox im Makro
Die Variable a ist dann 0:0:0
Wie kann ich solch eine Inputbox richti "Abbrechen"?
Gruß
Fritz

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: inputbox mit Datum
03.03.2007 23:10:00
Josef
Hallo Fritz,
das geht z.b. so.
Sub Datum_Per_Inpubox()
    Dim result As Variant
    
    result = Application.InputBox("Datum:", "Datum", Format(Date, "dd.mm.yyyy"), Type:=1)
    
    If Not IsDate(CDate(result)) Or result = "Falsch" Then Exit Sub
    
    MsgBox CDate(result)
    
End Sub

Gruß Sepp
Anzeige
AW: inputbox mit Datum
03.03.2007 23:44:24
Erich
Hi Sepp,
IsDate(CDate(...)) ist wohl nicht wirklich sinnvoll:
Wenn's kein Datum ist, geht CDate schon kaputt, bevor IsDate zuschlagen kann.
Mein Vorschlag, bei dem man dem Datum Grenzen setzen kann: 
Sub Datum_Inputbox()
Dim result As Variant
result = Application.InputBox("Datum:", "Datum", Format(Date, "dd.mm.yyyy"), Type:=1)
If result = "Falsch" Then Exit Sub
If CDbl(result) < DateValue("01.01.1880") Then Exit Sub     ' geht ab  01.01.0100
If CDbl(result) > DateValue("31.12.2120") Then Exit Sub     ' geht bis 31.12.9999
MsgBox CDate(result)
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: inputbox mit Datum
03.03.2007 23:50:46
Josef
Hallo Erich,
na dann gib mal "3/3/07" ein und prüfe das mit "IsDate()".
Oder wandle die selbe Eingabe mal mit "Cdbl()" um.
Dies Art der Eingabe ist aber für ein Datum üblich.
Gruß Sepp
AW: inputbox mit Datum
03.03.2007 23:56:27
Erich
Hi Sepp,
die Eingabe 3/3/07 läuft in meiner Version problemlos durch, oder?
Teste doch mal beide Versionen mit 111111111.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: inputbox mit Datum
04.03.2007 04:18:54
Hans
Hallo,
ich wollte nur mal testen, ob das Passwort von Fritz wirklich nicht erkannt wird. Wenn der Beitrag erscheint, wurde es erkannt.
Gruss hans
Anzeige

63 Forumthreads zu ähnlichen Themen

Daten aus Inputbox in Zellen untereinander lesen
Peter

Hallo
Bin neu hier, und auch ein Anfänger in VBA, habe folgendes Problem.
Ich möchte, das Datum über eine InputBox in die Zellen untereinander schreiben lassen, also wenn ich am Freitag was Schreibe soll das Datum in A1 stehen, beim nächsten Aufruf der InputBox, soll das Datum in A2 ges...
09.10.2008 20:00:59
Thread-ID: 1015445
3 Beiträge
Anzeige
Per Userform oder Inputbox Daten selektieren
Bernd


Hallo Freaks,
ich habe im Archiv gesucht, aber leider nichts gefunden.
Ich suche ein Makro, in das ich per Userform (oder Inputbox?) einen Begriff (Namen) eingebe, dann VBA in das Tabellenblatt 1 geht, in Spalte G den Suchbegriff (Namen) sucht und dann als Ergebnis der Suche die...
05.02.2009 17:06:43
Thread-ID: 1047434
3 Beiträge
VBA DateFormat zu String convertieren
MBorn

Guten Morgen,
weiß jemand, wie man ein Datum, das im DateFormat (als Zahl) vorliegt
in das Textformat (yyyy-mm-dd) konvertiert. Sodaß das Ergebnis ein Text ist?
sodaß beispielsweise aus der Zahl 39868 das Text-Datum "2009-02-24" wird?
Herzlichen Dank,
Born
18.03.2009 12:59:43
Thread-ID: 1061376
12 Beiträge
Anzeige
VBA InputBox
Einzel

Hallo,
habe folgenden CODE
Sub Bemerkung() Dim Eingabe As String Dim erg% Text = InputBox("Bitte geben Sie einen Wert für ein:", "Dateneingabe:") Range("B6").Value = Text End Sub
Nun möchte ich aber, das wenn in z.B. B6 schon was steht er den Inhalt in z.B. B7 einträgt. usw.
...
18.06.2009 14:21:23
Thread-ID: 1082593
3 Beiträge
per VBA viele Diagramm-Datenreihen formatieren
Bernd

Guten Abend allerseits,
ich habe es tatsächlich geschafft, in ein Diagramm 235 Datenreihen mit Diagrammtyp xlXYScatterLines einzubinden. Nun suche ich eine Lösung, um diese Datenreihen in einer bestimmten Art und Weise zu formatieren. Händisch viel Arbeit, deswegen möchte ich die Datenreihe...
23.08.2009 19:49:55
Thread-ID: 1098037
5 Beiträge
Inputbox zur Dateisuche
Christopher

Hallo Leute,
ich habe ein Makro mit dem ich Daten aus einer Tabelle aus Jul09.xls in eine andere Tabelle in Berlin.xls kopieren kann.
Sub Artikelnummer_kopieren_Kraft() Windows("Jul09.xls").Activate Sheets("KRAFTREG ").Select Range("B10:B79").Select Selection.Copy Windows("Berlin.xls")....
23.09.2009 09:53:41
Thread-ID: 1104812
9 Beiträge
VBA Inputbox Type Parameter Problem
Bernhard

Liebes Forum,
bislang (Excel 2003) war es möglich eine Variable aus einer Inputbox auszulesen und mit Type:=0 konnte man außerhalb der Inputbox auf eine Zelle klicken - die Zelladresse wurde dann in die Inputbox übernommen und konnte ausgewertet werden.
Beispiel:
str_cell_input =...
20.01.2010 15:00:09
Thread-ID: 1131397
4 Beiträge
VBA Datum in INPUTBOX in Tabelle suchen
Klaus

Nachdem ich nun seit einigen Stunden das Forum durchforstet habe, gehen mir langsam die Suchbegriffe aus. Daher frag ich jetzt einfach einmal......
Ich habe (mal wieder) so eine Tabelle mit einer Zinsstaffel. In Spalte B steht immer die Valuta oder eben das Buchungsdatum.
Ich hab mir be...
22.04.2010 16:03:34
Thread-ID: 1153334
2 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

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
2
5
2
11
2
2
4
8
3
1
2
4
10
1
3
4
9
4
1
9
3
7
3
8
2