W Bloemendal
Gebruiker
- Lid geworden
- 28 jan 2001
- Berichten
- 503
ik heb de volgende macro
Dim bladnr As String
Dim zoek As String
Dim i As Integer
Dim GEVONDEN As Boolean
aantal = "11"
zoek = InputBox("geef zoek opdracht", "ZOEKEN")
For i = 1 To 11
On Error Resume Next
If i = 1 Then bladnr = "data"
If i = 2 Then bladnr = "zagen"
If i = 3 Then bladnr = "buisboren"
If i = 4 Then bladnr = "voordraaien"
If i = 5 Then bladnr = "dimpelen"
If i = 6 Then bladnr = "riffelen"
If i = 7 Then bladnr = "uitbesteed sabo"
If i = 8 Then bladnr = "harden"
If i = 9 Then bladnr = "nadraaien"
If i = 10 Then bladnr = "slijpen"
If i = 11 Then bladnr = "magazijn"
Sheets(bladnr).Activate
Range("a1").Select
GEVONDEN = Cells.Find(What:=zoek, After:=ActiveCell).Activate
If GEVONDEN = True Then
Exit Sub
End If
Next i
MsgBox "niet gevonden"
End Sub
Maar nu wil ik de volgende regels in brengen
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
In plaats van het For i =1 to 11 gedeelte
Dim bladnr As String
Dim zoek As String
Dim i As Integer
Dim GEVONDEN As Boolean
aantal = "11"
zoek = InputBox("geef zoek opdracht", "ZOEKEN")
For i = 1 To 11
On Error Resume Next
If i = 1 Then bladnr = "data"
If i = 2 Then bladnr = "zagen"
If i = 3 Then bladnr = "buisboren"
If i = 4 Then bladnr = "voordraaien"
If i = 5 Then bladnr = "dimpelen"
If i = 6 Then bladnr = "riffelen"
If i = 7 Then bladnr = "uitbesteed sabo"
If i = 8 Then bladnr = "harden"
If i = 9 Then bladnr = "nadraaien"
If i = 10 Then bladnr = "slijpen"
If i = 11 Then bladnr = "magazijn"
Sheets(bladnr).Activate
Range("a1").Select
GEVONDEN = Cells.Find(What:=zoek, After:=ActiveCell).Activate
If GEVONDEN = True Then
Exit Sub
End If
Next i
MsgBox "niet gevonden"
End Sub
Maar nu wil ik de volgende regels in brengen
Dim Ws As Worksheet
For Each Ws In ThisWorkbook.Worksheets
In plaats van het For i =1 to 11 gedeelte