Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
720to724
720to724
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Range - Spalten nicht nebeneinanderliegend

Forumthread: Range - Spalten nicht nebeneinanderliegend

Range - Spalten nicht nebeneinanderliegend
Jürgen
Hallo Forumsmitglieder,
ich kämpfe damit, 2 nicht nebeneinander liegende Spalten aus einem Sheet in ein anderes zu kopieren (liegen dann nebeneinander).
Also z.B. Spalte A1:A10 und die Spalte K2:K10 aus Tabelle 1 nach Tabelle2 in A2:A10 und B2:B10. Mit dem Macrorekorder bin ich nicht richtig weitergekommen - 2. Spalte mit linker STRG-Taste selektiert.
Mit dem nachfolgenden Code - schon mehrmals verbastelt - wird immer der komplette Bereich zwischen A2 und K10 mit den dazwischen liegenden Spalten kopiert:
wb1.Worksheets("Werk").Select
wb1.Worksheets("Werk").Range(("A2:A" & MaxWerkIndex), ("K2:K" & MaxWerkIndex)).Select
Selection.Copy
wb1.Worksheets("W_Auswertung").Select
Range("A2").Select
ActiveSheet.Paste
Kann mir da jemand auf die Sprünge helfen?
Vielen Dank,
Jürgen
----
Recherche hat nichts gebracht - Union?
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Range - Spalten nicht nebeneinanderliegend
16.01.2006 21:28:45
Peter
Hallo Jürgen,
versuche es einmal so:

Sub Kopieren()
Worksheets("Tabelle1").Range("A1:A10,K1:K10").Copy _
Destination:=Worksheets("Tabelle2").Range("A2")
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Range - Spalten nicht nebeneinanderliegend
16.01.2006 21:38:38
Jürgen
HAllo Peter,
das Problem liegt offensichtlich an der Begrenzung der Bereiche. Ich kann den oberen Wert für die Bereichsgrenze nur mit einer Variablen ( hier MaxWerkIndex) angeben. Der Syntax mit den " und der Hinzufügung der Variable muss eine Besonderheit haben, die ich nicht erkenne. Der Code unten kopiert wieder den dazwischen liegenden Bereich mit.
DIM MaxWerkIndex as Integer
MaxWerkIndex=10
Worksheets("Werk").Range("A1:A" & MaxWerkIndex, "K1:K" & MaxWerkIndex).Copy _
Destination:=Worksheets("W_Auswertung").Range("A2")
Gruß,
Jürgen
Anzeige
AW: Range - Spalten nicht nebeneinanderliegend
16.01.2006 22:23:33
Peter
Hallo Jürgen,
dann eben so:
Dim MaxWerkIndex As Integer
MaxWerkIndex = 10
Worksheets("Tabelle3").Range("A1:A" & MaxWerkIndex).Copy _
Destination:=Worksheets("Tabelle2").Range("A2")
Worksheets("Tabelle3").Range("K1:K" & MaxWerkIndex).Copy _
Destination:=Worksheets("Tabelle2").Range("K2")
Die beiden Bereiche mit der Variablen zusammenzufassen, ist mir nicht gelungen.
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Range - Spalten nicht nebeneinanderliegend
17.01.2006 10:57:06
Peter
Hallo Jürgen,
nachdem ich mich hier im Forum schlau machen lassen habe, sieht es so aus:
Worksheets("Tabelle1").Range("A1:A" & MaxWerkIndex & ",K1:K" & MaxWerkIndex).Copy _
Destination:=Worksheets("Tabelle2").Range("A2")
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Range - Spalten nicht nebeneinanderliegend
17.01.2006 17:18:09
Jürgen
Hallo Peter,
danke für deine Mühen. Jetzt wo man's richtig sieht, ist es eigentlich klar. Bin nicht drauf gekommen.
Danke nochmals,
Jürgen
;

Forumthreads zu verwandten Themen

Zeilenmerkmale in Spalten umwandeln
MG_Learning

Hallo zusammen!
Ich habe keine Ahnung, wie ich aus folgender Tabellenstruktur: Beispiel:
A B C
London 20 Kinos
London 50 Gaststätten
London 10 Einkaufscentren
Paris 18...
17.08.2008 18:31:50
Thread-ID: 1002449
4 Beiträge
Autofilter zeigt nicht alles an
thomas

Hallo,
In einem Tabellenblatt sind 1752 Zeilen ausgefüllt. Der Autofilter zeigt in seiner Auflistung nur 1426 Zellwerte an.
Weis jemand woran das liegt?
Danke für die Hilfe
thomas
29.08.2008 15:59:23
Thread-ID: 1005882
4 Beiträge
Anzeige
Spalten in Zeilen anhängen
Jörg

