keineleeren Textbox Übertrag und keine Doppelten W
18.12.2008 21:06:00
Matze
hab das soweit geschaft das die Textboxen in die Tabelle "langeNacht14" übertragen werden,
leider aber auch wenn alle 3 Textboxen leer bleiben und ich auf den Button Klicke überträgt er
Daten (Nicht sichtbar) in die Tabelle , dieses soll NICHT sein.
Private Sub CommandButton2_Click()
On Error Resume Next
Dim letzte_Zeile As Long
With Worksheets("LANGENACHT14")
letzte_Zeile = Range("A65536").End(xlUp).Offset(1, 0).Row
.Unprotect "online"
.Cells(letzte_Zeile, 1) = TextBox1
.Cells(letzte_Zeile, 2) = TextBox2
.Cells(letzte_Zeile, 3) = TextBox3
.Protect "online"
End With
Dim Tb As Integer
On Error Resume Next
For Tb = 1 To 4
Me.Controls("TextBox" & Tb) = ""
Next Tb
End Sub
Ebenso würde ich gerne doppelte Datensätze vermeiden, aber mit folgenden Vorraussetzung:
Betrifft die Daten von Tabelle "LANGENACHT14"
Textbox1 darf sich wiederholen (kann man denke ich komplett entfallen lassen)
Textbox2 darf sich NUR wiederholen wenn Textbox1 noch NICHT in Tabelle "LANGENACHT14" ist
ZB.: Titel(textbox1) Song(Textbox2)
a 123
a 456
a 123
B 123
THX - Danke