VBS mit Excel

[lup0]

Habe in excel eine Daten tabelle die ich mit einer fb form ansteuern will um darin zu suchen dies habe ich so umgesetzt


Sub SuchenDialogAnzeigen()
'Set frm2 = lesedaten
With lesedaten
.TextBox3.SetFocus
.TextBox1.Enabled = False
.TextBox2.Enabled = False
.TextBox4.Enabled = False
.TextBox5.Enabled = False
.TextBox6.Enabled = False
.Show
End With
End Sub
Private Sub CommandButton3_Click()
'Set frm2 = lesedaten
With lesedaten
Sheets("daten").Select ' Welches Blatt soll durchsucht werden
Range("a:a").Select ' Welche Position soll auf dem Blatt durchsucht werden
On Error GoTo Fehler
Selection.Find(What:=.TextBox1.Value, _
After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
lesedaten.TextBox2.Value = ActiveCell.Offset(0, 1).Value ' Hier die Positionen aus tabelle die eingefügt werden
lesedaten.TextBox3.Value = ActiveCell.Offset(0, 2).Value
lesedaten.TextBox4.Value = ActiveCell.Offset(0, 3).Value
lesedaten.TextBox5.Value = ActiveCell.Offset(0, 4).Value
lesedaten.TextBox6.Value = ActiveCell.Offset(0, 5).Value
lesedaten.TextBox7.Value = ActiveCell.Offset(0, 6).Value
lesedaten.TextBox8.Value = ActiveCell.Offset(0, 7).Value
lesedaten.TextBox9.Value = ActiveCell.Offset(0, 8).Value
lesedaten.TextBox10.Value = ActiveCell.Offset(0, 9).Value
lesedaten.TextBox11.Value = ActiveCell.Offset(0, 10).Value
lesedaten.TextBox12.Value = ActiveCell.Offset(0, 11).Value
lesedaten.TextBox13.Value = ActiveCell.Offset(0, 12).Value
lesedaten.TextBox14.Value = ActiveCell.Offset(0, 13).Value
lesedaten.TextBox15.Value = ActiveCell.Offset(0, 14).Value
lesedaten.TextBox16.Value = ActiveCell.Offset(0, 15).Value
lesedaten.TextBox17.Value = ActiveCell.Offset(0, 16).Value
lesedaten.TextBox18.Value = ActiveCell.Offset(0, 17).Value
lesedaten.TextBox19.Value = ActiveCell.Offset(0, 18).Value
lesedaten.TextBox20.Value = ActiveCell.Offset(0, 19).Value

If ActiveCell.Offset(0, 3).Value = "JA" _
Then CommandButton3.Value = True
'Else .OptionButton3.Value = False Range("A1").Select
Exit Sub
Fehler:
MsgBox "Ein Rechnungssatz mit der Nummer : " & _
.TextBox3.Value & " konnte nicht gefunden werden!"
End With
End Sub

'Taste Abbrechen
Private Sub CommandButton4_Click()
lesedaten.Hide
End Sub

'Bei Klick im Suchfeld Hintergrundfärben
Private Sub TextBox1_Enter()
HintergrundFärben
End Sub
Private Sub TextBox1_Exit _
(ByVal Cancel As MSForms.ReturnBoolean)
HintergrundZurücksetzen
End Sub
'Bei Klick im Suchfeld Hintergrundfärben
Private Sub TextBox2_Enter()
HintergrundFärben
End Sub
Private Sub TextBox2_Exit _
(ByVal Cancel As MSForms.ReturnBoolean)
HintergrundZurücksetzen
End Sub



Private Sub HintergrundFärben()
Me.ActiveControl.BackColor = RGB(255, 0, 0)
End Sub
Private Sub HintergrundZurücksetzen()
Me.ActiveControl.BackColor = RGB(255, 255, 255)
End Sub
'Bei Taste ok wieder zurück und such ergebnis anzeigen


Private Sub UserForm_Click()
End Sub



Wie aber kann ich nun den aufgerufen daten satz ändern und wieder zurückschreiben?

 

[wollhelm]

Servus,

damit du den satz wieder zurückschreiben kannst würde ich eine versteckte textbox auf dem form einfügen in der du die zeilennummer über activecell.row wegschreibst.
Somit weiß man an welcher stelle in der tabelle geändert worden ist und wohin man das wieder schreiben will.

Um den Satz zu ändern solltest du textbox.enabled wieder auf true setzen.

leider nur ne knappe antwort hoffe das es trotzdem hilft