textbox eintrag mit tabelle überprüfen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: textbox eintrag mit tabelle überprüfen
von: erich
Geschrieben am: 01.07.2002 - 20:35:05

Hallo excel profis,

habe wieder ein problem, und wäre sehr dankbar wenn ihr mir weiterhelfen köntet.

ich habe in meiner userform folgenden code


Private Sub CommandButton1_Click()
Dim lastrow As Integer
Dim ws As Worksheet
Dim t  As Worksheet
Set frm = UserForm1
Set ws = Worksheets("schrottkarossen")
Set t = Worksheets("Ausschuß")
lastrow = ws.Range("A65536").End(xlUp).Offset(1, 0).Row
' Überprüfen ob alle Felder ausgefüllt sind
If Me.TextBox2.Value = "" Then
MsgBox "Aussteller eingeben!"
TextBox2.SetFocus
Exit Sub
ElseIf Me.ComboBox1.Value = "" Then
MsgBox "Fahrzeugtyp Auswählen!"
ComboBox1.SetFocus
Exit Sub
ElseIf Me.TextBox5.Value = "" Then
MsgBox "Identnummer eingeben!"
TextBox5.SetFocus
Exit Sub
ElseIf Me.TextBox4.Value = "" Then
MsgBox "IGF-NR: Eingeben!"
TextBox4.SetFocus
Exit Sub
ElseIf Me.TextBox3.Value = "" Then
MsgBox "Farbcode eingeben!"
TextBox3.SetFocus
Exit Sub
ElseIf Me.ComboBox3.Value = "" Then
MsgBox "Schadensursache Auswählen!"
ComboBox3.SetFocus
Exit Sub
ElseIf Me.ComboBox2.Value = "" Then
MsgBox "Ereignisort Auswählen!"
ComboBox2.SetFocus
Exit Sub
ElseIf Me.ComboBox6.Value = "" Then
MsgBox "Verursacher Kostenstelle eintragen!"
ComboBox6.SetFocus
Exit Sub
ElseIf Me.ComboBox5.Value = "" Then
MsgBox "Verursacher Schicht Auswählen!"
ComboBox5.SetFocus
Exit Sub
ElseIf Me.ComboBox4.Value = "" Then
MsgBox "Arbeitsfolge Auswählen!"
ComboBox4.SetFocus
Exit Sub
ElseIf Me.TextBox7.Value = "" Then
MsgBox "Wem wurde die Karosse Vorgestellt?"
TextBox7.SetFocus
Exit Sub
End If
With frm
'eintragen in die Tabelle Schrottkarossen
  ws.Cells(lastrow, 1) = .TextBox1.Value
  ws.Cells(lastrow, 2) = .TextBox2.Value
  ws.Cells(lastrow, 3) = .ComboBox1.Value
  ws.Cells(lastrow, 4) = .TextBox5.Value
  ws.Cells(lastrow, 5) = .TextBox4.Value
  ws.Cells(lastrow, 6) = .TextBox3.Value
  ws.Cells(lastrow, 7) = .ComboBox3.Value
  ws.Cells(lastrow, 8) = .ComboBox2.Value
  ws.Cells(lastrow, 9) = .TextBox6.Value
  ws.Cells(lastrow, 10) = .ComboBox6.Value
  ws.Cells(lastrow, 11) = .ComboBox5.Value
  ws.Cells(lastrow, 12) = .ComboBox4.Value
  ws.Cells(lastrow, 13) = .TextBox7.Value
  'in Ausschuß Meldung eintragen
