Sub programmedit()
Dim intSpalte As Integer
Dim ctrTB As Control
Dim rngSucheTeil As Range
If uf_programm.tx_ocno.Value <> "" Then
With Tabelle2
Set rngSucheTeil = .Columns("A:Q").Find(uf_programm.tx_ocno, LookAt:=xlWhole, LookIn:=xlValues)
If Not rngSucheTeil Is Nothing Then
For Each ctrTB In uf_programm.Controls
If ctrTB.Tag <> "" Then
.Cells(rngSucheTeil.Row, Int(ctrTB.Tag)).Value = ctrTB
End If
Next ctrTB
Run "MachMal"
Else
MsgBox "Die Daten von """ & uf_programm.tx_ocno & """ wurden nicht gefunden!", 48, _
" Hinweis für " & Application.UserName
uf_programm.tx_ocno.SetFocus
End If
End With
Set rngSucheTeil = Nothing
End If
End Sub