Invoeren

[henkievermeer]

Hallo allemaal,

Ik zit met een probleem en ik weet niet of het mogelijk is.
Met een tekst invoeren wordt de tekst netjes in de eerste lege rij(A) gezet.
Nu zou ik graag willen dat de letter in rij(B) automatisch wordt opgehoogd.
Dus in rij B wordt het dan na iedere invoer A B C D E enz.

Kan iemand mij helpen?

Bijv. dank

Henkie

 

[HSV]

Zou dit voldoen?
Is maar t/m rij 26 natuurlijk.

Sheets("PMB").Cells(rij, "A").Resize(, 2) = Array(TextBox1.Text, Chr(rij + 64))

 

[tkint]

Beste,

Dit is mijn code (een "amateur"-oplossing):

Private Sub btninvoeren_Click() 'Invoeren
    Dim rij As Integer
    rij = Sheets("PMB").Range("A65536").End(xlUp).Row + 1 'Zoek de Onderste lege regel
    Sheets("PMB").Cells(rij, "A") = TextBox1.Text
    If TextBox1.Text = "" Then
        MsgBox ("Soort niet ingevuld!")
        TextBox1.SetFocus
        Exit Sub
        End If
    Sheets("PMB").Cells(rij, "B") = Chr(Asc(Sheets("PMB").Cells(rij - 1, "B")) + 1)
    TextBox1 = Empty
    TextBox1.SetFocus
End Sub

Met een controle op lege invoer.

 

[henkievermeer]

Harry en tkint,

Het werkt allebei.
Ik kan weer verder.

Bedankt.