Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1652to1656
1652to1656
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte Spalten auto. in neue .xlsx speichern.

Forumthread: Bestimmte Spalten auto. in neue .xlsx speichern.

Bestimmte Spalten auto. in neue .xlsx speichern.
19.10.2018 11:20:19
Jan
Hallo an alle,
ich habe eine große "Datenbank" die permanent geändert wird. Ich möchte den Anwendern nur die Daten zukommen lassen, die für Sie relevant sind.
Dazu denke ich an ein Makro in dem ich die beliebige Spalten (z.B. A:A; H:H; ZZK:ZZK) vorgebe; diese in eine neue Datei eingefügt werden und die Datei gespeichert wird.
Wenn möglich sollen nur die Werte (keine Formeln etc.) aus den sichtbaren Zellen pro Spalte kopiert werden.
Die Anzahl der Spalten variien dabei ständig.
Kann mir jemand weiterhelfen, wie man da am besten vorgeht?
Gruß
Jan
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Spalten auto. in neue .xlsx speichern.
19.10.2018 13:48:22
UweD
Hallo
so?
Modul1 
Option Explicit 
 
Sub Kopieren() 
    Dim TB1, TB2, RNG As Range, Spalte 
    Dim Pfad As String, DName As String, Ext As String 
     
    'Anpassen ***** 
    Set TB1 = Sheets("Tabelle1") 
    Set RNG = Intersect(TB1.Range("A:A, H:H, K:K"), TB1.UsedRange) 
    Pfad = "X:\Temp\" 
    DName = Format(Date, "YYYY_MM_DD") 'Dateiname 
    Ext = ".xlsx" 
    '*************** 
     
    'Neues Blatt anlegen und in Neue Datei separieren 
    Sheets.Add.Move 
     
    Set TB2 = ActiveSheet 
     
    'für jeden Bereich die Werte übertragen 
    For Each Spalte In RNG.Columns 
        TB2.Range(Spalte.Address).Value = Spalte.Value 
    Next 
     
    'Datei Speichern 
    ActiveWorkbook.SaveAs Filename:=Pfad & DName & Ext, FileFormat:=xlOpenXMLWorkbook 
 
End Sub

LG UweD
Anzeige
AW: Bestimmte Spalten auto. in neue .xlsx speichern.
24.10.2018 16:35:56
Jan
Vielen Dank das sieht sehr gut aus. Gibt es eine Möglichkeit die Formatierung der Zellen mit zunehmen? Bei 8 und mehr Spalten gibt es schon mal Fehler aber ich bin noch am ausprobieren woran das liegt.
Aber erstmal vielen Dank für das tolle Programm.
Gruß
Jan
;

Forumthreads zu verwandten Themen

Spalten als Zeilen ziehen
Timo

Hallo,
ich habe ein relativ simples problem und hoffe, es auch möglichst simpel beschreiben zu können:
In einer Spalte (Sagen wir Spalte A) habe ich untereinander verschiedenen Werte stehen.
Jetzt möchte ich gern auf einem anderen Tabellenblatt genau diese Werte in eine Zeile sch...
03.09.2008 11:43:00
Thread-ID: 1007060
5 Beiträge
Spalte auslesen und in eine neue schreiben
Andrej

Hallo,
ich sitz seit gestern an nem Excel Dokument und habe es schon mit Formeln versucht, aber das alles nicht das Wahre.
Gibt es eine Lösung bei der ich aus der Spalte C nach bestimmten Sachen suchen lassen, die ich immer vorgeb, wie z.b. XY oder AB und er mir auch der Vorgabe nach in...
19.11.2008 12:46:00
Thread-ID: 1025987
13 Beiträge
Spalten vergleichen und Ausgabe in neues Worksheet
Bolo

Hallo liebe Community,
ich habe hier eine Tabelle in der in Zeile 4 verschiedene Daten (von Datum) stehen.
Bsp.:
C4+D4=01.01.2009 / E4+F4=02.01.2009 / G4+H4=03.01.2009 usw.
So in C5 und D5 (...) stehen Werte. Es gibt immer für jeden Tag 2 Werte.
Nun soll das Makro die beiden...
01.04.2009 15:21:36
Thread-ID: 1066031
3 Beiträge
Anzeige
Kann keine Spalten mehr im Sheet hinzufügen
vux

