Office: Zeile suchen mit zwei Bedingungen

PHP:

         [kbd]Private Sub commandbutton2_click() Auslagern selbst mit Auslagerungsdatum

Dim zeile As Long
Dim zelle As Range
Dim zelle2 As Range
Dim wks As Worksheet
Dim i As Integer
Dim firstAddress As String
Dim tb12 As TextBox
Dim tb3 As TextBox


If Me.TextBox8.Value = "" Then
MsgBox "Sie müssen ein Datum eintragen", vbOKCancel + vbInformation, " Fehler"
Exit Sub
Else:
If Me.ListBox1.ListIndex >= 0 Then





If Me.TextBox10.Value = "Lager1" Then
zeile = Me.ListBox1.Column(0, Me.ListBox1.ListIndex)
If MsgBox("Soll ausgelagert werden?", vbYesNo + vbQuestion) = vbYes Then
If CDate(Me.TextBox12.Text) <= CDate(Me.TextBox8.Text) Then
Set wks = ThisWorkbook.Worksheets("Historie_Lager1")
Set zelle = wks.Columns(7).Find(Auslagern.TextBox3.Value, lookat:=xlWhole, LookIn:=xlValues)
If Not zelle Is Nothing Then
firstAddress = zelle.Address
Do
If wks.Cells(zelle.Row, 2) = CDate(Me.TextBox12) Then
wks.Cells(zelle.Row, 16).Value = CDate(Me.TextBox8.Value)
wks.Cells(zelle.Row, 17).Value = CStr(Me.TextBox11.Value)
Lager_1.Rows(zeile).Delete
End If
Set zelle = wks.Columns(7).FindNext(zelle)
Loop While zelle.Address <> firstAddress
Else: MsgBox "Container nicht gefunden", vbCritical, "Achtung"
Exit Sub
End If
Else: MsgBox "Auslagerungsdatum vor Einlagerungsdatum, Auslagern nicht möglich", vbCritical, "Achtung"
Exit Sub
End If

End If

End If

End If

End If

End Sub[/kbd]


 

PHP:

         [kbd]Private Sub commandbutton2_click() Auslagern selbst mit Auslagerungsdatum

Dim zeile As Long
Dim zelle As Range
Dim zelle2 As Range
Dim wks As Worksheet
Dim i As Integer
Dim firstAddress As String
Dim tb12 As TextBox
Dim tb3 As TextBox


If Me.TextBox8.Value = "" Then
MsgBox "Sie müssen ein Datum eintragen", vbOKCancel + vbInformation, " Fehler"
Exit Sub
Else:
If Me.ListBox1.ListIndex >= 0 Then





If Me.TextBox10.Value = "Lager1" Then
zeile = Me.ListBox1.Column(0, Me.ListBox1.ListIndex)
If MsgBox("Soll ausgelagert werden?", vbYesNo + vbQuestion) = vbYes Then
If CDate(Me.TextBox12.Text) <= CDate(Me.TextBox8.Text) Then
Set wks = ThisWorkbook.Worksheets("Historie_Lager1")
Set zelle = wks.Columns(7).Find(Auslagern.TextBox3.Value, lookat:=xlWhole, LookIn:=xlValues)
If Not zelle Is Nothing Then
firstAddress = zelle.Address
Do
If wks.Cells(zelle.Row, 2) = CDate(Me.TextBox12) Then
wks.Cells(zelle.Row, 16).Value = CDate(Me.TextBox8.Value)
wks.Cells(zelle.Row, 17).Value = CStr(Me.TextBox11.Value)
Lager_1.Rows(zeile).Delete
End If
Set zelle = wks.Columns(7).FindNext(zelle)
Loop While zelle.Address <> firstAddress
Else: MsgBox "Container nicht gefunden", vbCritical, "Achtung"
Exit Sub
End If
Else: MsgBox "Auslagerungsdatum vor Einlagerungsdatum, Auslagern nicht möglich", vbCritical, "Achtung"
Exit Sub
End If

End If

End If

End If

End If

End Sub[/kbd]


 

Läuft bei Dir, freut mich.
Videoreihe angeschaut oder probiert bis es geklappt hat? *Smilie

 

hey

Beides.*tongue.gif* *tongue.gif* *tongue.gif* *tongue.gif*

Hab lange gelesen, Videos angeschaut und rumprobiert.


Aber hab jetzt schon wieder das nächste Problem wo ich nicht weiter komme. Aber mach dafür ein neues Thema auf