Hvorfor kan man ikke dettet

Måske ville det være en hjælp, hvis du lige viste de data, der anvendes som parametre til Hentraa.

nååå ikke det som er mit problem det er det med "sted = Msg"

Public Sub Hentraa(Felt As Variant, linje1 As Variant)
sted = linje1

det er det jeg vil høre.. bare mig der var forhurtig :p

Får du en fejl? Hvilken?
Det er jo ikke lige til at gætte sig til hvad der går galt for dig :-)

Dette eks. giver ikke fejl- måske kan det hjælpe:

Sub test()
Dim linje1 As Variant, felt As Variant
    felt = "abcdx$def12345"
    linje1 = "abcdx"
    Hentraa felt, linje1
End Sub
Public Sub Hentraa(felt As Variant, linje1 As Variant)
sted = linje1

Dim Linje As Variant, I As Integer, Uddata As Variant
    Linje = Split(felt, "$")
    For I = 0 To UBound(Linje)
        If Left(Linje(I), 5) = linje1 Then
            Uddata = Split(Linje(I), ",")
          End If
    Next
    Msg = "$" & linje1
    For I = 0 To UBound(Uddata)
    Msg = Msg & I & "," & Uddata(I) & vbCrLf & "$" & linje1
    Next
    Msg = Left(Msg, Len(Msg) - 7)
    sted = Msg
    Text1 = sted
End Sub

jeg får ingen fejl ved det jeg har lavet der kommer bare ingen data i felstet sted.

Hvis i ikke forstår mig må jeg hellere lukke og lave et nyt nu når jeg er frisk :-p

ok. jeg prøver at forklar det der sker:

Jeg har denne kode, som tager noget text ud af et felt, og lægger det over i et andet felt. det er her den går galt, der kommer ingen data over i det felt som står ved sted i toppen af koden. men kan den ikke tag og lægge ned ned i bunden ud fra hvis man skriver sted. ?

Public Sub Hentraa(felt As Variant, linje1 As Variant)
sted = "GPGGA.text"

Dim Linje As Variant, I As Integer, Uddata As Variant
    Linje = Split(felt, "$")
    For I = 0 To UBound(Linje)
        If Left(Linje(I), 5) = linje1 Then
            Uddata = Split(Linje(I), ",")
          End If
    Next
    Msg = "$" & linje1
    For I = 0 To UBound(Uddata)
    Msg = Msg & I & "," & Uddata(I) & vbCrLf & "$" & linje1
    Next
    Msg = Left(Msg, Len(Msg) - 7)
    sted = Msg
End Sub

Håber der er en som forstår.

hvad sender du med :
linje1 As Variant
hvis det er "GPGGA",
så kald den
linje1 As String,
i stedet



du bruger også

sted = "GPGGA.text"

hvis der et en tekstboks du henviser til, skal du ikke have "" omkring
sted = GPGGA.text

Jeg kan ikke se hvad du skal bruge den til i koden ??

Eller er det skrevet med stort begge steder, det kan der laves om på sådan her:

  If Ucase(Left(Linje(I), 5)) = Ucase(linje1) Then

oki. det jeg vil med den i koden er.
at når jeg kaler på den så jeg kan skrive hvilke felt den skal lægge de data i som er blevet splittet op altså i dettet tilfelle skal den ligge det i et felt der hedder GPGGA.TEXT. altså jeg vil kunne kalde den på denne måde:

hentraa incommendata, "GPGGA", GPGGA.text

Eller kan man ikke det?

Jeg prøver lige at lave den om til en Funktion

Public Function Hentraa(felt As Variant, linje1 As String)

Dim Linje As Variant, I As Integer, Uddata As Variant
    Linje = Split(felt, "$")
    For I = 0 To UBound(Linje)
        If Left(Linje(I), 5) = linje1 Then
            Uddata = Split(Linje(I), ",")
          End If
    Next
    Msg = "$" & linje1
    For I = 0 To UBound(Uddata)
    Msg = Msg & I & "," & Uddata(I) & vbCrLf & "$" & linje1
    Next
    Msg = Left(Msg, Len(Msg) - 7)
    Hentraa = Msg
End Function


så kald den med

GPGGA = (hentraa incommendata, "GPGGA")

skal vist være

GPGGA = hentraa (incommendata, "GPGGA")

tester det i morgen

Det virker. ar lige en lille ting mere. fx hvis der ikke er noget data at finde som hedder det der GPGGA så skal den bare gå vider i koden. hvordan får jeg den til det? har du en ide tl mig? :S eller skal jeg lave et nyt spm?

ok fandt selv en løsning:

On Error Resume Next

læg et svar :D

et svar ;-))