Opslag fra andet faneblad

Det burde kunne lade sig gøre via VBA - hvis det er ok?

VBA ville være helt okay.

Ok - du skal være velkommen til evt. at sende en lille model - så skal forsøge af lægge VBA-koden ind.

@-adresse under profil.

Det gør jeg den kommer lige iaften. På forhånd mange tak.

Det spiller bare :) du skal have rigtig mange tak. smider du lige et svar :) godt nytår.

Fint - selv tak og også godt nytår til herfra..

..et svar med VBA-koden:

Dim arkData As Worksheet
Dim ændretRække As Long, flag As Boolean
Private Function søgSkib(skibsNavn)
    Set arkData = ActiveWorkbook.Sheets("Dataark")
   
    With arkData.Range("A2:A65000")
        Set c = .Find(skibsNavn, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            søgSkib = c.Row
        Else
            søgSkib = 0
        End If
    End With
End Function
Rem +++++++++++++++++++++++++++++++++++++++++++++++
Private Sub Worksheet_Change(ByVal Target As Range)
    If flag = False Then
        If Target.Column = 2 Then
            ændretRække = Target.Row
        Else
            ændretRække = 0
        End If
    End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim dataRække As Long
  If flag = False Then
        If ændretRække > 0 Then
            flag = True
            dataRække = søgSkib(UCase(Range("B" & ændretRække).Value))
           
            If dataRække > 0 Then
                With arkData
                    .Range("A" & dataRække & ":G" & dataRække).Copy
                End With
               
                ActiveSheet.Range("B" & ændretRække).Select
                ActiveSheet.Paste
            End If
        End If
       
        Set arkData = Nothing
        Application.CutCopyMode = False
        ændretRække = 0
       
        flag = False
    End If
End Sub