VBA Zeile mit Wert suchen und ändern

Hallo zusammen
Könnt Ihr mir helfen?
Ich habe eine UserForm, welche Daten aus dem Tabellenblatt anzeigt und dann auch geändert werden können. Alle festen Zellen sind kein Problem. Nun sollte ich aber einen Code haben, damit eine Zeile mit bestimmten Wert gesucht wird. Dann in einer TextBox angezeigt wird, bearbeitet werden kann und dann den Inhalt anpasst.
folgender Code funktioniert bestens für Zellen welche immer an der gleichen stellen bleiben:
--------------------------------------------------------------------------------------------------------------------------
Code für Anzeige:


Private Sub UserForm_Initialize()
TextBox1.Text = Worksheets("Offerte").Range("B10").Value
End Sub

-----------------------------------------------------------
Code um die angepassten Daten in der Zelle zu schreiben:


Private Sub CommandButton1_Click()
ActiveSheet.Unprotect Password:="1234"
Range("B10:B14").Locked = True
Worksheets("Offerte").Range("B10") = UserForm3.TextBox1.Value
ActiveSheet.Protect Password:="1234"
End Sub

------------------------------------------------------------
Zur gesuchten Zeile:
in der Spalte A steht die Zahl 1000 (so sollte die Zeile gesucht werden) dann soll der Inhalt der Zelle B (dieser Zeile) in der TextBox angezeigt werden und angepasst werden können.
So Hoffe diese Angaben reichen Euch :-)
Bin um jede Hilfe sehr dankbar!
Lg Ralf

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() dim Suchbegriff as string dim Zelle as range ActiveSheet.Unprotect Password:="1234" Range("B10:B14").Locked = True Suchbegriff = application.inputbox("Welchen Inhalt möchtest du ändern?") set zelle = ActiveSheet.cells.find(Suchbegriff,xlwhole) Worksheets("Offerte").Range("B10") = UserForm3.TextBox1.Value ActiveSheet.Protect Password:="1234" End Sub

Private Sub CommandButton1_Click() dim Suchbegriff as string dim Zelle as range ActiveSheet.Unprotect Password:="1234" Range("B10:B14").Locked = True Suchbegriff = application.inputbox("Welchen Inhalt möchtest du ändern?") set zelle = ActiveSheet.cells.find(Suchbegriff,xlwhole) zelle.value = UserForm3.TextBox1.Value ActiveSheet.Protect Password:="1234" End Sub

Private Sub button_text_ende_suche_Click() Dim i%, found As Boolean found = False For i = 1 To Anz If TextBox20.Value = Data(i, 1) Then Zeile = i + 1 TextBox21.Value = Data(i, 2) found = True Exit For End If Next i If found Then TextBox21.Enabled = True Range(Cells(Zeile, 1), Cells(Zeile, 2)).Select Else End If End Sub

Private Sub button_text_ende_speichern_Click() ActiveSheet.Unprotect Password:="1234" Cells(Zeile, 1) = TextBox20.Value Cells(Zeile, 2) = TextBox21.Value ActiveSheet.Protect Password:="1234" End Sub

Beliebteste Forumthreads (12 Monate)

VBA Zeile mit Wert suchen und ändern

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Zeile mit Wert suchen und ändern

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

313 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread