Bitte um kurze Erklärung
13.12.2005 13:02:33
Frank
Wäre es möglich, das mir bitte jemand kurz dieses Makro erklären könnte!?
Private Sub CommandButton1_Click()
Dim nr As Variant, sh As Worksheet, i As Integer
nr = InputBox("Nr. eingeben. (z.B. 102)")
If IsNumeric(nr) Then
nr = "M" & nr
End If
For i = 2 To Sheets.Count
If UCase(Sheets(i).Range("B5")) = UCase(nr) Then
Application.Goto Sheets(i).Range("B5")
Exit Sub
End If
Next i
MsgBox "Eintrag nicht gefunden!"
End Sub
Besonders geht es mir dabei um folgenden Teil, wo ich nicht verstehe was da vor sich geht
For i = 2 To Sheets.Count
If UCase(Sheets(i).Range("B5")) = UCase(nr) Then
Application.Goto Sheets(i).Range("B5")
Exit Sub
End If
Next i
Wär echt super wenn es mir jemand in drei, vier Sätzen erklären könnte!
Vielen Dank schonmal!!
mfg
Frank