Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1524to1528
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
1524to1528
1524to1528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Bereiche in anderes Tabellenblatt kopieren

VBA - Bereiche in anderes Tabellenblatt kopieren
19.11.2016 23:18:39
Fred
Hallo VBA Experten,
ich bin mit vba noch nicht soweit, so das ich z.B. mehrere benannte Bereiche in ein anderes Tabellenblatt kopiere, mit der Bedingung, das die Bereiche nebeneinander eingefügt werden, beginnend ab der 2. Zeile.
Also, mal gelistet:
Ich bin in Tabelle „Center“
Es sollen 3 Bereiche in Tabelle „Listen2“ kopiert werden. Jeder Bereich ist so definiert, dass in einer Zeile nebeneinander 3 Zellen sind.
Die 3 Bereichsnamen; „Prediction1“, „Prediction2“ und „Prediction3“
Die Bereiche sollen beim ersten Aufruf des VBA nebeneinander beginnend ab A2 in Tabelle „Listen3“ eingefügt werden.
Rufe ich das VBA erneut auf, sollen die 3 Bereiche in die nächst leere Zeile nebeneinander eingefügt werden.
Ich weis nicht, ob dies so verständlich war,- ich habe ein einfach gehaltenes Arbeitsblatt mit hochgeladen.
https://www.herber.de/bbs/user/109568.xlsm
Kann mir bitte jemand den VBA-Code schreiben.
mfg
Fred

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Bereiche in anderes Tabellenblatt kopieren
19.11.2016 23:59:37
Fred
... mist!
Ich muß mich ergänzen.
Es sind nicht 3 Bereiche sondern vier!
Bereich: "Kuerzel" -- 1 Zelle
Bereich: "Prediction1" -- 3 Zellen
Bereich: "Prediction2" -- 3 Zellen
Bereich: "Prediction3" -- 3 Zellen
ich hab nochmal ein aktuelles Blatt hochgeladen.
https://www.herber.de/bbs/user/109569.xlsm
Gruß
Fred
AW: VBA - Bereiche in anderes Tabellenblatt kopieren
20.11.2016 00:12:27
Werner
Hallo Fred,
meinst du so? Zumindest habe ich das so verstanden. Deine Datei konnte ich leider nicht herunterladen, ist bei mir hier derzeit nicht möglich.
Dim loLetzte As Long
loLetzte = Sheets("Listen2").Cells(Rows.Count, 1).End(xlUp).Row
If loLetzte
Gruß Werner
Anzeige
AW: VBA - Bereiche in anderes Tabellenblatt kopieren
20.11.2016 00:45:35
Fred
Hallo Werner,
es klappt teilweise. Ich habe den Code geändert, so dass in "Listen3" eingefügt wird. Allerdings wird, sollte die zweite Zeile leer sein "Kuerzel" eingetragen, aber die weiteren Bereiche werden eine Zeile drunter eingefügt. 

Sub Schaltfläche1_Klicken()
Dim loLetzte As Long
loLetzte = Sheets("Listen2").Cells(Rows.Count, 1).End(xlUp).Row
If loLetzte
wie bekomme ich alles stimmig in eine Zeile?
Gruß
Fred
AW: VBA - Bereiche in anderes Tabellenblatt kopieren
20.11.2016 00:50:44
Fred
Werner, wenn ich so ändere 

