Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.10.2025 15:11:39
Werte aus Zellen in Punktdiagramm, Beschriftung
10.10.2025 11:07:34
"Text in Spalten" ändert die Zahl von 21.1 in 45678
10.10.2025 10:11:05
geöffnete Excel-Datei mit variablen Namen finden
10.10.2025 09:38:53
Spalten aus 2 Tabellenblättern mit Array abgleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Spalten außer X kopieren & Werte

Forumthread: 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
Anzeige

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!
Anzeige
;

Forumthreads zu verwandten 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
Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
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
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
Werte mit Makro auslesen und zusammensetzen
Hans

Hallo,
Wer kann mir da helfen?
Makro:
Sub test()
Dim sAntwort As String
Dim lZeile As Long
Dim iSpalte As Integer
Dim bGefunden As Boolean
sAntwort = Selection.Address(0, 0)
For iSpalte = 2 To 5
For lZeile = Selection.Row To 1 Step -1
If Left(Ce...
20.11.2008 13:37:00
Thread-ID: 1026403
3 Beiträge
Werte in einer Spalte(5zeilig) suchen und löschen!
adrian

Hi,
kann mir jemand erklären warum das nicht funzt funktioniert?
liegt es daran, dass ich "SpalteR" als range deklariert habe, anstatt als string?
nur wie durchsuche ich dann den "string"?
Möchte nur folgendes:
Falls Werte in der Spalte (Bereich von nur 5 zeilen) sind, lösch...
24.11.2008 12:04:00
Thread-ID: 1027253
5 Beiträge
doppelte werte im Array aus Tabelle (dim)
chris

Hallo VBA Profis und guten morgen,
ich habe eine frage zu einem Code wie ich diesen am besten erstelle.
Ich habe eine Tabelle mit daten in einer Spalte(untereinander)
Jetzt möchte ich diese zeile mit diesem Makro einlesen aber nur einmal vorkommende werte.
Also wenn ein Wert dop...
15.01.2009 07:43:25
Thread-ID: 1039878
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige