- Suche den Wert Zelle A1 auf Tabellenblatt A in der Spalte B Tabellenblatt B
- Kopiere den Wert der Zelle A 15 Tabellenblatt A in die Spalte G auf Tabellenblatt B
in die Gleiche Zeile wie dem gefunden Wert entspricht.
Danke
Homit
Private Sub finde_sb()
Dim ze As Long
On Error GoTo fb
ze = Sheets("Tabelle2").Range("B:B").Find(what:=Me.Range("A1")).Row
Sheets("Tabelle2").Cells(ze, 7) = Sheets("Tabelle1").Range("A15")
Exit Sub
fb:
MsgBox "Kein Treffer!", vbOKOnly, "Fehler"
End Sub
Gruß
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen