Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1516to1520
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
1516to1520
1516to1520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kopieren von Spalten mit gleicher Überschrift

kopieren von Spalten mit gleicher Überschrift
13.10.2016 13:30:54
Spalten
Hallo,
ich bin relativ neu in der VBA-Welt und bräuchte eure Hilfe bitte.
Ausgangssituation: Ich habe 2 Tabellenblätter.
Ich möchte aus Tabellenblatt1 in Tabellenblatt2 Spalten kopieren.
In beiden Tabellenblättern habe ich die gleichen Überschriften(IDs) stehen.
Im Tabellenblatt1 in Zeile 2 und im Tabellenblatt2 in Zeile 1.
Nur in unterschiedlicher Reihenfolge. Das Makro soll zum sortieren dienen.
Das Makro soll(wenn möglich) das Tabellenblatt1 in der zweiten Zeile durchsuchen, und die Spalte drunter kopieren. Dann soll es die Spalte in Tabellenblatt2 unter der gleichen ID wieder einfügen.
Vielen Dank schon mal

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

Betreff
Datum
Anwender
Anzeige
AW: kopieren von Spalten mit gleicher Überschrift
13.10.2016 14:14:05
Spalten
HI
im Prinzip so:
dim ÜB1 as range
dim ÜB2 as range
dim Kopierbereich as range
for each ÜB1 in Range(Sheets("Tabelle1").Cells(2, 1), Sheets("Tabelle1").Cells(2, 1).end( _
xltoright))
set ÜB2 = Sheets("Tabelle2").Rows(1).Find(what:=ÜB1.Value, lookat:=xlwhole)
if not ÜB2 is nothing then
Range(ÜB1.Offset(1, 0), ÜB1.end(xldown)).Copy Destination:=ÜB2.End(xldown).Offset(1, 0)
end if
next
ist jetzt für den Fall geschrieben, dass in den Spalten keine Leerzellen zwischendrin vorhanden sind, sondern alle Zellen befüllt sind.
Gruß Daniel
AW: kopieren von Spalten mit gleicher Überschrift
13.10.2016 14:40:13
Spalten
super vielen dank schon mal
aber er gibt mir in der Zeile nach dem "If not..." die Fehlermeldung "Laufzeitfehler 1004".
Weist du was das sein kann?
Anzeige
AW: kopieren von Spalten mit gleicher Überschrift
13.10.2016 15:19:59
Spalten
Ups sorry, das funktioniert so nur, wenn in Tabelle2 unter der Überschrift schon werte vorhanden sind.
probiers mal so, dass sollte auch gehen ,wenn die Zellen in Tabelle2 noch leer sind:
 Destination:=ÜB2.Worksheet.Cells(Rows.Count, ÜB2.Column).End(xlUp).Offset(1, 0)
