Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1636to1640
1636to1640
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopieren in anderes Blatt per VBA

Forumthread: Kopieren in anderes Blatt per VBA

Kopieren in anderes Blatt per VBA
26.07.2018 13:13:38
Christoph
Hallo zusammen,
ich möchte Daten transponiert in ein anderes Tabellenblatt per VBA kopieren. Formal sieht meine "Ausgangstabelle" wiefolgt aus:
Spalte 1 Spalte 2
Name 1 Wert 1
Name 1 Wert 2
Name 1 Wert 3
Name 2 Wert 4
Name 2 Wert 5
Name 2 Wert 6
Name 2 Wert 7
usw.
Hierbei ergibt sich die Anzahl der untereinander stehenden, gleichen Namen aus der Anzahl der Werte. Die Anzahl ist beliebig groß. Ziel ist es in einem anderen Tabellenblatt nun in Spalte 1 die Namen zu erhalten und daneben reinkopiert (transponiert) die dazugehörigen Werte.
Ich hoffe es kann mir jemand weiterhelfen.
Vielen Dank vorab.
Mit freundlichen Grüßen
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Kopieren in anderes Blatt per VBA
26.07.2018 13:20:23
Bernd
Hallo Christoph,
dein Vorhaben kannst du sehr gut mit dem Makrorekorder aufzeichnen.
Zur Feinabstimmung den Code dann hier einstellen.
Sonnige Grüße aus Bremen
Bernd
AW: Kopieren in anderes Blatt per VBA
26.07.2018 13:37:11
Christoph
Okay, hier der aufgezeichnete Programmcode:
" 
Sub Daten_kopieren()
' Daten_kopieren Makro
' Tastenkombination: Strg+q
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Range("A2").Select
ActiveSheet.Paste
Sheets("Ausgang").Select
Range("G2:G7").Select
Range("G7").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Ausgang").Select
Range("B8").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Range("A3").Select
ActiveSheet.Paste
Sheets("Ausgang").Select
Range("G8:G16").Select
Range("G16").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Sheets("Ausgang").Select
Range("B17").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("Ausgang").Select
Range("G17:G22").Select
Range("G22").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("C14").Select
End Sub

"
In Spalte B stehen wie gesagt die Namen und die Werte in Spalte G. Ich habe das Makro nun aufgezeichnet, indem ich es an drei Beispielen selbst kopiert habe. Das Makro müsste halt erkenn, wenn der nächste Name beginnt und die zugehörigen Werte aus Spalte G automatisch eintragen.
Gruß
Christoph
Anzeige
AW: Kopieren in anderes Blatt per VBA
26.07.2018 15:04:17
Bernd
Hallo Christoph,
funktioniert das Makro denn?
Wenn, nein wo kakt es?
Gruß Bernd
AW: Kopieren in anderes Blatt per VBA
27.07.2018 10:03:08
Christoph
Hallo Bernd,
das Makro funktioniert nicht so wie es soll. Es müsste die Namen zusammenfassen und die Werte transponiert daneben ausgeben. Mein VBA-Code ist ja lediglich entstanden, weil ich es aufgenommen habe und quasi "händisch" die richtigen Sachen kopiert habe. Dieses Vorgehen müsste für die komplette Ausgangstabelle automatisiert ablaufen.
Gruß
Christoph
Anzeige
;

Forumthreads zu verwandten Themen

Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
Anzeige
In Zwischenablage kopieren
Claudia

Hallo liebe VBA-Profis,
ich habe eine sehr einfache Bitte. Ich möchte die Daten aus den ersten drei Spalten (ab Zeile 2 einschließlich der letzten befüllten Zelle in Spalte A) mittelsn Makro in die Zwischenablage kopieren. Mehr nicht. :-)
Ich könnte das natürlich mit der Hand machen, d...
15.12.2008 18:19:49
Thread-ID: 1033106
4 Beiträge
Kopieren von Werten in TExtBox
Werten

Hallo,
ich möchte gerne einen Wert von Tabelle2 in eine TextBox in Tabelle1 übergeben, habe aber irgendwie den falschen Code:
Worksheets("Tabelle2").Cells(42, 11).Copy
Worksheets("Tabelle1").TextBox1.Value.PasteSpecial Paste:=xlPasteValues
Ausserdem würde ich gerne die TextBox...
17.01.2009 00:55:00
Thread-ID: 1040842
11 Beiträge
VBA Code mit VBA in Tabelle kopieren - Fehler?!
Andreas

Hallo Herber Fans,
ich habe mir heute aus der Recherche eine Möglichkeit rausgesucht, einen Code über VBA in ein anderes VBA Worksheet zu kopieren. Das dies in VBA überhaupt geht ist ja schon genial. Es soll ein Code in das VBA Worksheet des activeworkbooks kopiert werden.
Der Code dafü...
11.02.2009 15:56:00
Thread-ID: 1049657
3 Beiträge
Anzeige
suchen kopieren einfügen vba
Bea

Hallo zusammen
Ich hab folgendes Problem.
in der angehängten Beispielmappe möchte ich, das die in Arbeitsblatt "Nummern" hinterlegten Anfänge von Telefonnummern in Arbeitsblatt "evnachweis" gesucht die jeweiligen Zeilen kopiert und dann in Arbeitsblatt in dem Fall "Februar" (am besten...
10.03.2009 11:55:49
Thread-ID: 1058557
9 Beiträge
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
Mit VBA Zeilen in neue Register kopieren
Andreas

Ein Tabellenblatt soll nach einem bestimmten Kriterium durchsucht werden. Immer wenn das Suchkriterium gefunden wird, soll die Zeile kopiert und in ein neues Tabellenblatt eingefügt werden. Dies soll solange geschehen bis alle Zeilen durchsucht worden sind.
Im Detail soll dies wie folgt fun...
08.06.2009 12:29:49
Thread-ID: 1079883
3 Beiträge
Gesperrte Zellen in Zwischenablage kopieren
Elias

Hallo Forum,
ich habe eine Tabelle, in welcher ein Datenbereich von B5:B20 per Button in die Zwischenablage kopiert werden soll.
Der Kram mit dem Button ist alles kein Problem, aber die Crux ist:
-Die Zellen sind gesperrt.
-Das PW darf nicht im VBA-Code hinterlegt werden, da das...
13.06.2009 23:26:05
Thread-ID: 1081337
6 Beiträge
Anzeige
Text finden und kopieren
Bodo_Bachmann69

Hallo,
ich habe folgendes Problem:
Ich habe in Spalte A einen Text stehen und möchte in Spalte B einen Teil davon kopieren (per Formel).
Soweit bin ich derzeit (ALLE ANGABEN OHNE " AM ANFANG UND AM ENDE):
Zu kopierender Teil (aus Spalte A):
"R7878A"
____________________...
16.11.2009 22:44:42
Thread-ID: 1117790
8 Beiträge
VBA-Projekt innerhalb Datei kopieren
Gregor

Hallo Excel-Profis
Folgendes Problem, dass ich trotz intensiver Recherche nicht gelöst bekomme:
Möchte das VBA-Projekt der Arbeitsmappe("2") mit dem VBA-Projekt der Arbeitsmappe("1") überschreiben.
(beide Blätter sind in einer Datei).
Kann mir jemand helfen?
Vielen Dank!
...
03.12.2009 13:09:19
Thread-ID: 1121578
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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