Werte aus Zellen in Textboxen
03.08.2005 20:13:15
Tobi
Mit folgendem Code Suche ich in einer Tabelle nach einem Wert in Spalte A:
Wie bekomme ich es hin das mir dann die danebenliegenden Werte aus B, C und D der gleichen Zeile in Textboxen einer UserForm angezeigt werden in den ich die Werte ändern kann und wieder mit Button2 in die Zellen übertrage.
Danke für Eure Hilfe!
Private Sub CommandButton1_Click()
Dim GZelle As Range
Dim FStelle$
Dim SBegriff
SBegriff = InputBox("Welche Pos. möchten Sie löschen?")
Set GZelle = Worksheets("Tabelle3").Columns(1).Find(SBegriff)
If Not GZelle Is Nothing Then
FStelle = GZelle.Address
Do
GZelle.Activate
If MsgBox("Weiter", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Set GZelle = Cells.Columns(1).FindNext(After:=ActiveCell)
If GZelle.Address = FStelle Then Exit Do
Loop
End If
End Sub
Anzeige