Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1880to1884
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
1880to1884
1880to1884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Filter einzelne Spalten kopieren

Filter einzelne Spalten kopieren
11.05.2022 19:42:02
Guesa
Hallo Forum
In meiner Tabelle setze ich einen Filter, mit folgendem Code kopiere ich die Zeilen in eine andere Tabelle
Worksheets("Produktionsstatus").Range("A14").CurrentRegion _
.SpecialCells(xlCellTypeVisible).Copy _
Worksheets("Ausw1").Range("A2")
Problem: die Tabelle hat 32 Spalten wovon ich eigentlich nur 6 Spalten benötige (A, G, J und L-N)
Wie müsste der Code für diese 6 Spalten umgeschrieben werden?
Für Eure Hilfe vorab ein Danke
Gruß, Guesa

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filter einzelne Spalten kopieren
11.05.2022 19:52:21
Rudi
Hallo,
dann lösch die überflüssigen Spalte doch. Aber von hinten!
Gruß
Rudi
AW: Filter einzelne Spalten kopieren
11.05.2022 20:04:03
Guesa
Hallo Rudi
Die brauche ich ja noch, die Liste wird täglich erweitert. Habe auch schon mit ausblenden versucht das funktioniert zwar
jedoch werden meine Schaltflächen oberhalb der Liste (und das sind einige) mit ausgeblendet und wenn ich wieder einblende
sind diese zusammen geschoben obwohl ich diese auf unabhängig von Zellposition eingestellt habe.
Gruß, Guesa
AW: Filter einzelne Spalten kopieren
11.05.2022 21:00:40
Rudi
Hallo,
ungetestet:

Sub aaa()
Dim arrIN, arrOUT()
Dim i As Long, j, n As Integer
arrIN = Worksheets("Produktionsstatus").Range("A14").CurrentRegion.SpecialCells(xlCellTypeVisible)
ReDim arrOUT(1 To UBound(arrIN), 1 To 6)
For i = 1 To UBound(arrIN)
n = 0
For Each j In Array(1, 7, 10, 12, 13, 14)
n = n + 1
arrOUT(i, n) = arrIN(i, j)
Next j
Next i
Worksheets("Ausw1").Range("A2").Resize(UBound(arrOUT), 6) = arrOUT
End Sub
Gruß
Rudi
Anzeige
AW: Filter einzelne Spalten kopieren
12.05.2022 16:37:30
Guesa
Hallo Rudi
Danke für Deine Rückmeldung und Sorry das ich mich erst jetzt melde. Habe den Code heute morgen am Arbeitsrechner getestet.
Leider funktioniert der Code nicht, er kopiert zwar die benötigten Spalten, aber nicht ab Zeile 14 bis zur letzten, sondern ab Zeile 1 bis 16.
Das scheint auch eine komplizierte Geschichte zu sein da ich bereits 4 Tage recherchiert habe und nichts dazu gefunden habe,
jedoch heute etwas ähnliches gefunden habe, zwar nicht das was ich gerne hätte aber besser als alle 32 Spalten zu kopieren.
Danke für Deine Mühe
Gruß, Guesa

301 Forumthreads zu ähnlichen Themen

AutoFilter zeigt nicht alle Einträge
Andre

Hallo Excel-Freunde,
ich weiß, dieses Problem tauchte schon öfters auf.
Aber irgendwie passt das nicht zu meinem Problem:
Ich habe eine Excel-Tabelle, in der ihc mit VBA den AutoFilter aktiviere und gewisse Spalten filtere. Will ich nun eine gewisse "planned_effort(in hours)"-Spalt...
10.08.2008 15:47:23
Thread-ID: 1000645
2 Beiträge
Anzeige
nur eine der Spalten darf gefüllt sein
Simon

Hallo,
ich habe glaube ich eine einfache Frage, komme aber nicht drauf Sie selbst zu lösen:
ich habe 4 Spalten: ja; nein; mehr Menge; weniger Menge
dahinter möchte ich eine 5te Spalte Kontrolle setzen. In dieser soll eine Fehlermeldung erscheinen falls mehr als eine Spalte ausgefüll...
01.09.2008 16:15:00
Thread-ID: 1006502
8 Beiträge
Spalten statt Zeilen filtern
Steffen

Hallo Forum,
den Autofilter kenne ich, aber ich brauche einen Filter der Spalten anstatt der Zeilen und von VBA habe ich leider keine Ahnung.
ich habe eine Tabelle mit Namen in A2:A10. Im Bereich B2:X10 steht in verschiedenen Zellen entweder ein "x" oder die Zellen sind leer.
Nun hä...
29.10.2008 16:41:00
Thread-ID: 1020355
13 Beiträge
Anzeige
Combobox nur bestimmte Inhalte anzeigen
k

Hallo und einen wundervollen Guten Morgen ;o)
...ich habe mal wieder eine Frage (auch wenn ich hier shcon viel gelernt habe in den letzten Wochen !).
Habe in einer Userform eine Combobox (CB1) und diese zeigt alle Kundennamen einer Gesamtliste (Tabelle1) an. Jeder Kundensatz in der Tabe...
23.07.2009 09:28:23
Thread-ID: 1090694
3 Beiträge
2D - Array aber nur bestimmte Spalten einlesen
Axel

Hallo,
ich möchte ein Datenblatt einlesen. Dieses besteht aus 1800 Zeilen und 9 Spalten.
Diese lesen ich in einen Variant ein. Dim Daten As Variant Daten = Worksheets("Tabelle1").Range("A3:I1874")
allerdings brauche ich die Spalte H nicht. Meiner Meinung nach habe ich jetzt zwei Mö...
04.09.2009 11:44:00
Thread-ID: 1100595
9 Beiträge
Autofilter: 1 Kriterium für 2 Spalten
Stefan

Guten Morgen,
kann mir jemand bei folgender Frage helfen ?
Ich habe 2 Spalten, die mit Werten gefüllt sind. Nun habe ich mit dem Textfeld aus der Steuerelemente-Toolbox ein Suchfeld erschaffen. Sobald hier ein Suchbegriff eingegeben wird, sollen die beiden Spalten durchsucht und die Erg...
22.10.2009 10:51:27
Thread-ID: 1111254
5 Beiträge
Autofilter findet nicht alle Sätze!?
ing.grohn

Hallo Forum,
ich habe Probleme mit dem Autofilter.
In meiner Datei stehen definitiv 15 Sätze in Spalte B, die die Buchstaben "gro" enthalten!
Mit DATEN AUTOFILTER, dann BENUTZERDFINIERT ENTHÄLT "gro"
werden mir 7 Datensätze angeboten (die Zeilen liegen relativ nah zusammen).
...
11.03.2010 09:34:14
Thread-ID: 1145049
12 Beiträge
ClearContents nicht alle Spalten
Sascha

Hallo Forum
ich habe Makro das daten von einem Tabellenblatt in ein anderes überträgt und dann das Tabelleblatt wieder löscht mit
Sheets("Import 200").UsedRange.Offset(3, 0).ClearContents
kann ich das noch so ändern das es nur von Spalte A bis Spalte M löscht?
Gruss Sascha
05.04.2010 12:28:47
Thread-ID: 1150231
2 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
1
3
7
12
8
2
8
4
11
1
5
1
8
4
7
4
3
3
1
3
1
2
5
3
2