Suchen und ersetzen
29.11.2019 13:29:21
Thomas
Hallo Leute,
ich versuche mit dem Code, den ich zusammen gebastelt habe, folgendes zu erreichen:
1. in Tabelle 1 Range D2:X2 zu kopieren
2. Zu Tabelle 2 gehen und dort denn Textbox8 Inhalt in Spalte A zu suchen
4. Ist der Inhalt vorhanden dann ersetzen durch kopiertes
5. ist der Wert nicht vorhanden in letzte Zeile einfügen
das alles so funzen wenn ich den Button:"in anderes Tabellenblatt kopieren
Private Sub CommandButton3_Click()
Worksheets("Tabelle1").Range("D2:AB2").Copy
With Worksheets("Tabelle2")
If Cells.Find(what:=TextBox8.Text, After:=ActiveCell, LookIn:=xlValues, lookat:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate Then
ActiveSheet.Paste
Else
Worksheets("Tabelle2").Activate
Sheets("Tabelle2").Range("A1000000").End(xlUp).Offset(1, 0).Select
ActiveCell.Paste
End If
End With
End Sub
Beispiel-Datei folgt.
Leider funktioniert das nicht so wie gewünscht und ich komme auch nicht weiter.
Würde mich über Hilfe freuen.
Danke im Voraus.
Gruß Thomas