Wat doe ik fout

[Bertus78]

Wie kan mij even helpen.
Ik loop even vast met het volgende,

Sub zoeken_op_storingsnummer()
  c00 = InputBox("Voer storingsnummer in.")
  With Sheets("Koffieautomaten")
    gev = Application.Match(c00, .Columns(15), 0)
    If Not IsError(gev) Then .Cells(gev, 1).Copy
    Sheets("storing melden").Select
    Range("B5").Select
    Selection = Paste.Copy
  End With
End Sub

In sheet "Koffieautomaten" moet hij in kolom 15 storingsnummer opzoeken.
dan staat in kolom 1 een automaat nummer.
deze moet hij plakken in sheet "storing melden" cel B5

Ik loop steeds vast op het plakken.
Ik heb zelf het vermoeden dat de zin " Selection = Paste.Copy" fout is. (weet het wel zeker)
Ik heb diverse dingen geprobeerd, maar het lukt mij niet....

 

[edmoor]

Doe het eens zo:

Sub zoeken_op_storingsnummer()
  c00 = InputBox("Voer storingsnummer in.")
  With Sheets("Koffieautomaten")
    gev = Application.Match(Clng(c00), .Columns(15), 0)
    If Not IsError(gev) Then
        Sheets("storing melden").Range("B5") = .Cells(gev, 1)
    End If
  End With
End Sub

Als het storingsnummer een numeriek gegeven is. Laat anders die Clng weg.

 

[Bertus78]

Als ik dat probeer dan geeft hij een foutmelding in de volgende zin

   gev = Application.Match(CInt(c00), .Columns(15), 0)

 

[edmoor]

Bij mijn test werkt het prima. Plaats dus je document of een relevant voorbeeld ervan.
Of vertel eens hoe je storingsnummer er uit ziet.

 

[Bertus78]

Bekijk bijlage Excel document.xlsm

Zoals je kan zien wil ik onder de knop "Storingsnummer" dit invoeren.

Ps. Het kan er verder in VBA slordig uitzien, maar dit is de eerste keer dat ik zo'n document maakt.

 

[edmoor]

Kijk nog eens in #2, daar had ik voor de zekerheid de CInt gewijzigd in CLng.
Doe dat en test het dan nog eens.

Ps. Het kan er verder in VBA slordig uitzien, maar dit is de eerste keer dat ik zo'n document maakt.

Dat geeft niet, we hebben het allemaal moeten leren

 

[Bertus78]

Ja idd, het werkt, bedankt.

Wat is het verschil tussen CInt enCLng ?

 

[edmoor]

CInt maakt er een Integer van. De maximale grootte ervan is 32767. In een Long (CLng) kan een veel groter getal, zoals je storingsnummer.

 

[Bertus78]

Oke, ik begrijp het, bedankt.
Hier kan ik wat mee.

Fijne weekend alvast.

 

[edmoor]

Graag gedaan en hetzelfde gewenst

 

[HSV]

Maak er dit van....

c00 = Application.InputBox("Voer storingsnummer in.", , , , , , , 1)

..kan je alleen maar getallen invoeren.