Clever-Excel-Forum - Werte per Makro in bestimmtes Tabellenblatt speichern

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

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

(10.11.2017, 21:22)Werner.M schrieb: [ -> ]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?

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

Hallo,

nach Next sp

Code:
MsgBox "Dein Ausgabetext"

Gruß Werner

(10.11.2017, 22:45)Werner.M schrieb: [ -> ]Hallo,

nach Next sp

Code:
MsgBox "Dein Ausgabetext"

Gruß Werner

Übernommen und passt perfekt...Danke :)