Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
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
144to148
144to148
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aus einer Datei mach viele !

Forumthread: Aus einer Datei mach viele !

Aus einer Datei mach viele !
08.08.2002 11:54:50
Uwe
hallo ich brauche mal dringend eure hilfe...
ich habe folgendes prob. ich habe eine datei, in der ca. 500 zeilen mit werten stehen...a1 beinhaltet eine datensatzbeschriftung, die auch doppellt vorkommen kann, desweiteren gibt es eine spaltenüberschrift a1 - XX,
nun möchte ich durch ein makro erreichen, dass alle zeilen mit der gleichen beschriftung (min 8 zeichechen sollten berücksichtigt werden) in eine neue datei kopiert werden mit zeilenüberschrift. der dateiname sollte aus der jeweiligen zeilenbeschriftung die ab a2 steht erzeugt werden...

danke im voraus für eure mühe
mfg
Uwe

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: Aus einer Datei mach viele !
08.08.2002 12:32:36
Micha
hi,

probier das mal.

mfg

Sub onetomany()
Dim pfad as String, datname as String
Dim zeilenanz as Integer, i as Integer
Dim table1 as Worksheet, tablenew as Worksheet

pfad="C:\myfolder\"
Set table1 = ActiveSheet
Do While (table1.Range("A2")<>"")
datname = table1.Range("A2").Text
zeileanz = table1.Cells(tberl.Rows.Count, 1).End(xlUp).Row
Workbooks.Add pfad & datname & ".xls"
Set tablenew = Workbooks(datname & ".xls").Worksheets(1)
table1.Range("A1:XX1").Copy
tablenew.Activate
tablenew.Range("A1:XX1").Paste
For i = 2 to zeilenanz
If (table1.Range("A2").Text = datname) Then
table1.Range("A2:XX2").Copy
tablenew.Rows(2).Insert
tablenew.Range("A2:XX2").Paste
table1.Rows(2).EntireRow.Delete
End If
Next i
Workbooks(datname & ".xls").Close True
Loop
Workbooks(table1.Parent.name).Close False
End Sub

Anzeige
Re: Aus einer Datei mach viele !
08.08.2002 15:27:30
Uwe
hallo micha...erst mal ganz herzlichen dank für deine schnelle antwort...ich habe das makro einer schaltfläche zugeordnet und bekomme folgenden fehler Laufzeitfehler 424 ...und diese zeile ist unterlegt

zeileanz = table1.Cells(tberl.Rows.Count, 1).End(xlUp).Row

die variable ist leer?? woran kann das liegen???
nochmal ganz herzlichen dank
mfg
Uwe

Anzeige
;

Forumthreads zu verwandten Themen

Mappe mit variablen Dateinamen aktivieren
Peter

Hallöchen an alle,
wie kann man eine geöffnete Mappe über workbooks.activate oder windows.activate ansprechen, ohne dass man den vollen Dateinamen kennt.
Dateiname = "Auftragskennzahlen(*).xls"
Das * steht für eine Zahl, die mir nicht bekannt ist, sondern von einer Web-Datenbank ver...
07.08.2008 17:27:58
Thread-ID: 1000047
4 Beiträge
Automatische Umwandlung Punkt in Komma
Harry

Liebe Excel-Gemeinde,
ich möchte aus einer csv-Datei (die eine konstante Spalten- aber unterschiedliche Zeilenzahl hat) Text in Zahlen wandeln (also z. B. 1.234 in 1,234).
Dazu gibts im Forum viele Vorschläge. Ich habe dazu die Formel =WERT(WECHSELN(A1;".";",")) gefunden.
Diese Fo...
08.08.2008 21:00:38
Thread-ID: 1000413
5 Beiträge
Befehlsschaltfläche zum Versenden einer e-Mail
Roland

Hallo. Ich habe eine für mich sehr harte "Nuss" zu knacken. Ich habe über Excel ein Rechnungsprogramm erstellt. jetzt möchte ich diese Rechnung immer per e-mail versenden. Ich brauche eine Befehlsschaltföläche, die einen bestimmten Bereich als e_mail versendet. Also.... Die Schaltfläche sollte...
11.08.2008 13:17:00
Thread-ID: 1000827
2 Beiträge
Nie zweimal gleiche Werte hintereinander (Teil 2)
Kay

Hallo,
Ich hoffe, es kann mir nochmal jemand weiterhelfen.
Am 05.08. um 16.30 Uhr habe ich bereits schon mal einen Thread zu diesem Thema eröffnet, jedoch noch keine abschließende Lösung gefunden.
Mit Hilfe von "Hary" habe ich folgendes Sheet gebaut, welches auch soweit funktioniert...
11.08.2008 16:12:24
Thread-ID: 1000900
8 Beiträge
Tastenkombinaiton Format kopieren
erkoo

Wer kennt die Tastenkombination für Format kopieren und Format einfügen?
Danke erkoo
13.08.2008 16:28:20
Thread-ID: 1001592
3 Beiträge
Anzeige
Formatierung mit Makro läuft nur bei Eingabe
Ulrich

Hallo zusammen,
ich möchte Zellen einfärben, wenn in einer anderen Zelle der Wert "1" steht, und bei "0" wieder weiß - deswegen mit unten stehendem Makro im Tabellenblatt.
Das Problem ist, dass die Werte (0 und 1) per Formel erzeugt werden, und das Makro nur funktioniert, wenn ich tatsä...
14.08.2008 11:34:00
Thread-ID: 1001783
8 Beiträge
Vergleich aus Liste mit Einbindung Minimum/Maximum
Jörg

Hallo liebe Excelfreunde,
ich glaube, ich habe seit gestern einen kleinen Blackout und kann keine Formeln mehr mischen...
Problem: Aus einer Liste mit Werten soll jeweils der Minimum- und Maximumwert (gerundet oder ungerundet) angegeben werden, der als erstes (bei Min) oder letztes (bei...
15.08.2008 14:05:53
Thread-ID: 1002182
4 Beiträge
Vergleich aus Liste mit Einbindung Minimum/Maximum
Jörg

Hallo liebe Excelfreunde,
ich glaube, ich habe seit gestern einen kleinen Blackout und kann keine Formeln mehr mischen...
Problem: Aus einer Liste mit Werten soll jeweils der Minimum- und Maximumwert (gerundet oder ungerundet) angegeben werden, der als erstes (bei Min) oder letztes (bei...
15.08.2008 14:57:54
Thread-ID: 1002190
2 Beiträge
Zeilenmerkmale in Spalten umwandeln
MG_Learning

Hallo zusammen!
Ich habe keine Ahnung, wie ich aus folgender Tabellenstruktur: Beispiel:
A B C
London 20 Kinos
London 50 Gaststätten
London 10 Einkaufscentren
Paris 18...
17.08.2008 18:31:50
Thread-ID: 1002449
4 Beiträge
Spalten Ausblenden in freigegebener Arbeitsmappe
Marco

Hallo,
ich möchte gerne in einer freigegeben Arbeitsmappe bestimmte Spalten per Klick auf ein Symbol aus- und wieder einblenden können.
Mein Problem ist der Blattschutz in der freigegebenen Arbeitsmappe. Aufgrund meiner bescheidenen VBA-Kenntnisse, weiß ich nicht, an welcher Stelle des...
17.08.2008 22:56:20
Thread-ID: 1002488
3 Beiträge
Datum in der Userform formatieren
Nadine

Hallo,
ich habe im VBA eine Userform erstellt. In einem der Textfelder soll ein Datum stehen.
Wenn Buchstaben in dieser Textbox stehen, soll keine Übertrabung in die -von mir vorgesehen- Excelzelle erfolgen.
Bitte um HILFE!!!
Vielen Dank
Nadine
18.08.2008 16:17:00
Thread-ID: 1002660
7 Beiträge
Anzeige
Variable Zellposition ausfindig machen
Anett

Hallo zusammen,
ich habe Probleme bei der Generierung des VBA Codes für folgende Situation:
Ich habe eine Tabellenspalte mit 19 Zeilen (Bereich D8:D26). In eine dieser Zeilen der Tabellenspalte wird nur ein Wert eingetragen, jedoch nicht immer in der gleichen Zeile (dass heißt das eine...
18.08.2008 18:53:16
Thread-ID: 1002723
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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