Hi. hier bin ich noch mal. habe folgendes problem. man richtet sich per userform ein konto mit benutzername usw. ein. jeder benutzername soll nur 1 mal vorkommen. bei doppelung öffnet sich msgbox mit warnmeldung. soweit mein makro:::
Private Sub CommandButton1_Click()
Dim frm3 As UserForm
Set frm3 = UserForm3
x = UserForm3.TextBox3.Value <---Passwort
Sheets("Tabelle1").Activate
__________________________________________________________________
With frm3
Set a = Range("A1:A30").Find(x) <--- Passwort in bereich suchen
a.Select <----- Da taucht die Fehlermeldung auf
DIESER BEREICH KLAPPT NICHT
If ActiveCell.Value = x Then
MsgBox ("Der Benutzername ist vergeben!!! Bitte wählen Sie einen anderen!")
End If
_________________________________________________________________
Range("iv8").End(xlToLeft).Offset(0, 3).Select
HIER FUNZT ALLES
ActiveCell.Value = .TextBox1.Value
ActiveCell.Offset(1, 0).Value = .TextBox2.Value
ActiveCell.Offset(2, 0).Value = .TextBox3.Value
ActiveCell.Offset(3, 0).Value = .TextBox4.Value
ActiveCell.Offset(4, 0).Value = .TextBox5.Value
ActiveCell.Offset(5, 0).Value = .TextBox6.Value
ActiveCell.Offset(6, 0).Value = .ComboBox1.Text
ActiveCell.Offset(6, 1).Value = .ComboBox2.Text
ActiveCell.Offset(6, 2).Value = .ComboBox3.Text
If .OptionButton1.Value = True Then
ActiveCell.Offset(7, 0).Value = "männlich"
Else
If .OptionButton2.Value = True Then
ActiveCell.Offset(7, 0).Value = "weiblich"
End If
End If
.TextBox1.Value = ""
.TextBox2.Value = ""
.TextBox3.Value = ""
.TextBox4.Value = ""
.TextBox5.Value = ""
.TextBox6.Value = ""
.ComboBox1.Text = ""
.ComboBox2.Text = ""
.ComboBox3.Text = ""
.OptionButton1.Value = ""
.OptionButton2.Value = ""
End With
End Sub
____________________________________________________
Hoffe mein problem ist zu verstehen und halbwegs übersichtlich
danke für help schon mal im vorraus
mfg. hokage |