Herbers Excel-Forum - das Archiv

Datum

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
  • Datum von w.aigner@at.ats.net vom 14.12.2006 10:05:33
    • AW: Datum - von Specke am 14.12.2006 11:25:42
    • AW: Datum - von UweD am 14.12.2006 11:26:10
      • AW: Datum - von w.aigner@at.ats.net am 14.12.2006 13:14:49
Bild

Betrifft: Datum
von: w.aigner@at.ats.net

Geschrieben am: 14.12.2006 10:05:33
Hallo an alle>>!
Ich habe folgendes Problem!
Ich gebe in 2 Textboxen jeweils ein Datum ein!
Wenn ich dann zb 14.12.2006 eingebe kommen daten automatisch auch mti 14.01.2007 mit!
Hat wer vlt eine idee wie ich das verhindern kann?
Der code:
Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub CommandButton2_Click()
row2 = 2
dat1 = TextBox1.Text
dat2 = TextBox2.Text
Application.ScreenUpdating = False
If dat2 = "" Then dat2 = dat1
'Windows("DAP_PROG.xls").Activate
Sheets("Origdata").Select
max_row = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
For i = 22 To max_row
If Range("AR" & i).Text = "1" Then
If Range("g" & i).Value2 >= dat1 Then
If Range("g" & i).Value2 <= dat2 Then
If Range("t" & i).Text = "FAUF" Then
If Range("p" & i).Text = "1" Then
w1 = Range("G" & i).Text
w2 = Range("C" & i).Text
w3 = Range("D" & i).Text
w4 = Range("S" & i).Value
w5 = Range("E" & i).Text
w6 = Range("F" & i).Text
'Windows("Mappe1.xls").Activate
Sheets("overview").Select
Range("a" & row2).Value = w1
Range("b" & row2).Value = w2
Range("c" & row2).Value = w3
Range("d" & row2).Value = w4
Range("e" & row2).Value = w5
Range("f" & row2).Value = w6
row2 = row2 + 1
'Windows("DAP_PROG.xls").Activate
Sheets("Origdata").Select
End If
End If
End If
End If
End If
Next i
Application.ScreenUpdating = False
'Call cp
'Call enf
Sheets("overview").Select
Call Sortieren
Unload Me
End Sub

Private Sub UserForm_Initialize()
TextBox1.Text = Date
TextBox2.Text = Date + 7
End Sub

Bild

Betrifft: AW: Datum
von: Specke

Geschrieben am: 14.12.2006 11:25:42
Hallo w.aigner,
in der Excel-Hilfe habe ich folgendes gefunden:
Der einzige Unterschied zwischen dieser Eigenschaft und der Value-Eigenschaft besteht darin, dass die Value2-Eigenschaft die Datentypen Currency und Date nicht verwendet.
Nimm mal value, vielleicht ist das Problem damit schon behoben.
Gruß Specke
Bild

Betrifft: AW: Datum
von: UweD
Geschrieben am: 14.12.2006 11:26:10
Hallo
um das zu testen brauchen wir eine Mustermappe.
das baut keiner für sich erst mal so nach.
Gruß UweD
Bild

Betrifft: AW: Datum
von: w.aigner@at.ats.net
Geschrieben am: 14.12.2006 13:14:49
Hallo!
Kann ich leider nicht aufn Herber Server stellen da das File 9 MB hat!
mfg
Wolfgang
 Bild