Ein Anderes Steuerelement
18.01.2005 10:33:10
Heinz
Habe Dank Eurer Hilfe ein Makro zum Datum suchen, mit einer Inputbox.
Die mit Strg+S aufgerufen werde muß.Nun wäre es aber angenehmer ein fixes Steuerelement oder wie die Dinge heissen, in einem Tabellenblatt zu fixieren.Wo ich nur das zu suchende Datum eingeben muß.
Zb."Bitte geben sie das zu suchende Datum ein".Name des Tabellenblatt ist "Hauptblatt"
Hättest Ihr BITTE eine Lösung für mich.Meine VBA Kenntnisse sind ziemlich bei null
Danke
Heinz
Das ist die Formel für Inputbox:
Sub MultiSuche()
Dim Sh As Worksheet
Dim GZelle As Range
Dim FStelle As String
Dim SBegriff As Variant
Dim bSchalter As Boolean
bSchalter = False
SBegriff = Date
SBegriff = InputBox("Bitte als Suchbegriff ein Datum eingeben:", _
"Datums-Suche", Date)
If IsDate(SBegriff) Then
SBegriff = CDbl(CDate(SBegriff))
End If
For Each Sh In Worksheets
Sh.Activate
Set GZelle = Sh.Range("AA6:AA52").Find(what:=SBegriff, LookIn:=xlValues)
If Not GZelle Is Nothing Then
FStelle = GZelle.Address
bSchalter = True
Sh.Cells(GZelle.Row, 1).Activate
Exit Sub
End If
Next Sh
If bSchalter = False Then
MsgBox "DAS DATUM IST NICHT VORHANDEN", 64, _
"Das Datum ist nicht vorhanden."
bSchalter = True
End If
End Sub