Datum

Titel

27.04.2024 16:48:06

Formel gibt Falsch aus und ich weiß nicht warum - VBA

27.04.2024 14:45:54

Verknüpfung Tabelleneinträge mit Datumsspalte

27.04.2024 12:08:58

Mittelwertwenn - ich kapiere es nicht :-(

26.04.2024 21:51:33

Idee für Grafik

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1932to1936

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

Gesamte Zelle mit Format kopieren

Forumthread: Gesamte Zelle mit Format kopieren
3 Beiträge zu diesem Forumthread
Anzeige
301 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

16.06.2023 09:12:40

Robert

Hallo Leute

Ich habe zwei Excel Dateien, eine Art Datenbank (DB) und eine "Anwendung" (PROT) dazu.
Ich möchte eine bestimmte komplette Zeile MIT Formatierung aus der DB in die erste Zeile des Blattes "TEMP" in der Datei PROT kopieren
Beide Dateien sind zu diesem Zeitpunkt geöffnet und die Datei DB ist aktiviert.

Ich erhalte mit folgender Funktion meine gewünschte Zeile in der Datei (DB):

Set finden = Columns(1).Find(What:=ID, MatchCase:=True, LookAt:=xlWhole)

Jetzt habe ich es so versucht aber das klappt nicht.

Workbooks(DB).Sheets("Sammler").Rows(finden.Row).Copy Destination:=Windows(PROT).Sheets("TEMP").Rows(1)

Hat jemand eine Ansatz für mich?

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Gesamte Zelle mit Format kopieren

16.06.2023 10:08:07

Yal
AW: Gesamte Zelle mit Format kopieren

16.06.2023 10:21:32

GerdL
AW: Gesamte Zelle mit Format kopieren

16.06.2023 12:19:20

Daniel

AW: Gesamte Zelle mit Format kopieren

16.06.2023 10:08:07

Yal

Hallo Robert,

vielleicht könnte/sollte Destination eine einzelne Zelle und das Ziel ein Workbook- anstatt Window-Objekt sein:

finden.EntireRow.Copy Destination:=Workbooks(PROT).Sheets("TEMP").Cells(1, 1)

VG
Yal

AW: Gesamte Zelle mit Format kopieren

16.06.2023 10:21:32

GerdL

Moin,

eine Vorprüfung auf Treffer ist sicher unschädlich.

If Not finden Is Nothing Then .... Copy .......

Gruß Gerd

AW: Gesamte Zelle mit Format kopieren

16.06.2023 12:19:20

Daniel

Hi
du solltest schon sicherstellen, dass du für das Suchen und Kopieren auch die selben Tabellenblätter in der selben Mappe verwendest.
beim Suchen hast du keines angegeben, also wird im aktiven Blatt gesucht. Beim Kopieren hast du dann Workbook und Datei angegeben und das kann unterschiedlich sein.

ich würde es dann so machen, um mal die bisherigen Vorschläge zusammen zufassen, dh zunächstmal bei der Suche das konkrete Workbook und -sheet angeben, dann die Abfrage, ob die Suche erfolgreich war und dann sicherstellen, dass auch genau die Zeile, auf dem Blatt in dem gesucht wurde, kopiert wird.

Set finden = Workbooks(DB).Sheets("Sammler").Columns(1).Find(What:=ID, MatchCase:=True, LookAt:=xlWhole)
if finden is nothing then
    msgbox "ID " & ID & " nicht vorhanden"
else
    finden.EntireRow.Copy Destination:=Windows(PROT).Sheets("TEMP").Cells(1, 1)
end if

Gruß Daniel