Waardes zoeken door middel van macros

[ikzegoi]

Hoi,

Ik probeer een programmatje te maken dat naar bepaalde waardes zoekt.
Ik probeer dit doormiddel van een macro te doen omdat dit niet het enige is wat het uiteindelijk moet gaan doen.
Nu heb ik hier wel het een en ander gevonden.
Alleen heb ik telkens het probleem dat als ik een functie heb deze de waardes direct naast de zoekwaardes deponeerd en niet 3 kollomen verderop.

In de bijlage zit mijn excel file.
Bekijk bijlage waardeszoeken1.xls

 

[Wigi]

Private Sub CommandButton1_Click()

  On Error Resume Next
  For Each X In Sheets("Tabelle1").Columns(1).SpecialCells(xlCellTypeConstants)
    
    c0 = Sheets("Tabelle2").Columns(1).Find(X).Address
    
    If Err.Number = 0 Then
        [B]Sheets("Tabelle2").Range(c0).Offset(0, 1).Resize(1, 3).Copy X.Offset(0, 5)[/B]
        Err.Clear
    End If
    
  Next

End Sub

Dit werkt, maar ik heb geen moeite gedaan om de code "beter" te schrijven.

Begin alvast met variabelen goed te declareren (Dim ... As ...)

Wigi

 

[ikzegoi]

Dankjewel voor je reactie

groetjes

anouk