Daten in ein anderes Blatt schreiben
21.01.2013 17:27:43
Thorsten_Z
ich öffne eine Userform in der Daten in das aktive Tabellenblatt eingetragen werden. Der Code hierfür ist:
Private Sub CommandButton2_Click()
Dim xZeile As Long
If TextBox1 = "" Then Exit Sub
If ComboBox1.ListIndex = 0 Then
xZeile = [A65536].End(xlUp).Row + 1
Else
xZeile = ComboBox1.ListIndex + 1
Cells(xZeile, 1) = TextBox1
End Sub
Private Sub CommandButton2_Click()
Dim xZeile As Long
If TextBox1 = "" Then Exit Sub
If ComboBox1.ListIndex = 0 Then
xZeile = Worksheets("KinderDB").Range("A65536").End(xlUp).Row + 1
Else
xZeile = Sheets("KinderDB").Cells(ComboBox1.ListIndex + 1)
End If
Cells(xZeile, 1) = TextBox1
End Sub
Ich bitte um Hilfe
Vielen Dank schonmal fürs lesen
Gruß
Thorsten
Anzeige