Datum
14.12.2006 10:05:33
w.aigner@at.ats.net
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
Anzeige