Sub Schaltfläche1_Klicken()
Dim loLetzte As Long
loLetzte = Sheets("Listen2").Cells(Rows.Count, 1).End(xlUp).Row
If loLetzte
wird es stimmig in eine Zeile eingetragen, allerdings beim zweitenmal überschrieben.
Anzeige
AW: VBA - Bereiche in anderes Tabellenblatt kopieren
20.11.2016 00:58:16
Werner
Hallo Fred,
das soll doch dann wohl jeweils nur in Listen3 eingefügt werden? Dann musst du auch alles auf Listen3 ändern, vor allem muss auch die letzte belegte Zeile in Liste3 und nicht in Liste2 ermittelt werden.
Sub Schaltfläche1_Klicken()
Dim loLetzte As Long
loLetzte = Sheets("Listen3").Cells(Rows.Count, 1).End(xlUp).Row
If loLetzte
Gruß Werner
Perfekt ! - Werner
20.11.2016 01:05:41
Fred
.. Klasse!
ich habe eben mit dem "loLetzte + ..." experementiert und es funzte auch. Warst schnelle Werner und bei mir war`s Glücksspiel :-)
Danke für deine kompetente Unterstützung und ein schönes Wochenende!
Anzeige
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
20.11.2016 01:10:11
Werner
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
20.11.2016 01:16:32
Fred
jo,-
vielleicht noch ein Nachschlag, Werner
So wie es ist, ist es gut!
Wie ändere ich, wenn nur die Werte übertragen werden sollen?
Gruß
Fred
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
20.11.2016 01:27:21
Werner
Hallo Fred,
Sub Schaltfläche1_Klicken()
Dim loLetzte As Long
loLetzte = Sheets("Listen3").Cells(Rows.Count, 1).End(xlUp).Row
If loLetzte
Gruß Werner
Werner, schönen Sonntag!
20.11.2016 01:30:02
Fred
Prima, Werner,
dann habe ich nun einen weiteren "Referenz-Code", den (abgewandelt) ich auf weitere Aktionen nutzen kann.
Ich mach nun Ende,- schönen Sonntag, Werner
Thread beendet
mit freundlichen Gruß
Fred
Anzeige
AW: Werner, schönen Sonntag!
20.11.2016 01:32:03
Werner
Hallo Fred,
danke, dir auch. Ich hab noch ein bischen -Nachtdienst-
Gruß Werner
AW: VBA - Bereiche in anderes Tabellenblatt kopieren
20.11.2016 15:22:06
Fred
Hallo VBA Experten,
ich habe von Werner ein Script bekommen, welches mir innerhalb einer Arbeitsmappe, benannte Bereiche von Blatt Listen2" nach "Listen3" kopiert.
Das einfügen der Daten beginnt in der 2. Zeile / 1. Spalte
Gibt es in der 2. Zeile bereits Einträge (Prüfung findet in der 1. Spalte statt), werden die Daten eine Zeile weiter unten eingetragen,- usw.
Hier der Code: 

Dim loLetzte As Long
loLetzte = Sheets("Listen3").Cells(Rows.Count, 1).End(xlUp).Row
If loLetzte
Meine Anfrage:
Würde mir jemand den Code so umschreiben, dass (nach gleichen Prinzip wie von Werner`s Script) die Daten in ein anderes Arbeitsblatt (Name: "Analyse2") im gleichen Ordner eingefügt werden?
Ich habe ein einfach gehaltenes Arbeitsblatt beigefügt
https://www.herber.de/bbs/user/109575.xlsm
mfG
Fred
Anzeige

376 Forumthreads zu ähnlichen Themen

Zellinhalt aus anderer Tabelle übernehmen
Marc

Hallo zusammen,
habe ein Problem mit dem ich einfach nicht weiterkomme (wahrscheinlich für Euch kein Problem...!)
Ich möchte aus einer Tabelle Zellinhalte in eine andere Tabelle im gleichen Arbeitsblatt übernehmen, d.h. aus Tabelle 2 soll der Zellinhalt aus D61 in Tabelle 1 in H60 über...
21.08.2008 22:08:00
Thread-ID: 1003658
3 Beiträge
Anzeige
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Anzeige
Cursor auf anderes Blatt springen lassen
KlausF

Schönen Freitag-Morgen Leute!
In einer Datei kontrolliere ich in Tabelle 20 errechnete Werte. Entsprechen diese nicht meinen Vorstellungen, so muß ich in Tabelle 1 in der korrespondierenden Zelle (d.h. die mit der gleichen Adresse wie die aktuelle Zelle in Tab.20) Korrekturwerte eingeben.
26.09.2008 08:02:06
Thread-ID: 1012475
3 Beiträge
Übertrag auf anderes Blatt
Sankt

Hallo ,
erstmal vielen Dank für Eue Hilfen.
Ich würde gerne bei folgendem Blatt von der jeweiligen unteren Zelle einen Übertrag auf die Obere Zelle machen. Wie es normal geht weiß ich.
Meine Frage ist nun kann ich den Wert übernehmen wenn ich das Blatt kopiere.
https://www.herb...
02.10.2008 14:42:14
Thread-ID: 1013889
3 Beiträge
Übertrag auf anderes Blatt
Sankt

Hallo,
ich habe diese Frage schon einmal gestellt aber leider komme ich mit der Antwort nicht zurecht.

Ich möchte gerne aus ein Zelle November M47 den Wert in Dezember D9 übernehmen.
Normal würde es funktionieren mit ='November 2008'!M47. Man könnte nun ganz einfach die Stunden...
06.10.2008 11:50:21
Thread-ID: 1014393
7 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Übertrag auf anderes Blatt
Sankt

Hallo
ich habe da ein kleines Problem.
Ich benutze folgende Formel
=INDIREKT(""&WAHL(MONAT(A1)-1;"Januar";"Februar";"März";"April";"Mai";"Juni";"Juli";"August"; "September";"Oktober";"November";"Dezember")&"!D9")
die funktioniert auch so weit ganz gut.
Nun habe ich...
03.11.2008 16:50:00
Thread-ID: 1021376
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
7
2
2
1
2
2
6
1
6
2
6
19
2
4
1
8
4
1
1
4
4
3
8
5