Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 16:33:24
Worksheets variable
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
18.04.2024 15:16:20
VBA Suchen, Kopieren, Einfügen
18.04.2024 15:16:07
Verschieben von Daten um bestimmte Zeilen nach unten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1280to1284
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1280to1284
1280to1284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellbereich kopieren

Zellbereich kopieren
11.10.2012 18:23:22
Horst
Hallo Excelfreunde
nochmals meine Anfrage Zellbereich kopieren per Makro
leider hatte die Version von Tino (AW 09.10.12) nicht funktioniert
Mein Problem
Ich möchte eine Dateivorlage erstellen die möglichst klein (MB) ist.
Ich habe zwei Datenbereiche die über eine einheitliche Nr. verglichen werden. Beide Datenbereiche haben unterschiedliche Zellinhalte die sich auf 2 Tabellenblättern befinden.
Diese Daten sollen in einer Tabelle zusammengeführt werden
Mit Hilfe einer Formel habe ich eine Zuordnung hinbekommen. Leider wird mit dem Kopieren der Formeln bei mehreren Tausend Datensätzen (Zeilen) die Vorlage sehr groß)
Mit Hilfe eins Makros möchte ich gern, dass der einzufügende(Formelbereich) dann automatisch in die Zellen geschrieben wird.
Ich hoffe, ich habe mein Problem verständlich beschrieben.
Diesmal mit einer Excelbeispieldatei
https://www.herber.de/bbs/user/82084.xls
Vielen Dank
für jede Hilfe

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellbereich kopieren
11.10.2012 18:42:55
Tino
Hallo,
wenn Du den Code in die entsprechende Tabelle als Code hinterlegst und
den Zellebereich im Code entsprechend anpasst,
werden in diesem Bereich alle Formeln durch Werte ersetzt, aber erst wenn sie dort eingetragen werden.
Sonst habe ich dazu keine Idee, daher lass ich offen für andere.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngFormelBreich As Range
'Zellbereich anpassen wo die Formeln reingeschrieben werden
Set rngFormelBreich = Intersect(Range("B:B"), Target)
If Not rngFormelBreich Is Nothing Then
With Application
.ScreenUpdating = False
.EnableEvents = False
rngFormelBreich.Value = rngFormelBreich.Value
.EnableEvents = True
.ScreenUpdating = True
End With
End If
End Sub
Gruß Tino

Anzeige
AW: Zellbereich kopieren
11.10.2012 19:37:44
Horst
Hallo Tino
danke nochmals für deine Antwort abe es läuft nicht. Hattest du die Möglichkeit die jetzt hochgeladene Datei anzuschauen.
Falls ja
Es sollen die Daten vom Blatt Transfer Daten auf das Blatt Disco Daten verglichen und anschließend übertragen werden. Wie gesagt mit meiner Formel funktioniert es
Gruß
Horst

AW: Zellbereich kopieren
11.10.2012 20:16:27
Tino
Hallo,
ich dachte die Formel drägst Du von Hand oder mit einem Code ein.
Hier mal wie ich es verstanden habe, mit einer kleinen abwandlung deiner Formel.
(mit dieser wird immer nur der erste gefundene Datensatz zu dieser Nr genommen)
https://www.herber.de/bbs/user/82085.xls
Gruß Tino
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige