AW: @ Christian M
28.11.2007 05:38:14
Vinz
Servus Franz,
Du hast durchaus Recht. Die Erfahrung zeigt, dass es leider bei manchen Kollegen nicht funktioniert, weil sie einfach kein Interesse haben, sich das anzueignen. Ich habe zu den grundlegendsten Sachen geschult ... quasi zum "täglichen Brot", aber sie wenden es einfach nicht an und wenn sie das gewünschte Ergebnis nicht erhalten, stehen sie wieder mit den selben Fragen wie letzte Woche auf der Matte ... aber genug davon.
Die Userform dient nur der Eingabe der Suchkriterien. Die auszuwertende Tabelle kommt von einer anderen Abteilung. unterschiedliche Schreibweisen in der Tabelle kommen nur bei der VNr vor, da werde ich wohl die 3 Möglichkeiten separat abfragen.
Danke für Deine Tips, vor allem für die Sache mit dem von-bis-Filter bezüglich der Buchstabenanteile im Suchbegriff ... da wäre ich bestimmt wieder grob gestolpert. ;-)
Ich bin gerade dabei, was zu testen, ist zwar nicht schön, aber funktioniert schon mal grundlegend. aber ich sehe schon, das wird noch ein weiter Weg ...
Sub Textboxen_auswerten()
Dim ctrl As Control
Dim n As Integer
'Dim Datum1, Datum2 As Date
Dim Datum1, Datum2, InvNr1, InvNr2, GNr1, GNr2, VNr, FTF As String
For Each ctrl In filterMaske.Controls
If TypeName(ctrl) = "TextBox" Then
If ctrl.Text = "" Then
For n = 1 To ctrl.MaxLength
ctrl.Text = ctrl.Text & "?"
Next
End If
End If
Next
With filterMaske
Datum1 = .Datum11.Text & "." & .Datum12.Text & "." & .Datum13.Text
Datum2 = .Datum21.Text & "." & .Datum22.Text & "." & .Datum23.Text
MsgBox (Datum1 & Datum2)
InvNr1 = .InvNr11.Text & .InvNr12.Text & .InvNr13.Text & _
.InvNr14.Text & .InvNr15.Text & .InvNr16.Text
InvNr2 = .InvNr21.Text & .InvNr22.Text & .InvNr23.Text & _
.InvNr24.Text & .InvNr25.Text & .InvNr26.Text
MsgBox (InvNr1 & InvNr2)
GNr1 = .GNr11.Text & .GNr12.Text & .GNr13.Text & _
.GNr14.Text & .GNr15.Text & .GNr16.Text
GNr2 = .GNr21.Text & .GNr22.Text & .GNr23.Text & _
.GNr24.Text & .GNr25.Text & .GNr26.Text
MsgBox (GNr1 & GNr2)
VNr = .VNr1.Text & .VNr2.Text & .VNr3.Text & .VNr4.Text
MsgBox (VNr)
FTF = .FF.Text
MsgBox (FTF)
End With
End Sub
Greetz
Vinz