Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: suchen und ersetzen

suchen und ersetzen
31.10.2005 23:20:02
joel01
hallo zusammen,
kann mir jemand bei folgendem problem helfen:
es soll ein datensatz (eine zeile aus mehreren spalten) in eine andere tabelle eingefügt werden. allerdings soll erst die 1. spalte abgefragt werden, ob der entsprechende wert bereits in der zieltabelle vorhanden ist.
wenn ja: ersetzen
wenn nein: in die erste freie zeile einfügen.
vielen dank,
gruß
joel
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: suchen und ersetzen
31.10.2005 23:32:25
Matthias
Hallo Joel,
kopiert die Zeile der aktiven Zelle:

Sub Kopieren()
Dim QBlatt As Worksheet, ZBlatt As Worksheet
Dim z As Range
Dim zeile As Long
Set QBlatt = ActiveSheet
Set ZBlatt = Workbooks("Ziel.xls").Sheets("Tabelle1") 'anpassen!
zeile = ActiveCell.Row
Set z = ZBlatt.Range("A:A").Find(what:=QBlatt.Cells(zeile, 1), LookAt:=xlWhole)
If z Is Nothing Then 'nicht gefunden
Set z = ZBlatt.Cells(ZBlatt.Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
ActiveCell.EntireRow.Copy Destination:=ZBlatt.Cells(z.Row, 1)
End Sub

Gruß Matthias
Anzeige
AW: suchen und ersetzen
31.10.2005 23:52:41
joel01
hallo matthias,
kannst du mir diese zeile etwas näher erläutern:
Set z = ZBlatt.Range("A:A").Find(what:=QBlatt.Cells(zeile, 1), LookAt:=xlWhole)
dank dir,
gruß
joel
AW: suchen und ersetzen
31.10.2005 23:57:56
Matthias
Hallo Joel,
zeile wird ja der aktuellen Zeilennummer zugewiesen.
Also ist QBlatt.Cells(zeile, 1) die Zelle in Spalte A in der aktuellen Zeile. Danach soll gesucht werden und das Ergebnis z zugewiesen werden:

Set z = ZBlatt.Range("A:A").Find(what:=QBlatt.Cells(zeile, 1), LookAt:=xlWhole)

ZBlatt.Range("A:A") - darin wird gesucht
what:=QBlatt.Cells(zeile, 1) - dies wird gesucht
LookAt:=xlWhole - es wird der komplette Zellinhalt verglichen
siehe auch in der VBA-Hilfe.
Gruß Matthias
Anzeige
AW: suchen und ersetzen
01.11.2005 00:03:50
joel01
ok, habs verstanden,
vielen dank und noch n schönen abend,
gruß aus ulm
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige