Hallo Leute,
ich bin begeistert von einem Makro - allerdings weiss ich nicht, wie es funktioniert und somit auch nicht, wie ich es anpasse :-((
Private Sub CommandButton1_Click()
Dim strTmp2 As String, iTmp As Integer
'\\ if an error occurs, bomb out
On Error GoTo On_Error
Sheets("Data").Select
'\\ identify the location of the cell with the finis from the selection in the
'\\ selection box and show the details in the text boxes below it
Set c = Sheets("Data").Range("OM").Find(Fin.Value, LookIn:=xlValues)

Wie und wo wird hier nach welchem Wert gesucht?
Der zu suchende Wert steht in der TextBox Fin - die aber nirgendwo auftaucht...
Im Anschluss an diesen Code werden nur noch die gefundenen Daten eingelesen.
Kann mir das einer aufschlüsseln?
Gruss und schonmal vorab herzlichen Dank
MichiM