kurze Makrofrage
02.09.2005 11:20:48
Jeanie
Ich habe ich eine Suchfunktion mit einem kleinen Makro.
Private Sub CommandButton1_Click() Dim a As String, b a = InputBox("Was suchst du?") For b = 1 To Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row If Sheets(1).Cells(b, 1).Value = a Then MsgBox Sheets(1).Cells(b, 2).Value End If Next b End Sub
Nun hätte ich es aber gerne so, das sich die Suchfunktion auf Sheet 1 befindet und die Daten auf Sheet 2 hinterlegt sind.
Könnt ihr mir helfen?
Vielen Dank!
Jeanie