Tabellenblatt ändern
12.03.2019 19:38:52
Andre
Ich möchte dies allerdings auf dem Tabellenblatt"Zusammenfassung" nutzen und die Daten sollen im Tabellenblatt Kunde eingetragen werden.
Im Moment nutze ich das Marco im Tabellenblatt "Zusammenfassung" und da werde die Daten auch eingetragen.
Und dann soll sich die Userform direkt nach dem Befehl speichern schließen.
Hat eine eine Idee?
Mit freundlichem Gruß Andre
Option Explicit
Private Sub UserForm_Initialize()
'Projektnummer
TextBox1 = " Projektnummer eingeben "
'Projekt
TextBox2 = "Projekt eingeben"
End Sub
Private Sub CommandButton1_Click()
'Erste freie Zeile ausfindig machen
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
'Projekt
Cells(last, 1).Value = TextBox1
'Projektnummer
Cells(last, 2).Value = TextBox2
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub