Hallo Jügen,
du kannst dir auch eine UserForm basteln mit zwei TextBoxen für Rechnungsnummer (Textbox1) und Datum (Textbox2) anstelle der Inputboxen und einem Commandbutton1 für OK, dann solltest du dieses Makro Commandbutton1_click nennen.
Sub suchprogramm()
Sp_Rechnungsnummer = "A" 'oder wo die daten stehen mögen
Sp_Datum = "B"
'sonstige Daten in den übrigen Spalten
ReNr = InputBox("Rechnungsnummer")
Datum = InputBox("Datum")
If ReNr = "" Or Datum = "" Then Exit Sub
'sucht nach dem Eintrag aus der Inputbox zum ersten Mal
Set rng = Columns(Sp_Rechnungsnummer).Find(What:=ReNr, LookIn:=xlValues, LookAt:=xlWhole)
If Not rng Is Nothing Then
erstes = rng.Row 'erste Fundstelle
If CDate(Cells(rng.Row, Sp_Datum)) = CDate(Datum) Then
a = ""
For i = 1 To Cells(rng.Row, Columns.Count).End(xlToLeft).Column
a = a + CStr(Cells(rng.Row, i)) + vbCrLf
Next i
MsgBox a
End If
End If
'sucht nach weiteren Eintrag aus der Inputbox
Do
Set rng = Columns(Sp_Rechnungsnummer).FindNext(After:=rng)
If rng.Row erstes
End Sub
Gruß
Holger
Jürgen schrieb am 07.07.2009 14:16:09:
Hallo liebe VBA-Profis,
sitze grad vor nem kleinen Problem und weiß nicht recht wie damit umzugehen.
Vielleicht kann mir ja jemand helfen.
Aufgabe:
Durch Eingabe eines Datums und einer Rechnungsnummer sollen aus einer Liste die, auf diese beiden Daten zutreffende restliche gespeicherte Daten selektiert werden und in einen gesonderten Bereich (evtl auch msgbox oder sowas) geschrieben werden.
Es soll also eine gesamte Tabelle durchsucht werden(bzw halt die spalten wo Rechnungsnummer und Datum drin stehen.
Es müssen Rechnungsnummer UND Datum zutreffen.
Es sollen dann eben alle Daten die zum Datum und zur Rechnungsnummer gesondert angezeigt werden.
Wenn möglich evtl irgendwie über ein Userform, Inputbox oder ähnliches...
Für Hilfe wäre ich echt sehr dankbar.
Bei weiteren Fragen stehe ich natürlich gerne Antwort.
MfG
Jürgen |