Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1656to1660
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
1656to1660
1656to1660
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nach überschrift suchen und kopieren

Nach überschrift suchen und kopieren
15.11.2018 13:39:22
Christoph
Hallo zäme
Ich suche nach einer Lösung für das Kopieren und Zuordnen von ganzen Spalten.
In dem Tabellenblatt 3 habe ich folgende Überschriften: Salte A=Nr, Spalte B=Du, Spalte C=Ba, Spalte D=Qu usw. Es handelt sich um immer die Selben 10 Überschriften, jedoch sind nicht immer die Selben überschriften in der gleichen Spalte (manchmal ist Ba in Spalte A, manachmal in Spalte C usw.)
Gerne möchte ich nun die Daten welche im Tabellenblatt 3 sind in das Tabellenblatt 2 kopieren und je nach Überschrift in dem Tabellenblatt 3 soll die ganze Spalte in die entsprechnede Spalte in dem Tabellenblatt 2. (Zum Beispiel muss die Überschrift "Nr" immer in die Spalte A im Tabellenblatt 2 eingefügt werden, egal in welcher Spalte die Daten in dem Tabellenblatt 3 waren.
Wie ist dies möglich?
Besten Dank für eure Rückmeldung.
Herzliche Grüsse
Christoph

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nach überschrift suchen und kopieren
15.11.2018 13:40:25
SF
Hola,
suchst du den Wverweis?
https://www.online-excel.de/excel//singsel.php?f=145
Gruß,
steve1da
AW: Nach überschrift suchen und kopieren
15.11.2018 13:42:41
Werner
Hallo Christoph,
Frage:
In welcher Zeile im Blatt 3 sind denn die Überschriften?
Wohin (Zeile) in Blatt 2 soll kopiert werden?
Sind dort schon Daten vorhanden?
Wenn ja, dann die aus Blatt 3 unten anfügen?
Oder die bereits vorhandenen Daten überschreiben?
Am besten mal eine Beispielmappe hier hochladen.
Gruß Werner
AW: Nach überschrift suchen und kopieren
15.11.2018 14:00:25
Christoph
Hallo Werner
Nachfolgend die Datei. Alle gesetzten Überschriften sollen zu den in Tabelle 2 gesetzten Überschriften gesetzt werden. Wichtig ist, dass die Überschriften in Tabelle 2 so bleiben müssen und nicht verschoben werden. Falls in Tabelle 3 eine Überschrift fehlt, bleibt diese Spalte in der Tabelle 2 leer.
https://www.herber.de/bbs/user/125408.xlsx
Gruss Christoph
Anzeige
AW: Nach überschrift suchen und kopieren
15.11.2018 14:27:38
Werner
Hallo Christoph,
teste mal: 
Option Explicit
Public Sub spalten_kopieren()
Dim raFund As Range, loLetzte As Long, i As Long
Dim wsZ As Worksheet, wsQ As Worksheet, strSuchbegriff As String
Set wsZ = ThisWorkbook.Worksheets("Tabelle2")
Set wsQ = ThisWorkbook.Worksheets("Tabelle3")
Application.ScreenUpdating = False
With wsZ
'vorhandene Daten im Blatt 2 löschen
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
If loLetzte > 1 Then
.Range(.Cells(2, 1), .Cells(loLetzte, 9)).ClearContents
End If
'Schleife über die Überschriften im Blatt 2
For i = 1 To 9
strSuchbegriff = .Cells(1, i)
'entspr. Überschrift im Blatt 3 suchen
With wsQ
Set raFund = .Rows("1:1").Find(what:=strSuchbegriff, LookIn:=xlValues, lookat:= _
xlWhole)
'wenn gefunden Daten kopieren
If Not raFund Is Nothing Then
loLetzte = .Cells(.Rows.Count, raFund.Column).End(xlUp).Row
.Range(.Cells(2, raFund.Column), .Cells(loLetzte, raFund.Column)).Copy
End If
End With
'im Blatt 2 in die entspr. Spalte einfügen
.Cells(2, i).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Next i
End With
Set wsZ = Nothing: Set wsQ = Nothing
End Sub
Gruß Werner
Anzeige
AW: Nach überschrift suchen und kopieren
15.11.2018 14:55:34
Christoph
Hallo Werner
Ganz herzlichen Dank, dies funktioniert sehr gut.
Gruss Christoph
Gerne u. Danke für die Rückmeldung. o. w. T.
15.11.2018 15:14:45
Werner

304 Forumthreads zu ähnlichen Themen

String suchen und kopieren
Daniel

Hallo,
ich bin ein VBA Neuling und der Makroaufzeichner bringt mich nicht weiter, da dieser immer selectiert und aktiviert.
Ich brauche ein etwas allgemeineren Code.
Ok was ich habe sind folgende Inputdaten:
.............A......B.........C.............D
1
2............
12.08.2008 14:55:00
Thread-ID: 1001221
9 Beiträge
Anzeige
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Zeile suchen und löschen bzw kopieren
Henner

Hallo VBAler,
ich möchte in einer Tabelle in der Spalte A einen Wert bzw. einen Text suchen, wenn der Wert gefunden wird, soll die komplette Zeile gelöscht werden. Wird der Wert nicht gefunden, soll eine MsgBox erscheinen. Dann brauche ich den Code nochmal, in dem allerdings nicht die Zeile...
10.09.2008 16:56:00
Thread-ID: 1008851
5 Beiträge
Anzeige
Texte aus verschiedenen Registerblättern kopieren
zehetner

Nochmal meine Bitte um Hilfe - ich komm nicht weiter:
Wie kann ich - automatisiert, da viele Registerblätter - die Textinhalte einer bestimmten Zelle, die in jedem Registerblatt gleich ist - in eine neue Tabelle untereinander kopieren.
Vielen Dank nochmals
22.09.2008 05:54:07
Thread-ID: 1011369
2 Beiträge
Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 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
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Daten aus Sheet suchen und in Zelle schreiben
Robert

Hallo Excel Profis!
Ich stehe mal wieder als VBA Laie vor einem riesen Berg.
Ich habe auf "Sheet 2" eine Liste mit Quartalsdaten.
Ich suche eine Möglichkeit, wie Excel nun in diesem Sheet nach den jeweils passenden Daten eines
Quartals sucht und diese dann auf "Sheet 1" überträg...
20.11.2008 12:36:00
Thread-ID: 1026379
9 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
8
3
2
4
1
1
3
1
2
8
2
3
15
22
5
7
6
8
2
1
3
1
4
2
5