Hallo,
einfaches Prob. - mein Sheet ist irgendwie von der Spaltenanzahl beschränkt: bin bei Spalte "IV" und kann keine Spalten mehr hinzufügen.
Excel 2003, hab ein Sheet aus SPSS rüberkopiert.
Wie kann ich das fixen? Oder ist Excel in der Tat ab Spalte "IV" zu?
Danke!
08.05.2009 19:12:57
Thread-ID: 1073991
5 Beiträge
Spalten in neues Tabellenblatt kopieren
Doreen
Ich arbeite seit langem mal wieder mit Excel und hab alles vergessen :-(
Ich habe ein Tabellenblatt in dem ich alle meine Informationen pflege. Einfach verschiedene Daten (z.B. Liefertage, Lieferdateinname, Land, etc.) in Spalten runter geschrieben, ohne Bezüge - nichts, einfach nur ne Liste....
22.07.2009 11:53:21
Thread-ID: 1090482
2 Beiträge
Einfügen von Bildern in Kommentar geht nicht mehr
Bildern

Hallo zusammen,
ich habe ein Problem mit folgenden Codezeilen:
For spalte = 4 To 13
'*********
If Cells(zeile, spalte).Hyperlinks.Count 1 Then 'Abfrage, ob Hyperlink vorhanden
GoTo weiter2
Else
Dim mycom As Object
On Error Resume Next
Pfad = ActiveWorkbook.P...
30.11.2009 15:34:28
Thread-ID: 1121036
2 Beiträge
makro geht nach Spalten einfügen nicht mehr
morbiuz

Hallo liebes Forum,
Möchte ich in einem Makro den Wert aus der Zelle A1 auslesen, geht das ja ohne probleme mit...
variable = tabelle1.range("a1").value
Fügt ein User jedoch manuell 2 Spalten ein, verschiebt sich ja die Original Zelle auf die Zelle C1.
Wie muss ich meine Zelle f...
19.05.2010 18:33:41
Thread-ID: 1157897
3 Beiträge
Spalten markieren und in neue Datei speichern
Thomas

Hallo alle zusammen,
ich habe hier eine Aufgabenstellung und komme einfach nicht weiter.
Ich möchte folgendes Problem lösen:
In meiner Excel-Datei sind 40.000 Zellen die in neue Excel-Dateien verteilt werden sollen, jeweils 2000 Zeilen in einer Datei.
Also muss das Skript die er...
15.09.2010 10:08:26
Thread-ID: 1177645
2 Beiträge
Spalteninhalte auslesen u. in neue Tab. schreiben
Peter

Liebe Excelcracks
Ich habe folgendes Problem:
Ich habe eine Exceldatei mit ca. 160 Tabellenblättern. Aus jedem Tabellenblatt brauche ich die Eintragungen aus den Spalten B, C, D und E. Diese sollen untereinander in einem neuen Tabellenblatt aufgelistet werden. Hier das Beispiel mal mit...
30.11.2010 13:06:08
Thread-ID: 1189317
3 Beiträge
beim kopieren im Neue Mappe Spalte Löschen
Karel

Hallo Leute,
Habe ein Dank dieses Forum eine Schöne Code (vom Sepp) erhalten.
er Kopiert ein Tabelle in eine Neue Mappe Eins zu Eins inklusiv Formatierung, Bilder und Ohne Makros einwandfrei.
Jetzt möchte ich noch diese Code Ergänzen wenn das geht mit, wenn im erste Zeile eine X dan...
22.03.2011 17:00:20
Thread-ID: 1206794
5 Beiträge
ich kann keine Spaltenverknüpfung auswählen
j.kanuff


Hallo zusammen,
ich habe das merkwürdige Phänomen, dass nach dem Kopieren einer Spalte das Icon daneben nicht eingeblendet wird, sodaß ich nicht bestimmen kann dass die Spalten verknüpft werden können.
Bei manchen kopierten Spalten wird das Symbol am Spaltenkopf eingeblendet,
b...
26.03.2011 14:54:13
Thread-ID: 1207706
5 Beiträge
Erneuern benutzter Spalten
johannes

Hallo
Ich füge in mein Excel per VBA immer 2 Spalten hinzu um den alten stand zu sichern.
Jetzt ist es jedoch so das ich mittlerweile am rechten Rand angekommen bin und es dann den Fehler 400 gibt.
Um dies zu verhindern habe ich folgenden Code
If Cells.End(xlToRight).Column >...
24.08.2011 10:51:23
Thread-ID: 1227377
9 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