Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
960to964
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
960to964
960to964
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Variable Wenn-Dann Abfrage in einer TextBox
25.03.2008 23:12:00
edie
Hallo zusammen,
wie lautet die Syntax, wenn die Wenn-Dann Abfrage nicht nur
für das Jahr 2008 gelten soll?

Private Sub CommandButton1_Click()
If Format(CDate(Me.TextBox1.Value), "dd.mm.yy") > CDate("01.03.08")_
And Format(CDate(Me.TextBox1.Value), "dd.mm.yy") 


Würde gerne eine "Eiwige" Abfrage in die Prozedur einbauen.
Kann mir jemand helfen?
Vielen Dank im Voraus.
Grüße

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
ändere doch die Jahreszahlen oT
25.03.2008 23:25:37
Matthias

AW: Variable Wenn-Dann Abfrage in einer TextBox
25.03.2008 23:28:26
ChrisL
Hallo
If Month(CDate(TextBox1)) = 3 Then
Gruss
Chris

AW: Variable Wenn-Dann Abfrage in einer TextBox
25.03.2008 23:28:00
Chris
Servus,
evtl. so, wenn ich's richtig verstanden habe:

Private Sub CommandButton1_Click()
If Format(CDate(Me.TextBox1.Value), "dd.mm.yy") > CDate("01.03." & Year(Me.TextBox1))_
And Format(CDate(Me.TextBox1.Value), "dd.mm.yy") 


So wird das Jahr aus der TextBox ausgelesen.
Gruß
Chris

... oder meinst Du es so ?
26.03.2008 01:07:00
Matthias
Hallo
... oder meinst Du generell so:
BILD
Userbild

Option Explicit
Private Sub CommandButton1_Click()
On Error GoTo Ende
If IsDate(TextBox1.Value) Then
 If CLng(TextBox2.Value) > 0 And CLng(TextBox2.Value) 
End If
Ende:
On Error GoTo 0
End Sub


Der schwarze Text (im Code) gehört in eine Codezeile ! (wie im Bild). Er wird leider von der Forumsoftware immer wieder "zerpflückt"

Ich habe das ElseIf mal in eine Zeile gepackt.
Es wird ja immer TextBox3.Value = 240 - TextBox4.Value gerechnet
In einer Textbox steht generell Text, das sagt der Name schon.
Auch wenn Du eine Zahl da reinschreibst, bleibt es erstmal Text !
Deshalb die Umwandlung in Clng und Cdbl ( dann sind es Zahlen [Typ Long & Doubel])
hier meine Beispielmappe:

https://www.herber.de/bbs/user/51010.xls
Ich hoffe es hift Dir
Userbild

Anzeige
AW: ... oder meinst Du es so ?
26.03.2008 08:20:00
edie
Hallo Chris,
Hallo Matthias,
vielen herzlichen Dank für die Hilfe.
hatte bis vor kurzem nicht Zeit zum testen, aber jetzt.
Danke noch ein mal.
Grüße

AW: ... Zusatzfrage
26.03.2008 09:04:00
edie
Hallo zusammen,
Wenn das Datum in TextBox1 zwischen 01.03. und 01.04. liegt
If Format(CDate(Me.TextBox1.Value), "dd.mm.yy") > CDate("01.03." & Year(Me.TextBox1))_
And Format(CDate(Me.TextBox1.Value), "dd.mm.yy") würde ich gerne vom 01.04. minus das Datum aus TextBox1 abziehen.
so etwa: "01.04." & Year(Me.TextBox1)- TextBox1.Value
Wie könnte die Syntax lauten?
Vielen Dank im Voraus.
Grüße

Anzeige
AW: ... Zusatzfrage
26.03.2008 09:22:00
Chris
Servus ede,
z.B. so:

Private Sub CommandButton1_Click()
Dim datum As String, ergebnis As Double, datum1 As String
If Format(CDate(Me.TextBox1.Value), "dd.mm.yy") > CDate("01.03." & Year(Me.TextBox1)) And  _
Format(CDate(Me.TextBox1.Value), "dd.mm.yy") 


Gruß
Chris

AW: Vielen Dank, es funktioniert
26.03.2008 09:28:10
edie
Hallo Chris,
vielen Dank, es funktioniert, prima.
Grüße

322 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige