Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
408to412
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
408to412
408to412
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Daten sortieren + automatisch Dateien erstellen

Daten sortieren + automatisch Dateien erstellen
Frankie
Hallo,
ich habe folgendes Problem: Ich habe eine Excel-Tabelle. In der ersten Spalte steht eine Nummer. Nach dieser Nummer möchte ich sortieren und dann soll für jede Nummer eine eigene Datei angelegt werden.
Also so:
1 Peter Müller 34556
---
2 Frank Meier 55243
2 Frank Meier 45786
2 Frank Meier 66111
---
3 Thilo Hunger 22111
3 Thilo Hunger 23786
und dann soll es bspw. eine Datei mit dem Namen "2" geben, in der nur die Datensätze 2,3 und 4 enthalten sind.
Wie realisiere ich so etwas am Besten?
THX
Frankie

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Zeilen in neuen Dateien speichern
Christoph
Hi Frankie,
ich geh mal davon aus, dass in der ersten Zeile eine Überschrift steht. Diese wird in die neuen Dateien ebenfalls kopiert. Außerdem werden die neuen Dateien im gleichen Verzeichnis wie die "Master-Datei" gespeichert. Die Daten stehen in der Master-Datei in einer Tabelle mit dem Namen "Tabelle1".
Wenn es im entsprechenden Verzeichnis schon Dateien mit dem zu erzeugenden Datei-Namen gibt, werden diese ungefragt überschrieben.
Dann funktioniert das z.B. so:
Gruß
Christoph
('ne Rückmeldung wäre nett)
Option Explicit

Sub VerteilDat()
Dim LRow As Integer, i As Integer, j As Integer, ZAnf As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ZAnf = 2
With ThisWorkbook.Sheets("Tabelle1")
.Cells.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess
LRow = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To LRow
For j = i To LRow
If .Cells(j + 1, 1) <> .Cells(i, 1) Then
Workbooks.Add
.Rows(1).Copy Cells(1, 1)
.Rows(ZAnf & ":" & j).Copy Cells(2, 1)
ActiveWorkbook.SaveAs (Cells(2, 1).Value)
ActiveWorkbook.Close
i = j
ZAnf = j + 1
Exit For
End If
Next j
Next i
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Anzeige
AW: Zeilen in neuen Dateien speichern
Frankie
Hi Christoph,
natürlich gibt´s ´ne Rückmeldung:
Hab besten Dank. Es scheint alles zu funzen. Super.
Eine Frage nur noch:
In der ersten Spalte stehen manchmal Nullen am Anfang, die nun weggelassen werden beim Dateinamen. Kann man die auch irgendwie erhalten?
THX
Frankie
AW: Zeilen in neuen Dateien speichern
08.04.2004 16:55:46
Christoph
Hi Frankie,
das passiert, wenn in SpalteA Zahlen im Format "00" stehen.
Das lässt sich abfangen, wenn du statt:
ActiveWorkbook.SaveAs (Cells(2, 1).Value)
jetzt:
ActiveWorkbook.SaveAs (Format(Cells(2, 1), "00"))
einträgst.
Gruß
Christoph
('ne Rückmeldung wäre nett)
Anzeige

238 Forumthreads zu ähnlichen Themen

Text und Datum in einer Zelle
lou38

Hallo
In a1 steht das Datum: 12.1.09
In a2 steht das Datum: 25.2.10
Mit der Formel in a3: ="Von "&a1&" bis "&a2
ergibt sich das Resultat: Von 39826 bis 40234 (trotz Formatierung t.m.jj)
Wie muss die Formel in a3 lauten um das gewünschte Resultat/Format
Von 12...
20.03.2009 14:44:21
Thread-ID: 1062221
3 Beiträge
Anzeige
Exceldatei automatisch in mehrere Dateien zerlegen
Sieben

Hallo Zusammen,
eine Frage zur Automatisierung von Arbeiten in Excel.
Habe jetzt eine Datei bekommen, in der pro Land ein Arbeitsblatt erstellt wurde. Ich möchte diese Arbeitsblätter einzeln als Exceldateien abspeichern.
Gibt es hier eventl. per VBA die Möglichkeit dazu, ohne jedes...
28.09.2009 15:33:46
Thread-ID: 1106048
3 Beiträge
Format Datum & Formel DBSumme
Bernd

Liebe Excel-Freaks,
ich bitte Euch um Eure Hilfe bei der Lösung von 2 Problemen.
Beide Problemstellungen sind in beiliegendem Excel-File in einer "echten" Aufgabenstellung dargestellt.
https://www.herber.de/bbs/user/66834.xls
Vielen herzlichen Dank vorab.
Bernd
27.12.2009 23:07:19
Thread-ID: 1126028
10 Beiträge
Anzeige
Text und negative Zahl in einer Zelle
Heike

Hallo zusammen
vielleicht könnt ihr mir helfen. Im Internet finde ich leider nichts...
Und zwar würde ich gerne in einer Zelle einen Text und eine Zahl (aus einer Formel) darstellen. Das funktioniert auch ganz gut bei positiven Zahlen mit der benutzerdefinierten Formatierung ("Stunden:...
23.07.2010 11:18:54
Thread-ID: 1168518
4 Beiträge
Text undDatum in einer zelle
Sebastian

Hallo,
ich habe mal eine kleine Frage.
Wenn ich in eine Zelle schreibe
="Text "&heute()
Dann gibt er mir für heute nur eine Zahl aus. Kann ich das Irgendwie so machen das hinter dem Text dann das richitge Datum steht?
Vielen Dank
Sebastian
29.07.2010 09:23:41
Thread-ID: 1169410
3 Beiträge
Wenn funktion mit nur mit bestimmten Text
Mattes

Hallo zusammen,
Es haben sich noch einge Fragen ergeben und zwar:
In die Eingangsgangsspalte kann "unter, über und wechsel" eingegeben werden.
Bei der Eingabe soll dann "unter" = 1 bei "über" = 0 und bei "wechsel" = 0,5 erscheinen
Wird ne WENN funktion aber wie erkennt Excel de...
20.12.2011 14:42:51
Thread-ID: 1243024
10 Beiträge
Text und Zahl in einer Zelle
Ralf H.

Hallo Excel - Experten,ich habe in einer Zelle Text und ganz rechts in derselben
Zelle die sechsstellige Art.Nr.
Nun kann ich ja mit =rechts(zelle;6) die äußeren 6 Stellen
abtrennen. Nun kommt das Problem: manche (nicht alle), haben
zwischen der 4. und 5. Stelle eine Leerzeile.
10.06.2002 14:17:25
Thread-ID: 127512
4 Beiträge
Daten löschen mit Autofilter, wenn keine Daten da
erkacol@gmx.de

allo zusammen,
ich möchte per VBA in einer Excel-Tabelle bestimmte Datensätze mit dem Autofilter auswählen und diese dann löschen. Das klappt soweit auch.
'Stornogrund 50 (Spalte L) und keine Matkennung (Spalte S = leer)
Selection.AutoFilter Field:=12, Criteria1:="50"
Selection....
15.03.2012 14:19:27
Thread-ID: 1254942
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
2
6
2
9
5
3
2
9
3
1
7
3
12
10
1
1
1
2
7
1
3
1
4
5
1