Anzeige
Archiv - Navigation
816to820
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
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

suchen und wert übertragen

suchen und wert übertragen
08.11.2006 15:26:47
achim
hallo excel freunde
wer kann mal schauen?
funzt nicht ganz so......
wert von textbox1 in sheet grunddaten A:A suchen
wenn gefunden dann (select und/oder activecell?)
von dort aus den wert von textbox2 in tabelle übertragen.

Private Sub CommandButton2_Click()
Dim Lrow As Long, i As Long
Lrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = Lrow To 1 Step -1
If Cells(i, 1) = CStr(TextBox1) Then _
TextBox2.Value = ActiveCell.Offset(0, 3).Value
Next i
End If
End Sub

gruß
achim h.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: suchen und wert übertragen
08.11.2006 15:42:41
Bertram
Hi Achim,
so sollte es gehen:

Private Sub CommandButton2_Click()
Dim Lrow As Long, i As Long
Lrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = Lrow To 1 Step -1
If Cells(i, 1) = CStr(TextBox1) Then _
Cells(i, 1).Offset(0, 3).Value = TextBox2.Value
Next i
End Sub

Übrigens:
Das End if Ist durch den Unterstrich nach THEN unnötig, und wenn dann kommt es VOR dem Next i.
Gruß
Bertam
AW:mT danke
09.11.2006 07:44:23
achim
Hallo bertram
vielen dank für die rückmeldung und hilfe.
gruss achim h.
Gerne oT
09.11.2006 08:18:42
Bertram
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige