Werte per Makro in bestimmtes Tabellenblatt speichern

[MdeJong]

Hallo alle zusammen,

bin grad erst angefangen mich mit makro Programmierungen auseinander zu setzen.

Mit diesem Code bekomme ich eigentlich es hin, Daten abzulegen, wenn ich nur ein Tabellenblatt habe.
das ablegen mache ich über eine userform.

Private Sub CommandButton1_Click()
Dim sp As Integer
Dim z As Long
z = Range("A65536").End(xlUp).Row + 1
For sp = 1 To 13
    Cells(z, sp) = Controls("TextBox" & sp).Text
Next sp
End Sub


Nun habe ich aber 2 Tabellenblätter...wie gebe ich in diesem Code an, das er in das Blatt "BlueRay-Liste" ablegen soll?


Grüße

MdeJong

[Werner.M]

Hallo,

so:

Code:

Private Sub CommandButton1_Click()
Dim sp As Integer
Dim z As Long

With Worksheets("Name_derTabelle")
z = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
For sp = 1 To 13
   .Cells(z, sp) = Controls("TextBox" & sp).Text
Next sp
End With
End Sub

Gruß Werner

[MdeJong]

Hallo,

so:

Code:

Private Sub CommandButton1_Click()
Dim sp As Integer
Dim z As Long

With Worksheets("Name_derTabelle")
z = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
For sp = 1 To 13
   .Cells(z, sp) = Controls("TextBox" & sp).Text
Next sp
End With
End Sub

Gruß Werner

Hey super vielen Dank....was muss noch rein, um nach speichern die TextBoxen wieder leer sind, für neue Eingabe?

[MdeJong]

Hallo Werner M.

das mit den TextBoxen nach dem speichern leeren, habe ich hinbekommen.  :)

jetzt würde ich gerne direkt nach dem speichern mir eine Textnachricht anzeigen lassen, wie " neue Daten gespeichert"?

Das geht doch ..oder?  ;)

Gruß

MdeJong

[Werner.M]

Hallo,

nach Next sp

Code:

MsgBox "Dein Ausgabetext"

Gruß Werner

[MdeJong]

Hallo,

nach Next sp

Code:

MsgBox "Dein Ausgabetext"

Gruß Werner

Übernommen und passt perfekt...Danke :)