AW: Lösungscode - spät aber versprochen ist...
10.03.2005 21:23:12
Luc
Hallo Andreas,
habe ggw. für umfangreichere Sachen kaum Zeit, aber hab's fertig und getestet (allerdings nicht mit UserForm und TextBox, müsste aber klappen).
Private Sub CommandButton1_Click()
Rem vor dem eintragen der daten wird nachgefragt, ob alles richtig ist!
Dim mldg As String, titel As String, vgl As String, _
tb As Variant, wk As Variant, stil As Long, i As Long, _
grc As Integer, j As Integer
tb = Array(TextBox1.Text, TextBox5.Text, TextBox4.Text)
mldg = "Alles richtig eingetragen ?"
stil = vbYesNo + vbQuestion + vbDefaultButton2
titel = "Frage ?"
grc = MsgBox(mldg, stil, titel)
If grc <> vbYes Then Exit Sub
Rem daten werden in alle exist tabblätter der akt Arbeitsmappe eingetragen !?
Sheets.Select 'b. 1 exist u.auf akt Blatt übflüss, sonst Sheets(blattnr/name)
i = 1
wk = Array(Cells(i, 1).Value, Cells(i, 2).Value, Cells(i, 3).Value)
vgl = Join(tb, ";") 'wk u. tb angelegt, damit Join verwendet wdn kann
Do Until Join(wk, ";") = ";;"
If Join(wk, ";") = vgl Then
MsgBox "Wertekombination " & vgl & " schon vorhanden in Zeile " & _
i & " !", vbCritical, "Daten !"
GoTo ex
End If
i = i + 1
wk = Array(Cells(i, 1).Value, Cells(i, 2).Value, Cells(i, 3).Value)
Loop
For j = 0 To 2
Cells(i, j + 1).Value = tb(j)
Next j
ex: Rem textbox wieder leeren
TextBox1.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
Call UserForm_Initialize
End Sub
Erläuterungen im Code. Wenn noch Fragen auftauchen, aber auch wenn's funktioniert, melde dich.
Ciao Luc
:-?