Gruß Daniel
AW: kopieren von Spalten mit gleicher Überschrift
13.10.2016 15:26:29
Spalten
danke nochmal,
aber was mach ich wenn ich im ersten Tabellenblatt Leerzeichen in der Zeile2 habe?
AW: kopieren von Spalten mit gleicher Überschrift
13.10.2016 15:29:45
Spalten
Hi.
Leerzeilen füllen.
oder du musst die letzte Zelle nicht von oben mit End(xldown) anspringen, sondern so wie von mir in der Ergänzung gezeigt von unten, dh von der allerletzten Zeile (Rows.count) mit einem Sprung nach oben (end(xlup), dann sind Leerzellen zwischendrin nicht mehr störend.
Gruß Daniel
Anzeige
AW: kopieren von Spalten mit gleicher Überschrift
13.10.2016 15:33:55
Spalten
ok vielen dank.

302 Forumthreads zu ähnlichen Themen

Suchen und Gruppieren in Spalten
Andreas

Hallo XLer,habe ein kleines Problem.Ich habe in Spalte A Werte, die manchmal einmal, machmal doppelt vorkommen. In Spalte B sind diesen Werten Beträge zugeordnet, die aber immer unterschiedlich sind. Nun möchte ich über VBA die doppelten Daten aus Spalte A suchen, automatisch gruppieren und ein...
06.06.2002 12:06:02
Thread-ID: 126447
3 Beiträge
Anzeige
Spalten mit eindeutigen Überschriften var. machen
Matthias

Hallo zusammen,
ich habe eine für euch recht einfache Frage:
Habe ziemlich viel VBA Programmiercode in den letzten gebastelt und nun festgestellt, dass ich hin und wieder
Spalten anspreche, die sich jedoch durch einfügen neuer Spalten verschieben können (und mein Code dann nicht meh...
22.11.2015 13:48:32
Thread-ID: 1459945
14 Beiträge
Spalten mit Überschrift finden und Filter anwenden
Markus

Hallo liebe Community,
ich schlage mich mit einem Problem dessen Lösung ich zwar in Einzelschritten hier im Forum bereits gefunden haben, bisher aber nicht kombinieren konnte...
Ich habe 2 Tabelle mit jeweils 22 Spalten und bis zu 10.000 Zeilen welche ich nach verschiedenen Kriterien fi...
16.05.2016 21:01:38
Thread-ID: 1493651
5 Beiträge
Anzeige
Spalten mit bestimmten Überschriften formatieren
Hans

Hallo,
ich habe eine Tabelle, in der sich Spalten mit den Überschriften "Betrag", "Datum" und "Uhrzeit" x-mal wiederholen. Die Inhalte sind leider nicht entsprechend formatiert.
Gibt es eine Möglichkeit, alle Spalten mit der Überschrift "Betrag" zu markieren und dann zu formatieren.
...
01.07.2018 13:07:32
Thread-ID: 1631482
7 Beiträge
Spalten mit bestimmten Überschriften formatieren
Hans

Hallo,
ich habe neulich von Nepumuk eine tolle Lösung für das Problem "Spalten mit bestimmten Überschriften formatieren" bekommen.
Meine Frage, kann man gleich die Füllfarbe für die Zelle festlegen?
Hier das bisherige Makro Public Sub Formatieren() Dim lngColumn As Long For lngColum...
13.08.2018 18:44:09
Thread-ID: 1639187
6 Beiträge
Spalten mit selbiger Überschrift in neues Tabellen
Jens

Hallo,
ich will jeweils 3 Spatlten mit der selben Überschrift aus einem Tabellenbaltt in ein neues übertragen. Das neue Tabellenblatt hat den selben Namen wie die Spaltenüberschriften. Dabei sollten die Spalten im neuen Tabellenblatt untereinander stehen und zwischen den "Spalten" jeweils e...
24.03.2019 09:35:42
Thread-ID: 1682959
7 Beiträge
Spalten und Zeilenköpfe umbenennen
Clemens

Hallo,
eigentlich habe ich zwei Fragen!
1. Kann ich die Spalten und Zeilenköpfe umbenennen, wenn ja wie?
2. Ich habe eine Adressverwaltung, und möchte die neuen Adressen über eine Maske eingeben. Möchte dieses aber nicht über Daten/ Maske gehen, sondern ein Boutton auf die Seite legen,...
30.05.2004 22:14:58
Thread-ID: 435275
5 Beiträge
Pivot-Daten: Spalten gruppieren und auszählen lass
Timo

Hallo und guten Morgen,
bin zur Zeit auf der Suche nach der Möglichkeit, den Pivot-Bericht so einzustellen, daß er ähnlich wie bei "=ZÄHLENWENN" zwei Spalten nach eingegebenen Antwortmöglichkeiten durchsucht und mir das Ergebnis dann gemeinsam auflistet. Es gelingt mir aber leider nicht, ic...
06.05.2008 07:20:00
Thread-ID: 974964
6 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
3
13
4
3
6
5
6
4
5
1
1
15
2
3
7
5
3
7
5
5
2
3
7
3