Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1920to1924
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
1920to1924
1920to1924
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

gefilterte Spalte kopieren einfügen

gefilterte Spalte kopieren einfügen
26.02.2023 10:54:55
Guesa
Guten Morgen Forum
Ich möchte aus einer gefilterten Liste bestimmte Spalten in ein anderes Tabellenblatt kopieren.
Nach langem suchen habe ich folgenden Code gefunden
Sub filterkopieren()
Worksheets("Produktionsstatus").Range("S14", Cells(Range("S14").SpecialCells(xlLastCell).Row, "S")).Copy Destination:=Worksheets("Tabelle1").Cells(24, 1)
Worksheets("Produktionsstatus").Range("Y14", Cells(Range("Y14").SpecialCells(xlLastCell).Row, "Y")).Copy Destination:=Worksheets("Tabelle1").Cells(24, 3)
Worksheets("Produktionsstatus").Range("B14", Cells(Range("B14").SpecialCells(xlLastCell).Row, "B")).Copy Destination:=Worksheets("Tabelle1").Cells(24, 5)
End Sub
Grundsätzlich funktioniert das auch, Problem: Die Spalten A-B, C-D sind Verbunden (geht nicht anders ist ein Vorgabe-Formular) und
es sollen nur Werte eingefügt werden (hier wird der Hintergrund und Rahmen mit eingefügt)
Wie müsste der Code geändert werden damit mein Vorhaben funktioniert
Vorab ein Danke für Eure Hilfe
Gruß, Guesa

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: gefilterte Spalte kopieren einfügen
26.02.2023 11:34:33
Alwin
Hallo Guesa,
da keine Datei zum Testen dabei ist, erst mal folgende Änderungen ungetestet:

Sub filterkopieren()
    With Worksheets("Produktionsstatus")
        .Range("S14", Cells(.Range("S14").SpecialCells(xlLastCell).Row, "S")).Copy Destination:=Worksheets("Tabelle1").Cells(24, 1)
        .Range("Y14", Cells(.Range("Y14").SpecialCells(xlLastCell).Row, "Y")).Copy Destination:=Worksheets("Tabelle1").Cells(24, 3)
        .Range("B14", Cells(.Range("B14").SpecialCells(xlLastCell).Row, "B")).Copy Destination:=Worksheets("Tabelle1").Cells(24, 5)
    End With
End Sub
Gruß Uwe
Anzeige
AW: gefilterte Spalte kopieren einfügen
26.02.2023 11:54:29
Guesa
Hallo Uwe
Danke für Deine Antwort
Deine Code Änderung macht das gleiche wie mein gefundener Code
Das Problem ist nach wie vor das die Formatierung mit eingefügt wird und das Problem der verbundenen Zellen in Tabelle1
also da wo es hin kopiert werden soll A-B und C-D ist auch noch vorhanden.
Ich versuch mal eine Test Datei zu schicken
Gruß, Guesa
AW: gefilterte Spalte kopieren einfügen
26.02.2023 12:25:38
Guesa
Hallo Uwe
Hier mit Datei. Was ich noch vergessen hatte: In Avi Spalte N und O müsste noch jeweils ein 1 rein
https://www.herber.de/bbs/user/158020.xlsm
Gruß, Guesa
Anzeige
AW: gefilterte Spalte kopieren einfügen
26.02.2023 13:53:00
Alwin
Hallo Guesa,
zum Problem:
Das habe ich über eine Krücke via Array angelegt. Damit sind auch die Formatierungen weg.
Naja und die 1 in dazu sin den markierten Spalten geht mit einer simplen Schleiche abhängig von der Länge des Arrays.

Sub filterkopieren()
    Dim arrWert(), i&
    With Worksheets("Produktionsstatus")
        .Range("S14", Cells(.Range("S14").SpecialCells(xlLastCell).Row, "S")).Copy Destination:=Worksheets("Avi").Cells(24, 100)
        .Range("Y14", Cells(.Range("Y14").SpecialCells(xlLastCell).Row, "Y")).Copy Destination:=Worksheets("Avi").Cells(24, 101)
        .Range("B14", Cells(.Range("B14").SpecialCells(xlLastCell).Row, "B")).Copy Destination:=Worksheets("Avi").Cells(24, 102)
    End With
    With Worksheets("Avi")
        arrWert = Range(.Cells(24, 100), .Cells(.Cells(Rows.Count, 100).End(xlUp).Row, 100)).Value
        .Cells(24, 1).Resize(UBound(arrWert, 1), 1) = arrWert
        arrWert = Range(.Cells(24, 101), .Cells(.Cells(Rows.Count, 101).End(xlUp).Row, 101)).Value
        .Cells(24, 2).Resize(UBound(arrWert, 1), 1) = arrWert
        arrWert = Range(.Cells(24, 102), .Cells(.Cells(Rows.Count, 102).End(xlUp).Row, 102)).Value
        .Cells(24, 3).Resize(UBound(arrWert, 1), 1) = arrWert
        .Rows(100 & ":" & 102).Delete
        For i = 1 To UBound(arrWert)
            .Cells(24, 14) = 1
            .Cells(24, 15) = 1
        Next i
    End With
