Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
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
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hilfe Copy and Paste via VBA

Forumthread: Hilfe Copy and Paste via VBA

Hilfe Copy and Paste via VBA
19.07.2003 20:09:28
Chaled
Liebe Kollegen,
ich habe ein kleines Problem. In einer Arbeitsmappe habe ich in einem Sheet mehr als 500 Datensätze. Diese Datensätze möchte ich in einem Datenbank einfügen. Deshalb möchte ich sie erstmals normalisieren
Mein Problem ist folgendes: Ich möchte folgende Struktur via VBA
In der Sheet("Stammdaten") habe ich folgende Struktur
Spalte (A) Spalte(b) Spalte(C) Spalte(D)
Nr System1 System2 System3
1 x x
2 x x
3 x x x
in eine neue sheet mit folgenden Strukur überführen
Spalte (A) Spalte(B)
nr Systemtyp
1 system1
1 system2
2 system2
2 system2
3 system1
3 system2
3 system3
Kann jemanden mir ein kleines Makro, eine kleine Stück VBA-Programm, schreiben oder irgendwie helfen. Ich bedanke mich für Eure Hilfe
Mit freundlichen Grüssen
chaled
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hilfe Copy and Paste via VBA
19.07.2003 20:57:52
PeterW
Hallo Chaled,
mit guten VBA-Kenntnissen sollte dir dieser Ansatz helfen:
Option Explicit

Sub Struktur()
Dim lgZiel As Long
Dim bCol As Byte
Dim lgQuelle As Long
Dim wks As Worksheet
Set wks = Sheets(2)
lgZiel = 2
lgQuelle = 2
Do Until IsEmpty(Cells(lgQuelle, 1))
For bCol = 2 To 4
If Not IsEmpty(Cells(lgQuelle, bCol)) Then
wks.Cells(lgZiel, 1) = Cells(lgQuelle, 1)
wks.Cells(lgZiel, 2) = Cells(1, bCol)
lgZiel = lgZiel + 1
End If
Next
lgQuelle = lgQuelle + 1
Loop
End Sub

Gruß
Peter

Anzeige
Vielen Dank
20.07.2003 12:05:20
chaled
Hallo Peter,
vielen Dank. Es hat funktioniert. Du hast mir dabei sehr viel geholfen. Nochmal vielen Dank
MFG
Chaled

;

Forumthreads zu verwandten Themen

ribbons ausschalten, copy and paste verhindern
manfred

Mit
enable control 21, false 'cut
enable control 19, false 'copy
enable control 22, false 'pste
enabel control 755, flase 'paste special
konnte ich bislang cut, copy und paste in der Menueleiste abschalten
mit
commandbars ("ToolBar List").enabled = false
das...
23.08.2010 10:57:26
Thread-ID: 1173683
2 Beiträge
Anzeige
Tabelle in Word einfügen
Carle

Hallo miteinander,
ich stehe vor der an und für sich einfachen Aufgabe (sollte man jedenfalls meinen) eine Tabelle in ein Word-Dokument einzubinden. Ich gehe wie folgt vor: Tabelle wird in Excel markiert und kopiert, dann wechsele ich in das Word-Dokument und gehe auf Bearbeiten/Inhalte ein...
03.01.2011 12:26:59
Thread-ID: 1193638
4 Beiträge
Anzeige
Copy and Paste in Tabelle mit VBA erkennen
Helmut

Hallo,
kann ich über eine Ereignisprozdur erkennen, ob ein User in einer Tabelle manuell einen Bereich von A nach B kopiert oder ausgeschnitten hat.
Mich interessiert dann in VBA der Range der Quelle und der Range des Ziels, sobald das Ereignis eingetreten ist.
Danke im Voraus
H...
21.03.2011 15:17:35
Thread-ID: 1206677
7 Beiträge
Anzeige
copy and paste
ptonka

Hallo zusammen,
ich habe im Rahmen eines größeren Makros u.a. einen einfachen copy and paste - Befehl eines kompletten Blattes (Blattname: "Legende").
Dieses Blatt enthält in einigen Zellen Textpassagen, die mehrfach mit Zeilenumbruch versehen sind, so das z.B. 15 Zeieln enthalten sind....
15.04.2011 16:44:11
Thread-ID: 1210638
8 Beiträge
zahlen aus excel in wordtabelle farbig einfügen
preusbep

