vælg fra ComboBox1 og ComboBox2

Æhhh, så ComboBox1 skal indeholde 65536*256 valgmuligheder?

Her er lidt at arbejde på. Du kan vælge fra række 1-10:

Private Sub ComboBox1_Change()
If Me.ComboBox2.Value <> "" And IsNumeric(Me.ComboBox1.Value) Then
    Me.Label1.Caption = Sheets(Me.ComboBox2.Value).Cells(Me.ComboBox1.Value, 1).Value
Else
    Me.Label1.Caption = "fejl"
End If
End Sub

Private Sub ComboBox2_Change()
If Me.ComboBox2.Value <> "" And IsNumeric(Me.ComboBox1.Value) Then
    Me.Label1.Caption = Sheets(Me.ComboBox2.Value).Cells(Me.ComboBox1.Value, 1).Value
Else
    Me.Label1.Caption = "fejl"
End If
End Sub

Private Sub CommandButton1_Click()
If Not IsNumeric(Me.TextBox1.Value) Then
    MsgBox "Fejl. ikke tal!"
Else
    If Me.ComboBox2.Value <> "" Then
        If Me.ComboBox1.Value <> "" Then
            Sheets(Me.ComboBox2.Value).Cells(Me.ComboBox1, 1).Value = Sheets(Me.ComboBox2.Value).Cells(Me.ComboBox1, 1).Value + Me.TextBox1.Value
        Else
            MsgBox "Ingen celle valgt!"
        End If
    Else
        MsgBox "Ingen ark valgt!"
    End If
End If
End Sub

Private Sub TextBox1_Change()
If Not IsNumeric(Me.TextBox1.Value) Then
    MsgBox "Fejl. ikke tal!"
End If
End Sub

Private Sub UserForm_Activate()
For Each ws In ThisWorkbook.Worksheets
    Me.ComboBox2.AddItem ws.Name
Next
'Me.ComboBox2
For I = 1 To 10
    Me.ComboBox1.AddItem I
Next
End Sub

Bemærk at der skal være en label1 med:
Bemærk også at den ikke tager højde for ekstra faneblade i arket!

Private Sub ComboBox1_Change()
If Me.ComboBox2.Value <> "" And IsNumeric(Me.ComboBox1.Value) Then
    Me.Label1.Caption = Sheets(Me.ComboBox2.Value).Cells(Me.ComboBox1.Value, 1).Value
Else
    Me.Label1.Caption = "fejl"
End If
End Sub

Private Sub ComboBox2_Change()
If Me.ComboBox2.Value <> "" And IsNumeric(Me.ComboBox1.Value) Then
    Me.Label1.Caption = Sheets(Me.ComboBox2.Value).Cells(Me.ComboBox1.Value, 1).Value
Else
    Me.Label1.Caption = "fejl"
End If
End Sub

Private Sub CommandButton1_Click()
If Not IsNumeric(Me.TextBox1.Value) Then
    MsgBox "Fejl. ikke tal!"
Else
    If Me.ComboBox2.Value <> "" Then
        If Me.ComboBox1.Value <> "" Then
            Sheets(Me.ComboBox2.Value).Cells(Me.ComboBox1, 1).Value = Sheets(Me.ComboBox2.Value).Cells(Me.ComboBox1, 1).Value + Me.TextBox1.Value
        Else
            MsgBox "Ingen celle valgt!"
        End If
    Else
        MsgBox "Ingen ark valgt!"
    End If
End If
Me.Label1.Caption = Me.Label1.Caption & " + " & Me.TextBox1.Value & " = " & Sheets(Me.ComboBox2.Value).Cells(Me.ComboBox1, 1).Value
End Sub

Private Sub TextBox1_Change()
If Not IsNumeric(Me.TextBox1.Value) Then
    MsgBox "Fejl. ikke tal!"
End If
End Sub

Private Sub UserForm_Activate()
For Each ws In ThisWorkbook.Worksheets
    Me.ComboBox2.AddItem ws.Name
Next
For I = 1 To 10
    Me.ComboBox1.AddItem I
Next
End Sub

Hej akyhne
Jeg kan ikke lige overskue det.
Jeg prøver lige at ligge filen ud på nettet så kan du se
hvad jeg hade forstillet mig.
på forhånd tak

http://www.michael.hansen7500.dk\Excel\dyr.xls

mvh

mvhansen

http://www.michael.hansen7500.dk\Excel\dyr.xls

Sådan så skulle det være rigtig

http://www.michael.hansen7500.dk/Excel/dyr.xls

mvh

mvhansen

Kan ikke hente noget!

Send til gt4 at racingcar dot dk

Er du kommet videre?

Hej akyhne

Jeg har ned brud af mit internet siden lørdag.
jeg har lige fået det op at køre i dag.
nu kan du hente filen

http://www.michael.hansen7500.dk/Excel/dyr.xls

mvh

mvhansen

Har hentet den nu. Er det så meningen du kun vil have en form der er fælles?

Du kan hente dit ark her: http://www.racingcar.dk/eksperten/dyr3.xls

Hej akyhne

Jeg skulle gerne kunne sætte
tal i formen fra userform2 (indsæt dyr) så de kommer i de rigtig ark.
og hvis der står et tal i cellen skal den ligge talet sammen
med det tal, der er der i forvejen
hvis det kan lade sig gøre

mvh

mvhansen

Det er LIVE redigering. Du skriver bare i en tekstboks, så opdateres arket. Det andet er alt for besværligt.

Der behøves kun den ene form til det hele!

Har du forstået virkemåden?

Hej akyhne
Ja men jeg vil gerne have det til at virke,
på den måde jeg har sat op.
hvis det kan lade sig gøre.
hvis ikke så lig et svar, så du kan få nogle Point
og tak for hjælpen


mvh

mvhansen

Det kan det sagtens. Jeg forstår bare ikke lige hvorfor du vil have det på den måde! Du kan jo gå ind og beskytte arket når du har lavet de rettelser du ønsker. Det er nemmere at rette direkte fra formens tekstfelter.
Jeg skal kigge på det når jeg får tid.

Så er dit oprindelige ønske opfyldt: http://www.racingcar.dk/eksperten/dyr.xls

Hej akyhne

Mange tak for hjælpen
Kan du ikke ligge et svar så du kan få nogle point

mvh

mvhansen

Velbekomme :-)

Så kan jeg fjerne filerne igen?

Ja TAK igen

mvh

mvhansen