End Sub
https://www.herber.de/bbs/user/158022.xlsm
Gruß Uwe
Anzeige
AW: gefilterte Spalte kopieren einfügen
26.02.2023 14:23:42
Guesa
Hallo Uwe
Super Danke Dir, habe ich gerade ausprobiert.
Da war zwar Position und Artikelnummer vertauscht aber das konnte ich ändern.
Was ich nicht verstehe ist die Schleife, soll doch eine sein oder?, wo die Einsen eingetragen werden,
wenn möglich sollte in jeder Zeile eine 1 in N und O eingetragen werden, im Moment wird nur in Zeile 24 eingetragen.
Wie müsste man das ändern
Gruß, Guesa
AW: gefilterte Spalte kopieren einfügen
26.02.2023 14:41:13
Alwin
ja, das hatte ich hier einfach im Forumseditor noch eingetragen - richtig so:

        For i = 1 To UBound(arrWert)
            .Cells(23 + i, 14) = 1
            .Cells(23 + i, 15) = 1
        Next i
Da werden die Einsen in den gefüllten Zellen mit eingetragen.
Wenn für die ganzen Spalten dann ohne Schleife so: .Range("N24:O49")=1
Gruß Uwe
Anzeige
AW: gefilterte Spalte kopieren einfügen
26.02.2023 14:56:24
Guesa
Hallo Uwe
Echt Klasse Danke Dir für Deine Mühe.
Und Ehrlich gesagt verstehe ich den ganzen Code nicht :-)
Wenn es nicht zu unverschämt ist könntest du das ganze auskommentieren?
z.B. Warum hier; Destination:=Worksheets("Avi").Cells(24, 100) die 100, 101 usw.
Das kann ich mir nicht herleiten, eben immer noch Anfänger
Gruß, Guesa
AW: gefilterte Spalte kopieren einfügen
26.02.2023 15:25:10
Alwin
Was der Code macht:
Du hattest ja ursprünglich versucht in verbundene Zelle zu schreiben, was natürlich so nicht funktioniert.
Man kann aber weiter weg von der Tabelle z.B. ab Spalte CV (100) bis CX (102) schreiben lassen.
Dann die Werte des Bereichs CV in ein kleines Array laden und ab Zelle(24,1) das Array zurück untransponiert, da ja die Elemente des Array eindimensional sind, zurückgeben.
Adäquat passiert das mit CW und CX.
Im Übrigen scheint die Übernahme der gefilterten Werte zumindest in dieser Datei störanfällig zu sein. Probiere mal verschiedene Filtervorgaben aus, ob das Ergebnis passt.
Gruß Uwe
Anzeige
AW: gefilterte Spalte kopieren einfügen
26.02.2023 15:50:11
Alwin
Man kann natürlich auch den direkten Weg via Array gehen.

Sub filterkopieren()
    Dim arrWert()
    With Worksheets("Produktionsstatus")
        arrWert = .Range("S14", Cells(.Range("S14").SpecialCells(xlLastCell).Row, "S")).Value
        Sheets("Avi").Cells(24, 1).Resize(UBound(arrWert, 1), 1) = arrWert
        arrWert = .Range("Y14", Cells(.Range("Y14").SpecialCells(xlLastCell).Row, "Y")).Value
        Sheets("Avi").Cells(24, 3).Resize(UBound(arrWert, 1), 1) = arrWert
        arrWert = .Range("B14", Cells(.Range("B14").SpecialCells(xlLastCell).Row, "B")).Value
        Sheets("Avi").Cells(24, 5).Resize(UBound(arrWert, 1), 1) = arrWert
    End With
End Sub
Gruß Uwe
Anzeige
AW: gefilterte Spalte kopieren einfügen
26.02.2023 16:16:58
Guesa
Hallo Uwe
Das hilft zum besseren Verständnis schon mal weiter
Nochmals Danke für Deine Mühe
Gruß, Guesa

305 Forumthreads zu ähnlichen Themen

Zeilen mit Makro aus Mustertabelle kopieren
obelix-xxl

Hallo,
ich wende mich an dieses Forum mit der Bitte eine Makrolösung aufzuzeigen.
Udo hat mir gestern eine Lösung zum Kopieren von Zeilen hier ins Forum gestellt. Diese ist auch so genau richtig.
Nachdem ich diese nun einsetzen kann, benötige ich eine weiteres Kopiermakro.
In me...
26.09.2008 16:29:07
Thread-ID: 1012698
10 Beiträge
Anzeige
Word nach Excel kopieren mit Zeilenumbruch/Absatz
Christian

Hi Leute,
hab jetzt mal rumgesucht im Archiv, aber leider nichts gefunden.
Habe ein Word-File, das ich jetzt nach Excel übertragen will.
Ich kopiere hierfür Zeile für Zeile, was auch wunderbar funktioniert.
Was ist jedoch, wenn ich in der Word-Tabelle einen Zeilenumbruch habe?
04.11.2008 07:42:00
Thread-ID: 1021456
5 Beiträge
Zellenwert nicht kopieren
HannaG

Hallo,
mir fällt nicht ein, wie ich die Überschrift am Besten formulieren könnte. Besser ich erkläre das Problem:
Ich habe den Code in Zeile10 z.b.
=WENN(UND(A7>8.98;A7 Jetzt will ich den Code in die Zeilen darunter zihen, sodaß sich natürlich jeweils AB10 und AE10 in AB11 und AB...
07.11.2008 14:41:52
Thread-ID: 1022683
3 Beiträge
Anzeige
Combobox ausgeblendete Zeilen nicht anzeigen
helena

Schönen Guten Morgen
Kleines Problem ich verstecke Zeilen wenn in Spalte C Begriff nicht vorhanden dies klappt auch
aber via Combobox suche ich Namen (Adressvergabe) aber es werden mir immer alle aufgelistet auch wenn Zeilen ausgeblendet sind, ich Blende aus ob ich nur G_kunden oder P_...
28.12.2008 09:10:32
Thread-ID: 1035521
12 Beiträge
Kopieren von Nichtleeren Zellen per Formel
Nichtleeren

Moin,
auf der Arbeit soll ich eine Tabelle anpassen:
In Tabellenblatt1 ist eine Matrix M6:P109, in einigen Zeilen (Artikelnummern in loser Reihenfolge) stehen Werte, (die Artikel, die im Bürobestand fehlen) in den meisten nicht.
Die Zeilen, in denen Werte stehen, sollen nun in Tabel...
10.01.2009 20:43:46
Thread-ID: 1038525
4 Beiträge
kkleinste (ohne ausgeblendete Spalten)
Rainer

Hallo,
suche nach einer Möglichkeit, kkleinste jedoch ohne Berücksichtigung ausgeblendeter SPALTEN zu nutzen.
Habe in einem anderen Forum schon gepostet und bekam nur die Funktion TEILERGEBNIS mitgeteilt. Diese wiederrum klappt wohl nur mit Zeilen. Deshalb habe ich weiter gesucht und bi...
07.02.2009 19:33:00
Thread-ID: 1048127
14 Beiträge
Zeilen mit ähnlichem Inhalt kopieren
Lauren

Hallo zusammen,
sitze wiedermal hier in VBA/Excel fest und hoffe auf Hilfe :)
Ich habe eine Excel Datei mit ca. 7000 Zeilen.........nun möchte ich die Inhalte etwas übersichtlicher gestalten aber händisch wäre das ja ein riiiiiiiiiesen Aufwand, daher bin ich auf der Suche nach einem Mak...
10.02.2009 14:31:49
Thread-ID: 1049097
4 Beiträge
Tab.1 filtern,Kopieren und in Tab.2 einfügen
Ünal

Hallo zusammen,
ich bin ein Anfänger was VBA angeht. Ich habe mir immer durch die hilfreichen Forums helfen können. Doch zu meiner jetzigen Frage habe ich noch kein Antwort gefunden .
Ich kopiere aus mehreren Text Dateien die Inhalte auf ein Excel-Tabellenblatt (1) Untereinander.
Da...
11.03.2009 16:06:48
Thread-ID: 1059163
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
9
2
4
2
2
11
3
13
3
2
2
1
20
1
1
5
2
2
1
7
8
5
12
7
2