t.Range("H2") = .TextBox1.Value
t.Range("H4") = .TextBox2.Value
t.Range("G6") = .TextBox5.Value
t.Range("C9") = .ComboBox1.Value
t.Range("I14") = .TextBox4.Value
t.Range("C16") = .TextBox3.Value
t.Range("C20") = .ComboBox3.Value
t.Range("C30") = .ComboBox2.Value
t.Range("C52") = .TextBox6.Value
t.Range("E54") = .ComboBox6.Value
t.Range("E55") = .ComboBox5.Value
t.Range("J55") = .ComboBox4.Value
t.Range("C58") = .TextBox1.Value
t.Range("C60") = .TextBox1.Value
t.Range("C62") = .TextBox1.Value
t.Range("I58") = .TextBox7.Value
t.Range("I60") = .TextBox2.Value
t.Range("I62") = .TextBox2.Value
For i = 1 To 6
    .Controls("TextBox" & i) = ""
    .Controls("ComboBox" & i) = ""
  Next
  .Controls("TextBox1").Text = Now
  .Controls("TextBox7").Text = ""
  End With
  ActiveWorkbook.Save
  Me.CommandButton2.Visible = False
  Me.CommandButton3.Visible = True
  Dim Mldg As Byte
    Mldg = MsgBox("Drucken?", _
           vbYesNo + vbQuestion, "Prüfprotokoll?", "", 0)
    If Mldg = 6 Then
     Sheets("Ausschuß").PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True
    Else
    Sheets("Übersicht").Select
    End If
    Dim Msg As Byte
    Msg = MsgBox("Weitere Schrotteingaben?", _
           vbYesNo + vbQuestion, "Karosse wurde gespeichert", "", 0)
    If Msg = 6 Then
     Sheets("Übersicht").Select
    Else
     ActiveWorkbook.Save
Application.ScreenUpdating = False
Sheets("Schrottkarossen").Activate
Columns("A:P").AutoFilter Field:=16, Criteria1:=""
   Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
   Workbooks.Add
   Range("A1").PasteSpecial xlPasteValues
   Rows(1).Delete
 ActiveWorkbook.SendMail Recipients:="erich.hecht@bmw.de", Subject:="Schrottkarosse"
ActiveWorkbook.SendMail Recipients:="TR-100.RKL@bmw.de", Subject:="Schrottkarosse"
 ActiveWorkbook.SendMail Recipients:="Reimund.Bucher@bmw.de", Subject:="Schrottkarosse"
 ActiveWorkbook.Close savechanges:=False
 Sheets("Schrottkarossen").Activate
Columns("A:P").AutoFilter
 Sheets("Übersicht").Activate
Application.ScreenUpdating = True
MsgBox "Sind die Karossen bei der  Störmeldezentrale gemeldet Tel: 2324 ?" & Chr(10) & "Sind die Karossen Entwertet?"
Unload Me
        End If
End Sub

jetzt zu meinen Problem:
ich möchte vor dem eintrag in die tabelle prüfen ob der wert in der Textbox4 schon in der Tabelle spalte E vorhanden ist, wenn ja dann sollte eine MsgBox erscheinen wenn der wert nicht vorhanden ist sollte der eintrag erfolgen.

ist das möglich, und wer kann mir weiter helfen?

mit freundlichen grüßen

Erich

nach oben   nach unten

Re: textbox eintrag mit tabelle überprüfen
von: Hans W. Herber
Geschrieben am: 03.07.2002 - 07:50:55

... mit der Frage hat eine Zeile des von Dir geposteten Codes zu tun. Ohne das Posting dieses ellenlangen Codes hättest Du vermutlich schon eine Antwort erhalten, nur, wer will sich da durchwühlen?


Dim var As Variant
var = Application.Match(TextBox4.Text, ws.Columns(5), 0)
If IsError(var) Then
   ws.Cells(lastrow, 5).Value = TextBox4.Text
Else
   MsgBox "Wert schon vorhanden!"
End If

hans


nach oben   nach unten

Re: textbox eintrag mit tabelle überprüfen
von: erich
Geschrieben am: 06.07.2002 - 19:05:31

Danke Hans,
für deine hilfe, jetzt kann ich endlich mein projekt abschließen.

nochmals danke für deine Hilfe!!!

Mfg
Erich

P.S. halle Spätschicht und konnte nicht eher anworten, entschuldigung.


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "textbox eintrag mit tabelle überprüfen"