If sætning med combobox

If Combobox.SelectedItem = "navn" Then
  Label1.Caption = Combobox.SelectedItem
End If

Sådan?

//>Rune

Jeg prøver lige engang

Private Sub Combo1_Change()
  If Combo1.selecteditem = "thomas larsen" Then
  label1.caption ="ThomasSaldo(en variabel)"
End If
jeg har prøvet med denne her men det virker ikke rigtigt

label1.caption ="ThomasSaldo(en variabel)"
Skal det forstås såden at "ThomasSaldo" er navnet på en variabel, skal det se sådan ud

label1.caption = ThomasSaldo

ThomasSaldo er navnet på en varibel.

når jeg vælger et navn(variabel) i combobox skal label1.caption vise info om det valgte variabel VIA COMBOBOX´EN

Private Sub Combo1_Click()
    If Combo1.Text = "thomas larsen" Then
        Label1.Caption = "ThomasSaldo(en variabel)"
    End If
End Sub

Private Sub Combo1_Change()
  If Combo1.selecteditem = "thomas larsen" Then
  label1.caption = ThomasSaldo
End If

dette skal virke, hvis variablen er tilgængelig for skriptet.

Der er ikke noget der hedder Combo1.selecteditem!
Brug Click event da Change kun er hvis du skriver i din combobox ikke hvis du vælger.

Denne er testet:

Private Sub ComboBox1_Change()
  If ComboBox1 = "thomas larsen" Then
  Label1.Caption = "ThomasSaldo"
  End If
End Sub

Knico > jeg er enig med at det er bedre at bruge Click event, men Change kan også bruges, for det er jo også en ændringnår man vælger noget andet.

Det var mærkeligt. Change virker ikke her i huset. Er det VB6 du bruger?

nej vba

OK, det foklarer det, selv om jeg synes det er spøjst at de ikke fungerer ens i VB og VBA.

krydset: Et tip:

Du skriver i din kode: if combobox = "navn"
Et tip: Specificer ALTID!!! den ønskede property/method. Så bliver koden nemmere at læse, og du (og vi) er ikke i tvivl om hvad du laver...

Så brug aldrig navnet på en kontrol uden et punktum og en property/method!!!

Fx. virker følgende:
  Label1 = "Hej"
Men du BØR skrive
  Label1.Caption = "Hej"

På præcis samme måde med din combobox...

det virker ikke der kommer ikke noget i label.caption

i får lige hele koden

Option Explicit
  Dim IndsetPenge As Single
  Dim ThomasKronerPaaKonto As Single
  Dim LenaKronerPaaKonto As Single
  Dim HævPenge As Single







Private Sub Combo1_Change()
  If Combo1 = "thomas larsen" Then
  Label1.Caption = ThomasKronerPaaKonto
  End If
 
 
End Sub


Private Sub Form_Load()
  Combo1.AddItem "Thomas Larsen"
  Combo1.AddItem "Lena Hansen"
  ThomasKronerPaaKonto = 20
End Sub

Tror du ikke at de skal skrive Thomas Larsen ens begge steder

If Combo1 = "thomas larsen" Then
Combo1.AddItem "Thomas Larsen"

de = du ,og et svar

Brug Combo1_Click() i stedet for Combo1_Change()

Altså:

Private Sub Combo1_Click()
  If Combo1.Text = "Thomas Larsen" Then
    Label1.Caption = ThomasKronerPaaKonto
  End If
End Sub

PS: Tilføj denne linie som den sidste linie i form1_load()

  Combo1.ListIndex = 0

Så slipper du for at der står "combo1" i din combobox når programmet starter - den står allerede på første navn i listen... Bare en ide. Alternativt, tilføj denne linie i stedet for Combo1.ListIndex = 0 :

  Combo1.Text = "Vælg fra listen..."

sådan martin moth der virkede den, jeg takker for hjælpen så kan jeg komme videre.

Hej Hej og hygge.
og pointene er dine..

Krydset>> Hvordan er det du synes mit svar fra den 3/2 18:10:26 afviger fra det svar du accepterede??

det har jeg ikke lagt mærke til, det må du undskylde ;-) jeg vil gerne oprette et andet og give dig point.

Skidt med det jeg undrede mig bare...

det kan jeg godt forstå, men du meget undskylde det.... :-)