Skjul tekstbox

er der en tekstboks ud for hver celle!?

den her gør det ud for celle I5 skal du bare sætte flere ind, har ikke styr på hvordan den kan gøre det hele i en kode...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$I$5" Then 'Cellen
  Worksheets("Ark1").L5box.Visible = False
  c = Cells(5, 9).Value
  If c = "4+0" Or c = "4+1" Or c = "5+0" Or c = "5+1" Or _
c = "6+0" Or c = "6+1" Or c = "7+0" Then
        Worksheets("Ark1").L5box.Visible = True
    Else
        Worksheets("Ark1").L5box.Visible = False
    End If
End If
End Sub

Hej splokit

Jeg kan ikke få den til at virke. fejl på 

  c = Cells(5, 9).Value -/ikke defineret variable.

Men måske jeg skal uddybe lidt mere.

Jeg har en userform med tekstboxene og to regneark hvor det ene skal søge efter koder 4+0 4+1 5+0 5+1 6+0 6+1 7+0. Det andet regneark skal så levere teksten til tekstboxene.

ok..

Altså en mappe med 2 ark.
den skal finde din værdi på ark1 og retunere værdien fra ark 2 til tekstbox1 el.!?

Så i den userform tekstbox1 skriver man eks 4+1 og hvis den værdi er på ark1 skal den vise værdien fra ark2 i tekstbox2!?

den første er bare hvis man skriver den værdi i "I5" på ark1 vil den vise en tekstboks lige ved siden af cellen...

Ikke helt

Det er måske lidt besværligt.

Ark1 = Lotto
Ark2 = Trækninger
Userform = Gevinst / TekstBox 27

Hvis der på Lotto i Cellerne I5:I24 er koderne 4+0 osv. skal textboxen vise Trækninger fra to celler eks. (D7:E7) "spørgsmål: Kan disse navngives til en celle", hvis der ikke er gevinst skal den skjules.

Jeg tror det er noget med lopslag - er det ikke rigtigt. Jeg kan evt. sende regnearket .

Jeg kan godt se, at jeg nok må øge indsatsen.

Jeg tænker noget i denne stil

If Worksheets("Lotto") celle ("I5:I24")
Er lig med
"7+0" Then
        frmGevinst.TextBox27.Value = Worksheets("Trækninger") celle ("D7:E7")
If "6+1" Then
        frmGevinst.TextBox27.Value = Worksheets("Trækninger") celle ("F7:G7")
If "6+0" Then
If "5+1" Then
If "5+0" Then
If "4+1" Then
If "4+0" Then

Else
frmGevinst.TextBox27.Visible = False

Lukker her.