Datum

Titel

18.04.2024 21:09:11

4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren

18.04.2024 20:45:35

Worksheet_Activate für alle Sheets

18.04.2024 19:30:20

VBA - Tabelle mit Mannschaftsergebnissen sortieren

18.04.2024 18:04:29

Formel fehler Wert#

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

688to692

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

suchen und ersetzen

Forumthread: suchen und ersetzen
4 Beiträge zu diesem Forumthread
Anzeige
315 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

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

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: suchen und ersetzen

31.10.2005 23:32:25

Matthias
AW: suchen und ersetzen

31.10.2005 23:52:41

joel01
AW: suchen und ersetzen

31.10.2005 23:57:56

Matthias
AW: suchen und ersetzen

01.11.2005 00:03:50

joel01

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

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

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