Hallo zusammen,
in einer Tabelle mit ~1000 Artikeln in Spalte A stehen jeweils in den Spalten B-M die 12 zum Artikel gehörenden Monatswerte des Verbrauchs.
Ich brauche diese Daten jetzt so angeordnet, dass weiterhin alle Artikel in Spalte A stehen, jedoch die einzelnen Monatswerte unter...
01.09.2008 18:03:42
Thread-ID: 1006570
11 Beiträge
Spalten als Zeilen ziehen
Timo

Hallo,
ich habe ein relativ simples problem und hoffe, es auch möglichst simpel beschreiben zu können:
In einer Spalte (Sagen wir Spalte A) habe ich untereinander verschiedenen Werte stehen.
Jetzt möchte ich gern auf einem anderen Tabellenblatt genau diese Werte in eine Zeile sch...
03.09.2008 11:43:00
Thread-ID: 1007060
5 Beiträge
wie Spalten in einem Arbeitsblatt zu Zeilen zusamm
Michael

Moin erstmal,
folgendes Problem als mittelmäßiger Anwender.
Ich habe mehrere identische Arbeitsblätter wo ich jeweils untereinander (eine Spalte) mehrer Werte habe. G1-G10.
Diese Werte möchte ich in einem Arbeitsblatt zusammenfassen , allerdings nun in einer Zeile. A1-J1.
Wi...
04.09.2008 19:48:05
Thread-ID: 1007497
4 Beiträge
Änderung Zeilen und Spaltenbezug
lass

Hallo, ich habe folgendes Problem.
Ist
(Zeile2/Spalte A2): Auftrag xyz; (Zeile2/Spalte B2):Mitarbeiter 1; (Zeile2/Spalte C2)= Mitarbeiter 2
(Zeile3/Spalte A3): Auftrag xyz; (Zeile3/Spalte B3):Mitarbeiter 3; (Zeile3/Spalte C3)= Mitarbeiter 4
(Zeile4/Spalte A...
15.09.2008 08:29:55
Thread-ID: 1009654
17 Beiträge
Anzeige
Zeilen löschen in Abhängigkeit von 2 Spalten
2

Hallo zusammen,
ich habe ein Makro über den Rekorder aufgezeichnet und versuche es anzupassen. Leider kenn ich mich in der Syntax nicht aus.
Ziel:
In einem markierten Bereich die Zeilen löschen, die in Abhängigkeit von zwei Spalten eine 0 enthalten.
D.h. Spalten X und Y enthalte...
06.10.2008 14:00:00
Thread-ID: 1014434
3 Beiträge
Spalten in Zeilen vor Import in Access DB
mat

Hallo,
ich soll im Rahmen eines kleines Projektes einen SAP Export in eine Access DB importieren.
Das Problem liegt darin, dass die Exceldatei alle Umsätze und Absätze in einer Zeile hat. Hierbei bildet jeder Monat eine Spalte.
Für eine Datenbank macht es natürlich mehr Sinn je Mona...
08.12.2008 19:10:00
Thread-ID: 1031167
3 Beiträge
Anzeige
Zeilen durchsuchen und alle Spalten auslesen.
LOTHARP

Hallo Zusammen,
ich habe eine Tabelle in der ich mir den Maxwert einer bestimmten Zeile wiedergeben lasse mit folgendem MAkro gelöst:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 9 And Target.Row >= 2 And Target.Row
In de...
10.12.2008 11:36:41
Thread-ID: 1031637
4 Beiträge
unerklärliche Spalten- und Zeilenköpfe
Bernhard

Liebe Excel-Fangemeinde,
bei einem Übungsbeispiel einer Schulungsteilnehmerin trat folgendes Phänomen auf (siehe Screenshot):

Auf dem ersten Tabellenblatt wurden einige einfache Formatierungen (unter anderem doppelt unterstrichen, hochgestellt und durchgestrichen) ganz normal über...
15.12.2008 11:58:00
Thread-ID: 1032990
3 Beiträge
langer Text wird nicht mehr angezeigt
u_hoernchen

Ich muss einen langen Text (ca. 1.500 Zeichen) in eine Excel-Zelle schreiben (geht leider nicht anders, also das bitte nicht in Frage stellen). Nun wird beim Ausdruck und bei der Bildschirmanzeige aber die letzte Zeile nicht mehr umgebrochen (Zeilenumbruch ist formatiert), in der Zelle steht ab...
05.01.2009 11:10:25
Thread-ID: 1036916
4 Beiträge
Zeilen und Spalten ausblenden
Andreas

Hi Leute,
Hab folgendes Problem:
Ich hab mehrere Tabellenblätter mit Tabellen, in denen in Abhängigkeit von Einträgen auf einer Übersichtsseite bestimmte Zeilen und Spalten mit einem Makro ausgeblendet werden sollen.
Hier Mein Beispiel-File:
https://www.herber.de/bbs/user/58482...
16.01.2009 15:21:22
Thread-ID: 1040598
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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