Excel VBA fucktion/sub

Det lyder som en skoleopgave, det er nok ikke hensigtsmæssigt at vi løser den for dig. Vi vil dog gerne hjælpe hvis du er gået i stå et sted...

Noget med at inputbox = variabel
Slå variabel op i tabellen og giv resten af linjerne

Det er blot en øvelsesopgave, og opgave 6/6, resten har jeg løst.

Jeg har skrevet dette, som muligvis har fejl, men jeg er ny til VBA i Excel, så håber på noget hjælp..

Sub Informationer_i_Ordrenummer()
Dim Rk As Integer

Set Rng = Range("14:1550")
Antal = 547


Rk = InputBox("Ordrenummer?")



Ordrenummer = Range("B" & Rk).Value
karakter = Range("C" & Rk).Value
check_status = Range("D" & Rk).Value
tilmeld_status = Range("E" & Rk).Value

Range("A4:I547").Value = Gennemsnit


Info = MsgBox( _
"Ordrenummer " & Ordrenummer & vbNewLine & vbNewLine & _
"Kundenummer: " & Kundenummer & vbNewLine & vbNewLine & _
"Ordredato: " & Ordredato & vbNewLine & vbNewLine & _
"Ordresum: " & Ordresum, vbInformation, "Informationer")

End Sub

Nogen andre som kan hjælpe mig med at komme videre? Det ville være en kæmpe hjælp.

I din tilgang har du ordrenummer til at være lig rækkenummer, det tror jeg ikke altid vil være tilfældet (hvis man f.eks. kører løbende ordnrenummer og så skifter ark fra år til år vil linje 1 ikke være lig ordrenummer 000001.

Du bør derfor lave nogle ændringer - jeg har markeret dem med ' så de ikke tæller hvis du kopierer koden direkte - det er dog utestet:

Sub Informationer_i_Ordrenummer()
Dim Rk As String 'den kan være både tal og bogstaver

Set Rng = Range("14:1550") 'dette tror jeg kan undværes
Antal = 547 ' dette tror jeg kan undværes


Rk = InputBox("Ordrenummer?")

for i = 14 to 447 'du skriver at der er op til 447 rækker - og jeg antager at du har skrevet række 14 af en grund, så måske starter det der?
if range("A"& i).value = rk then

' det ligner du har kopieret den næste her fra en anden opgave. Du mangler f.eks. noget med rabatten, men programmeringen er meget det samme. Jeg har dog rettet til i (= den række den har fundet ordrenummeret i)
Ordrenummer = Range("B" & i).Value
karakter = Range("C" & i).Value
check_status = Range("D" & i).Value
tilmeld_status = Range("E" & i).Value

else
next

Range("A4:I547").Value = Gennemsnit ' hvad bruger du dette til?

Info = MsgBox( _
"Ordrenummer " & Ordrenummer & vbNewLine & vbNewLine & _
"Kundenummer: " & Kundenummer & vbNewLine & vbNewLine & _
"Ordredato: " & Ordredato & vbNewLine & vbNewLine & _
"Ordresum: " & Ordresum, vbInformation, "Informationer")

End Sub

Mange tak, jeg har prøvet at lære fra nogle af de andre indlæg, det er korrekt..

Jeg er ikke siker på hvad jeg skal gøre med "Dim Rk As String 'den kan være både tal og bogstaver"

Dette er hvad jeg har rette til:

Option Explicit
Sub Informationer_i_Ordrenummer()
Dim Rk As String

Rk = InputBox("Ordrenummer?")

For i = 4 To 447
If Range("A" & i).Value = Rk Then

Ordrenummer = Range("B" & i).Value
Kundenummer = Range("C" & i).Value
Ordredato = Range("D" & i).Value
Ordresum = Range("E" & i).Value

Else
Next


Info = MsgBox( _
"Ordrenummer " & Ordrenummer & vbNewLine & vbNewLine & _
"Kundenummer: " & Kundenummer & vbNewLine & vbNewLine & _
"Ordredato: " & Ordredato & vbNewLine & vbNewLine & _
"Ordresum: " & Ordresum, vbInformation, "Informationer")

End Sub


Men den siger "Variable not defined og markerer

"Sub Informationer_i_Ordrenummer()"

Ved du hvordan jeg løser dette?

Når du bruger
Option Explicit

Så skal i defineres som en variabel. Så indsæt i toppen:

dim i as integer

hvor jeg skriver noget med ' foran, er det fordi du kan skrive kommentarer direkte i vbakode, det vil blive ignoreret når kode kører.

Den får stadig beskede at variable not defined, og øverste linje markeret med gult.

med koden:

Option Explicit
Sub Informationer_i_Ordrenummer()
Dim Rk As String
Dim i As Integer


Rk = InputBox("Ordrenummer?")

For i = 4 To 550
If Range("A" & i).Value = Rk Then

Ordrenummer = Range("B" & i).Value
Kundenummer = Range("C" & i).Value
Ordredato = Range("D" & i).Value
Ordresum = Range("E" & i).Value

Else
Next


Info = MsgBox( _
"Ordrenummer " & Ordrenummer & vbNewLine & vbNewLine & _
"Kundenummer: " & Kundenummer & vbNewLine & vbNewLine & _
"Ordredato: " & Ordredato & vbNewLine & vbNewLine & _
"Ordresum: " & Ordresum, vbInformation, "Informationer")

End Sub

Nogle ideer? :/

Sub Informationer_i_Ordrenummer()
    Dim Rk As String
    Dim i As Integer

    Dim Ordrenummer as String
    Dim Kundenummer as String
    Dim Ordredato as String
    Dim Ordresum as String

    Rk = InputBox("Ordrenummer?")

    For i = 4 To 550
        If Range("A" & i).Value = Rk Then

            Ordrenummer = Range("B" & i).Value
            Kundenummer = Range("C" & i).Value
            Ordredato = Range("D" & i).Value
            Ordresum = Range("E" & i).Value

            Info = MsgBox( _
            "Ordrenummer " & Ordrenummer & vbNewLine & vbNewLine & _
            "Kundenummer: " & Kundenummer & vbNewLine & vbNewLine & _
            "Ordredato: " & Ordredato & vbNewLine & vbNewLine & _
            "Ordresum: " & Ordresum, vbInformation, "Informationer")

            Exit For
        End If
    Next i
End Sub

Slet ingen som kan hjælpe herfra?

Du mangler: Info

Dim Info As string