Thema Datum  Von Nutzer Rating
Antwort
07.07.2009 14:16:09 Jürgen
NotSolved
Blau Aw:VBA Suchprogramm
 09.07.2009 16:42:55 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
09.07.2009 16:42:55		 Views:
829		 Rating:
     
Antwort:
  Ja
Thema:
Aw:VBA Suchprogramm
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
07.07.2009 14:16:09 Jürgen
NotSolved
Blau Aw:VBA Suchprogramm
 09.07.2009 16:42:55 Holger
NotSolved