Die Erstellung einer "Datenbank" mit excel-mit VBA-Userform

Private Sub CommandButton1_Click()

Dim actual_sheet As String

actual_sheet = "Sheet1"

Dim data_base As Variant

data_base = Sheets(actual_sheet).Range("G4:K100000")

nome = TextBox1.Value
Age = TextBox2.Value
Adress = TextBox3.Value
Phone = TextBox4.Value

For i = 1 To UBound(data_base)

    Line_at = data_base(i, 1)

    If Line_at = "" Then

        ' id
        data_base(i, 1) = i
        'name
        data_base(i, 2) = nome
        'age
        data_base(i, 3) = Age
        'adress
        data_base(i, 4) = Adress
        'phone
        data_base(i, 5) = Phone

        Exit For

    End If

Next


Sheets(actual_sheet).Range("G4:K100000") = database

UserNew.Hide



End Sub

Ich habe ein Formular für einen user namens UserNew und ich möchte einige Informationen, um eine "Datenbank" *nur eine Tabelle für die übung * , aber wenn ich auf die CommandButton_1 nichts passiert meine "data_base", habe ich ausgetestet und ich sah, dass die Werte eigentlich immer vergangen, aber ich denke, das problem mit dem schreiben ... ich weiß nicht, funktioniert nicht ....
Jede Hilfe ist willkommen.

Eigentlich kann ich übergeben Sie die Werte an einen sub(name,Alter,Adresse,Telefon) , aber es gibt einen Weg, um dies automatisch, wie in diesem Beispiel ?

Die meisten der code verwendet eine variable mit dem Namen data_base, aber am Ende, Ihren code legt die Palette auf eine bisher nicht verwendete variable database. Dies ist, warum sollten Sie immer Option Explicit.

InformationsquelleAutor Stephenloky | 2013-11-12

Schreibe einen Kommentar