AW: Gültigkeit für 2 Spalten
26.03.2008 19:11:07
Matthias.G.
Hallo Ramses,
meine VBA kenntnisse sind dürftig,
habe mal den kompletten code der in userform2 steht kopiert:
Option Explicit
Private Sub Daten_übernehmen_Click()
On Error Resume Next
Dim letzte_Zeile As Long
With Worksheets("Mitarbeiter")
letzte_Zeile = Range("A65536").End(xlUp).Offset(1, 0).Row
.Unprotect
.Cells(letzte_Zeile, 1) = TextBox1
.Cells(letzte_Zeile, 2) = TextBox2
.Cells(letzte_Zeile, 3) = TextBox3
.Cells(letzte_Zeile, 4) = TextBox4
.Cells(letzte_Zeile, 5) = TextBox5
.Cells(letzte_Zeile, 6) = TextBox6
.Cells(letzte_Zeile, 7) = TextBox7
.Cells(letzte_Zeile, 8) = TextBox8
.Cells(letzte_Zeile, 9) = TextBox9
.Cells(letzte_Zeile, 10) = TextBox10
.Cells(letzte_Zeile, 11) = TextBox11
.Cells(letzte_Zeile, 12) = TextBox12
.Protect
End With
With Worksheets("Sicherung")
letzte_Zeile = .Range("A65536").End(xlUp).Offset(1, 0).Row
.Cells(letzte_Zeile, 1) = TextBox1
.Cells(letzte_Zeile, 2) = TextBox2
.Cells(letzte_Zeile, 3) = TextBox3
.Cells(letzte_Zeile, 4) = TextBox4
.Cells(letzte_Zeile, 5) = TextBox5
.Cells(letzte_Zeile, 6) = TextBox6
.Cells(letzte_Zeile, 7) = TextBox7
.Cells(letzte_Zeile, 8) = TextBox8
.Cells(letzte_Zeile, 9) = TextBox9
.Cells(letzte_Zeile, 10) = TextBox10
.Cells(letzte_Zeile, 11) = TextBox11
.Cells(letzte_Zeile, 12) = TextBox12
End With
' texboxen loeschen
Dim Tb As Integer
On Error Resume Next
For Tb = 1 To 13
Me.Controls("TextBox" & Tb) = ""
Next Tb
' doppelte prüfen
Dim i As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) & Cells(i, 2) = Me.TextBox1 & Me.TextBox2 Then
MsgBox "Der Name existiert schon", vbInformation + vbOKOnly, "Fehler"
Exit Sub
End If
Next i
End Sub
Private Sub Eingabe_beenden_Click()
Unload UserForm2
MsgBox "Sicherung wird geschützt!"
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
Cancel = 1
MsgBox "Bitte Eingabemaske mit den Schaltflächen verlassen.", _
vbOKOnly + vbInformation, "Bitte Schaltfläche betätigen."
End If
End Sub
Wenn ich die Eingabe mache kommt halt sofort die Meldung das doppelter Wert da ist obwohl Tabelle LEER ist.
Möchte die Datei nicht ins Forum stellen. Den Lösungsweg schon.
Kann ich Dich persönlich erreichen ?
Gruss
Matthias