Such und Eingabeänderung im Makro
18.01.2005 12:10:30
Heinz
Habe Dank Euere Hilfe ein Makro zum Datum suchen.
1.Frage Muß das Datum in "Hauptblatt" Zelle A1 eingeben, möchte es ändern auf Zelle D8.
2.Frage Mit Strg+S beginnt die suche,möchte aber das die suche mit der Eingabetaste Enter beginnt.
Was müsste im unterstehenden Makro geändert werde??
Danke für Eure Hilfe.
Heinz
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 = sheets("Hauptblatt").cells(1,1).value
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