hallo ich würde gerne zahlen die ich aus excel lese in eine wordtabelle farbig einfügen. Leider werden die Zahlen nicht farbig sondern bleiben schwarz !
Danke für die Hilfe Sub farbe3() Dim Farbe(1 To 3, 1 To 1) As Single Set Word = CreateObject("word.Application") For i = 1 To 3 Farbe(i, 1...
27.09.2011 15:29:42
Thread-ID: 1231690
4 Beiträge
Markierten Bereich aus Excel in Word einfügen
Peter

Hallo liebes Forum,
ich möchte einen zusammenhängenden markierten Bereich aus Excel per Makro in ein existierendes Worddokument einfügen.
Einzelne Teile habe ich mir per Makrorekorder oder aus Archiv zusammengbastelt:
Selection.Copy
Pfad = ThisWorkbook.Path & "\Dokument1.doc...
18.11.2011 19:43:13
Thread-ID: 1238451
3 Beiträge
Anzeige
Tabelle in word einfügen
Carle

Ahoi!
Ich möchte eine Excel-Tabelle in ein Word-Dok einfügen. Dabei ging ich zuletzt wie folgt vor: Excel-Bereich markieren, kopieren, Wechsel in Word-Dok, Bearbeiten, Inhalte einfügen, Option Verknüpfung einfügen, MS Office Excel-Arbeitsblatt-Objekt, ok. Es erscheint jedoch nur ein grauer...
31.01.2012 14:19:35
Thread-ID: 1248650
2 Beiträge
Excel Tabelle in Word einfügen, Laufzeitfehler 594
Stephan

Hallo zusammen,
ich habe via VBA in Excel eine Tabelle kopiert und versuche, diese mit der VBA-Anweisung in Word:
Selection.PasteExcelTable False, False, False
in ein Worddokument zu integrieren. Allerdings wird gar nix eingefügt. Wollte gern die Formatierungen aus Excel beibehalten...
18.01.2013 10:43:54
Thread-ID: 1294916
3 Beiträge
Excel-Tabelle 2007 in Word 2007 einfügen
Carle

Liebe Sachverständige!
Ich kämpfe mal wieder mit dem im Betreff genannten Problem. Ich habe hier ein Buch zu word 2007, auch das Internet und speziell diese Forum habe ich schon bemüht.
Wenn ich in Word über Einfügen/Objekt/Aus Datei erstellen eine kleine Tabelle aus Excel in mein Word-...
21.01.2013 15:34:47
Thread-ID: 1295233
2 Beiträge
Exceltabellen in Worddokument einfügen
Stefan

Hallo zusammen,
für unser mtl. Reporting muss ich Worddokumente mit Exceltabellen befüllen.
Aktuell funktioniert dies über Verknüpfungen. Diese machen mir allerdings v.a. bei den großen Dokumenten immer wieder Probleme (Öffnen dauert sehr lange, teiweise wird keine VK gefunden und muss...
15.02.2013 08:49:12
Thread-ID: 1299424
5 Beiträge
Zwischenablage in Word einfügen und speichern
Reiner

Hallo Zusammen,
ich erstelle über vba eine variable Tabelle (durch manuelle Abfragen).
Diese Tabelle soll dann automatisch als Bild gespeichert werden.
Dass geht mittels Umschalten+Bearbeiten und dann "Bild kopieren..."
jetzt habe ich eine Zwischenablage.
Kann ich daraus dir...
26.05.2013 17:57:50
Thread-ID: 1314991
10 Beiträge
zeilen: Copy and Paste mit Dialog
Andi

Hallo,
vielleicht kann mir jemand bitte bei folgendem Problem helfen ... Tipps geben:
Ich möchte in einem Berichtsblatt vier zeilen kopieren und der User soll via Dialog entscheiden, wo diese hinkopiert werden sollen.
Das Blatt hat viele aufeinanderfolgende Bereichtszeilen (immer 4...
01.11.2013 12:33:26
Thread-ID: 1336794
9 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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