Textboxinhalt bei Bedingung NICHT speichern
Ingo
ich brauche mal wieder Hilfe!
Ich lese in Listbox1 auf UF1, Daten aus 6 Spalten aus Tabelle"AlleDaten" über Combobox1 für Spalte A, combobox2 für Spalte B, Combobox3 für Spalte C ein das klappt gut. Dann clicke ich Zeile Listbox an und Daten werden in Textboxen 1-6 übertragen. Dort bearbeitet und über Button "Speichern" wieder in Tabelle "AlleDaten" zurückgeschrieben. Bis hierhin funktioniert alles! ;-))
Jetz würde ich gerne, wenn in Textbox2 der Wert "EP.*" oder"HU *" steht ( * = verschiedene Bezeichnungen, die hinter EP. oder HU stehen)
das Speichern verhindern und stattdessen Msgbox "Daten dürfen nur in Tabelle EP. geändert werden ! " für HU entsprechend. - Oder die Tabelle EP oder HU sollen geöffnet werden bei Button2click"Speichern" um dort die Eintragungen machen zu können.
LG
Ingo
Private Sub CommandButton2_Click() ' schreibt zurück in Tabelle
Dim Zeile As Long
Zeile = ListBox1.List(ListBox1.ListIndex, 6)
With Worksheets("AlleDaten")
.Cells(Zeile, 1).Value = TextBox1.Value
.Cells(Zeile, 2).Value = TextBox2.Value
.Cells(Zeile, 3).Value = TextBox3.Value
.Cells(Zeile, 4).Value = CCur(TextBox4) 'CCur wandelt Text in Zahl um!!! TextBox4.Value
'.Cells(Zeile, 5).Value = TextBox5.Value
.Cells(Zeile, 6).Value = TextBox6.Value
End With
End Sub
Anzeige