Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
900to904
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
900to904
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Copy&Paste von gruppierten Spalten

Copy&Paste von gruppierten Spalten
28.08.2007 17:12:00
gruppierten
Hallo zusammen,
habe einen Code, mit dessen Hilfe in einer Tabelle in Zeile 7 selektierte Spalten in eine neue Datei ausgeleitet werden:
For sz1 = 1 To ws2.Columns.Count
If ws2.Cells(7, sz1).Value = "x" Then
ws2.Cells(1, sz1).EntireColumn.Copy
ws4.Cells(1, nwk).EntireColumn.Insert
nwk = nwk + 1
End If
Next
Dummerweise werden dabei gruppierte und "zusammengeklappte" Spalten ignoriert, d.h. sie werden nicht ausgeleitet. Ist es möglich, diese Spalten auszuleiten, auch wenn sie nicht sichtbar sind, ohne die Gruppierung vorher aufzuklappen?
Vielen Dank und schöne Grüße,
Jochen

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

Betreff
Datum
Anwender
Anzeige
AW: Copy&Paste von gruppierten Spalten
29.08.2007 04:21:59
gruppierten
Hallo Jochen,
die ausgeblendeten Spalten werden schon kopiert. Die Spaltenkopie wird jedoch ggf. in der Zieltabelle ausgeblendet und mit Gruppierung angezeigt. Mit folgender Ergänzung im Code wird Spaltenkopie auf sichtbar gesetzt und ggf. die Gruppierung der Spalte zurückgesetzt.
Gruß
Franz

For sz1 = 1 To ws2.Columns.Count
If ws2.Cells(7, sz1).Value = "x" Then
ws2.Cells(1, sz1).EntireColumn.Copy
ws4.Cells(1, nwk).EntireColumn.Insert
If ws4.Columns(nwk).Hidden = True Then ws4.Columns(nwk).Hidden = False
If ws4.Columns(nwk).OutlineLevel > 1 Then ws4.Columns(nwk).Ungroup
nwk = nwk + 1
End If
Next
Application.CutCopyMode = False
Anzeige
AW: Copy&Paste von gruppierten Spalten
29.08.2007 10:05:00
gruppierten
Super, vielen Dank! Funktioniert.
Gruß,
Jochen

251 Forumthreads zu ähnlichen Themen

Copy Paste Problem mit VBA
Chris

Hallo Leute,
ich habe ein Makro geschrieben, das ein aus SAP gezogenes Spreadsheet in ein formatiertes Excel File umwandelt.
Jetzt taucht plötzlich folgendes Problem auf:
Ein String wird in Zelle "A1" geschrieben, der Buchstaben und steuercode enthält.
D.H. ich habe in dieser Ze...
08.08.2008 15:10:35
Thread-ID: 1000317
11 Beiträge
Anzeige
aus kompletter Mappe NUR WERTE kopieren
Lauren

Hallo zusammen,
das ist wohl etwas simples aber ich bin nicht dahintegekommen.
Ich will eine Kopie einer Excel-Mappe mit ca. 80 Tabellenblättern erstellen aber es sollen NUR DIE WERTE kopiert werden also ohne Formeln usw. nur die Werte.
Dann in allen Tabellenblättern in der Kopierte...
17.09.2008 11:04:00
Thread-ID: 1010287
5 Beiträge
nur Werte kopieren
Pet


Guten Abend,
könnte mal wieder etwas Hilfe von Euch gebrauchen.
Unten stehender Code kopiert die bedingte Formatierung aus Tabelle1 mit.
Wie muss ich es ändern, dass nur die Werte kopiert werden?
Vielen Dank vorab für Eure Hilfe.
Gruß, Pet
Sub SchaltflächeCopy() D...
01.11.2008 21:04:45
Thread-ID: 1021094
7 Beiträge
Anzeige
copy & Paste inkl. Formeln
meixner

Hallo zusammen,
möchte einige Daten inkl. Formeln in ein anderes Tabellenblatt kopieren. Bei dem Copy & Paste Vorgang gehen die Formeln aber verloren. Wie kann ich das ändern?
Sub makro_copy()
Worksheets("tabelle1").Range("D2:D40, E2:E40").Copy Destination:=Worksheets("tabelle4"...
18.01.2009 16:07:00
Thread-ID: 1041161
6 Beiträge
Nur Werte kopieren!
markus473

Hallo zusammen,
ich habe ein Makro, welches Daten kopiert.
Jetzt wäre es besser, wenn es nur die Werte kopiert, da dann die Formatierung erhalten bleibt.
Wie müßte das denn dann aussehen?
Danke Gruß Markus
Sub Uebernahme_Januar() Dim sh As Worksheet UF_Dateiauswahl1.Show I...
26.01.2009 15:27:51
Thread-ID: 1043917
7 Beiträge
Makro Copy&Paste
Julia

Hallo,
ich habe in einem Ordner die Datei Pivot.xls dort gibt es das Tabellenblatt Rohdaten.
In dieses Tabellenblatt sollen der gesamte Inhalt von Rohdaten.xls (Tabellenblatt hier heißt: Table1)
in Pivot.xls (Tabellenblatt Rohdaten) kopiert werden.
Ich habe folgenden Code:
...
25.02.2009 10:37:16
Thread-ID: 1053778
3 Beiträge
nur werte kopieren!
lisa

Hallo zusammen
Dieses Thema ist nicht nur in diesem Forum mehrfach angesprochen worden.
Ich rafe es nicht, trotz Recherche, hiefür nur den Wert kopieren zu lassen.
Das ist mein Orig. Gode
Private Sub CommandButton3_Click() Sheets("Dateneingabe").Range("L2").Copy Sheets("Liefer...
03.03.2009 14:07:47
Thread-ID: 1055975
5 Beiträge
Autofilter - nur gefilterte Werte kopieren ?
Piet

Hallo zusammen,
angenommen ich habe in Spalte A diverse Produkte (Produkt A, Produkt B, usw.)
und in Spalte B diverse Zahlenwerte zu den Produkten.
Z.B.:
Produkt Wert
a 27
b 13
b 17
a...
08.04.2009 15:38:42
Thread-ID: 1067762
3 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
10
5
4
6
6
5
6
2
4
2
12
3
2
2
2
3
12
4
2
1
3
3
2
6
7