Thema Datum  Von Nutzer Rating
Antwort
Rot Zellenaktivierungsproblem
12.03.2008 21:57:43 hokage
NotSolved
13.03.2008 05:05:30 jh
NotSolved
13.03.2008 07:27:01 hokage
NotSolved

Ansicht des Beitrags:
Von:
hokage		 Datum:
12.03.2008 21:57:43		 Views:
1916		 Rating:
     
Antwort:
  Ja
Thema:
Zellenaktivierungsproblem
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zellenaktivierungsproblem
12.03.2008 21:57:43 hokage
NotSolved
13.03.2008 05:05:30 jh
NotSolved
13.03.2008 07:27:01 hokage
NotSolved