Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Markierte Zeile suchen und ersetzen

Markierte Zeile suchen und ersetzen
08.02.2006 09:37:43
Andre
Hallo zusammen,
erstmal vielen Dank für die vielen hilfen die ich auch ohne
nachzufragen hier bereits erhalten habe!
Denke mal mein Problem ist nicht schwer aber mir fehlt noch der dazu nötige
Background.
Habe ein Formular mit mehreren Textfelder entworfen.
Die eingegeben Werte werden in das Tabellenblatt "Daten" in die erste
freie Zeile geschrieben.
Über eine Suchfunktion werden die Daten wieder in die Textfelder
zurückgeschrieben. Soweit funktioniert es ohne größere Probleme.
Jetzt möchte ich aber die gefundene Zeile mit den geänderten Werten
überschreiben.
Habe dazu einen Button "ändern" auf das Formular gesetzt und auch
schon 2 Tage daran gesessen. Komme aber zu keiner Lösung.
Kann mir da evtl. jemand auf die Sprünge helfen?
Habe hier nichts wirklich passendes gefunden, oder übersehen.
Vielen Dank!
Grüße
Andre

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Markierte Zeile suchen und ersetzen
08.02.2006 10:51:50
Andre
Habe es nun wohl doch geschaft. :)
Ist diese Lösung OK, oder macht man es normalerweise anders?
For iZeile = 1 To Range("B65536").End(xlUp).Row
If Cells(iZeile, 2) = Suche.Text Then
Worksheets("Daten").Cells(iZeile, 2) = Nummer.Text
End If
Next
Poste hauptsächlich, damit sich hier niemand unnötig mit meinem Problem beschäftigt.
Grüße
Andre
AW: Markierte Zeile suchen und ersetzen
08.02.2006 11:31:41
Andre
Habe es nun wohl doch geschaft. :)
Ist diese Lösung OK, oder macht man es normalerweise anders?
For iZeile = 1 To Range("B65536").End(xlUp).Row
If Cells(iZeile, 2) = Suche.Text Then
Worksheets("Daten").Cells(iZeile, 2) = Nummer.Text
End If
Next
Poste hauptsächlich, damit sich hier niemand unnötig mit meinem Problem beschäftigt.
Grüße
Andre
Anzeige

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige