Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1812to1816
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
1812to1816
1812to1816
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Spalten außer X kopieren & Werte

Alle Spalten außer X kopieren & Werte
18.02.2021 12:10:10
excelliebe
Hallo,
ich möchte ein Tabellenblatt in eine neue Mappe kopieren und dort alle Spalten, außer die mit der Spaltenüberschrift "Verfügbar", "Verschifft" und "Kein Bestand" (exakte Bezeichnung - folgen immer aufeinander, falls das hilft), sowie alle Spalten, die in der Überschrift ein "aus VJ" enthalten (nur Teil der Überschrift - folgen nicht aufeinander), kopieren und nur die Werte wieder einfügen (an gleicher Stelle).
Die Spaltenüberschriften stehen immer in Zeile 3.
Leider komme ich hier nicht weiter. Bin über jeden Hilfe dankbar!
HG

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Spalten außer X kopieren & Werte
18.02.2021 12:17:08
ralf_b
Hallo,
wo bist du denn stehen geblieben?
schon bei der Vorüberlegung oder erst beim Datenzusammenstellen?
gruß
rb
AW: Alle Spalten außer X kopieren & Werte
18.02.2021 12:20:44
excelliebe
Hallo rb,
leider bereits bei der Vorüberlegung. Andersrum (alle Spalten einzeln kopieren & Wert einfügen) hätte ich vielleicht noch (umständlich) hinbekommen, aber das "außer" bereitet mir große Schwierigkeiten.
Das Blatt konnte ich kopieren, das Format ändern und die Spalte mit Überschrift "HW" suchen & löschen habe ich selbstständnig hinbekommen und hier deshalb nicht mehr aufgeführt, aber hier stecke ich nun fest.
Kannst Du helfen?
HG
Anzeige
AW: Alle Spalten außer X kopieren & Werte
18.02.2021 12:29:32
ralf_b
dann zeig mal was du da hast. klingt doch gar nicht so viel was da noch fehlt.
Aber bitte kein Hinweis auf "geheime Daten" und "kann nicht hochladen". Lass dir was einfallen.
gruß
rb
AW: Alle Spalten außer X kopieren & Werte
18.02.2021 13:04:20
excelliebe
Ich kann gerne eine Beispieldatei aufsetzen.
Die Orginialdatei hat 73 Spalten, wovon alle bis auf drei mit einer der anderen 18 Tabellenblättern verformelt sind, weshalb ich die Formeln schlecht in der Beispieldatei drin lassen kann.
Genau die Spalten, die ich nicht kopieren & als Wert wieder einfügen möchte, sind nur mit Daten des Tabellenblatts verknüpft. Würde Dir das weiterhelfen?
HG
Anzeige
AW: Alle Spalten außer X kopieren & Werte
18.02.2021 13:31:49
excelliebe
Hier mein Code bisher:
Sub HR()
Application.ScreenUpdating = False
Dim SpalteHQ As Range
Dim SpalteKatalog As Range
Dim letzteSpalte As Long
Dim letzteZeile As Range
letztZeile = Sheets("Blatt1").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Blatt1").Copy
'Spalten nach HQ löschen
With Worksheets("Blatt1")
letzteSpalte = .Cells(3, .Columns.Count).End(xlToLeft).Column
Set SpalteHQ = .Rows(3).Find(what:="HQ", LookIn:=xlValues, lookat:=xlWhole)
If Not SpalteHQ Is Nothing Then
If letzteSpalte > SpalteHQ.Column Then
.Range(.Cells(1, SpalteHQ.Column + 1), .Cells(1, letzteSpalte)).EntireColumn. _
Delete
End If
End If
End With
'Spalte vor Katalog absteigend sortieren
With Worksheets("Blatt1")
Set SpalteKatalog = .Rows(3).Find(what:="Katalog", LookIn:=xlValues, lookat:=xlWhole). _
Offset(, -1) 'Suche Spalte "Katalog" und gehe eins nach links
.Range(Cells(3, SpalteKatalog.Column), Cells(letztZeile, SpalteKatalog.Column)). _
Sort _
Key1:=Range(SpalteKatalog.Address), Order1:=xlDescending, _
Header:=xlYes
End With
'Farbig unterlegen
With Range(SpalteKatalog.Address).Interior
.Color = 10066431
End With
Application.ScreenUpdating = True
End Sub
Nach Kopieren des Tabellenblatts Blatt 1 würde ich gern die besagten Spalten als Wert einfügen und die Formeln rausnehmen.
Anzeige
AW: Alle Spalten außer X kopieren & Werte
18.02.2021 14:20:27
ralf_b
da wäre es doch einfacher du kopierst alle Spalten also das ganze Blatt, ersetzt die Formelergebnisse durch Werte und löscht dann erst die überflüssigen Spalten. Den code hab ich noch nicht analysiert.
AW: Alle Spalten außer X kopieren & Werte
18.02.2021 14:29:24
excelliebe
So habe ich das bisher noch gar nicht gesehen. Das werde ich gleich ausprobieren.
Hier habe ich eventuell das Problem, dass sich die Formeln in den "aus VJ"-Spalten nicht stets die gleichen Formelbezüge haben bzw. diese wandern und die Spaltenüberschriften ändern sich.
Aber ich werde testen! danke!

300 Forumthreads zu ähnlichen Themen

Farbige Zellen suchen und Zuordnung auflisten
Excel-Opfer

Hallo zusammen,
ich hab nicht so die Ahnung von Makros und Automationen im Excel, bräuchte allerdings "dringend" eine Vereinfachung meines Excelchaos.
es dreht sich um folgende Problematik:
ich muss diverse Dienstpläne in unsere Personalplanung einarbeiten, leider liefert eine Abtei...
08.08.2008 06:47:00
Thread-ID: 1000143
16 Beiträge
Anzeige
Zellwerte aus markierten Tabellen übertragen
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Ich benötige nur die Ergebnisse der markierten Tabellenblätter. Diese in den markierten Tabellen...
06.09.2008 17:29:20
Thread-ID: 1007869
3 Beiträge
Spaltenwerte ausgewählter Tabellen kopieren
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Zur weiteren Verwendung möchte ich nur die Ergebnisse der markierten Tabellenblätter in eine neu...
07.09.2008 08:42:00
Thread-ID: 1007926
2 Beiträge
Anzeige
Liste deaktivieren, wenn Bedingung erfüllt
Timo

Hallo,
ich habe in der Zelle B13 eine Liste (über Gültigkeit--Liste) eingefügt, wo ein Nutzer zwischen den drei Optionen "Alle", "Erste Hälfte" und "zweite Hälfte" wählen kann. In Zelle B14 befindet sich ebenfalls eine ähnliche Liste auch u.a. mit der Option "Alle".
Jetzt würde ich ger...
23.09.2008 16:08:04
Thread-ID: 1011800
2 Beiträge
VBA-Werte aus Spalte in ComboBox
andreas

Hallo zusammen,
habe ein Formular da möchte ich die Daten nach den Werten in Spalte D Filtern. Dazu sollen die Daten ab Zeile 11 alphabetisch geordnet und jeder Eintrag nur einmal angezeigt in die Combobox eingelesen werden. Der ausgesuchte Wert wird dann als Criterium für die Filterfunktio...
25.09.2008 08:47:11
Thread-ID: 1012218
7 Beiträge
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Werte aus Tabelle finden
Florian

Hallo und Guten Morgen,
ich habe ein kleines Problem!
Ich habe eine Tabelle (Matrix), die Vergütungsgruppen und deren Unterteilung in Stufen, enthält.
Hier ist die Datei: https://www.herber.de/bbs/user/56583.xls
Wie kann ich für die Mitarbeiter z. B. in den Zellen "D2" bis "D7"...
07.11.2008 08:56:00
Thread-ID: 1022516
2 Beiträge
Liste auswerten mit Bedingungen
Bernd

Hallo zusammen,
ich würde gerne mal wieder eine lange Excel auswerten mit verschiedenen Bedingungen. Die relevanten Datensätze, auf die die Suchbedingung zutreffen, sollten in einem Extra-Registerblatt chronologisch aufgelistet werden. Wie kann ich das Problem vorzugsweise mit Excel-Boardmi...
19.11.2008 10:01:00
Thread-ID: 1025891
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
15
2
2
1
4
1
6
4
1
5
2
4
4
8
5
9
7
7
3
4
2
5
3
2
2