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
1656to1660
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
1656to1660
1656to1660
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pro Datensatz (Zeile), eine Exceldatei erstellen

Pro Datensatz (Zeile), eine Exceldatei erstellen
12.11.2018 17:07:00
Peter
Hallo zusammen
Ich habe folgendes Problem:
- Ich habe eine Exceldatei mit einer Titelzeile, ca. 500 Datensätzen (Zeilen) und 4 Spalten.
- In den Spalten A2:C sind die Daten und in der Spalte D2:D sind die Titel der zu erstellenden Dateien enthalten.
- Pro Zeile soll eine Exceldatei erstellt werden, wo bei die erste Zeile jeder Exceldatei die Titelzeile enthält und die zweite Zeile die Daten des entsprechenden Datensatzes.
- D.h. es werden 500 Exceldateien erstellt, mit jeweils nur zwei Zeilen, Titelzeile + eine Datenzeile.
- Diese sollen in folgendes Verzeichnis gespeichert werden:
S:\NIPLA\NIPLA 2.0\TechnischeZeichnungen_Hyperlink\NP mit Hyperlink
- Die Spalte B2:B enthält einen Hyperlink, dieser soll komplett als Hyperlink in die neue Exceldatei übernommen werden und funktionieren.
Beispielhaft folgend 15 Datensätzen, aus diesen 15 Exceldateien erstellt werden sollen.
Format..Typ...Hyperlink........Dateiname
NP0132..FBPR..SRD-013007.....NP0132_FBPR_SRD-0130078
NP0948..LFAN..spt019092........NP0948_LFAN_spt019092
NP0948..LFAN..spt019050........NP0948_LFAN_spt019050
NP1505..FBPR..spt018724........NP1505_FBPR_spt018724
NP1530..FBPR..spt018730........NP1530_FBPR_spt018730
NP1531..FBPR..SRD-0113955...NP1531_FBPR_SRD-0113955
NP1535..FBPR..spt019900........NP1535_FBPR_spt019900
NP1543..FBPR..spt030150........NP1543_FBPR_spt030150
NP1572..FBPR..spt018752........NP1572_FBPR_spt018752
NP1573..FBPR..SRD-0122540...NP1573_FBPR_SRD-0122540
NP1583..FBPR..spt018756........NP1583_FBPR_spt018756
NP1714..FBPR..SRD-0133189...NP1714_FBPR_SRD-0133189
NP1740..FBPR..SRD-0127865...NP1740_FBPR_SRD-0127865
NP1781..FBPR..SRD-0125766...NP1781_FBPR_SRD-0125766
NP1796..FBPR..SAM-0109824...NP1796_FBPR_SAM-0109824
Wie könnte man das in VBA lösen, wie müsste das Script aussehen?
Bin leider nicht so versiehrt in VBA und später sollen noch mehr als diese ersten 500 Dateien erstellt werden.
Vielen Dank für jede Unterstützung.
Viele Grüsse
Peter

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

Betreff
Datum
Anwender
Anzeige
AW: Pro Datensatz (Zeile), eine Exceldatei erstellen
12.11.2018 17:32:23
Rainer
Hallo Peter,
lade doch die Datei mit 15 Datensätzen mal hoch, dann weiß man auch wohin dein Hyperlink zielt.
Gruß,
Rainer
AW: Pro Datensatz (Zeile), eine Exceldatei erstellen
12.11.2018 19:13:49
Sepp
Hallo Peter,
so?
Modul Modul2 
Option Explicit 
 
Sub createFilesAndLink() 
  Dim lngRow As Long, lngMax As Long, objWB As Workbook, strFileName As String 
 
  Const cstrPath As String = "D:\Forum\Test\"  'Speicherpfad - anpassen! 
 
  On Error GoTo ErrorHandler 
 
  With Application 
    .ScreenUpdating = False 
    .EnableEvents = False 
    .AskToUpdateLinks = False 
    .DisplayAlerts = False 
    .Calculation = xlCalculationManual 
  End With 
 
  With ThisWorkbook.Sheets("Tabelle2") 'Tabellenname - anpassen! 
    lngMax = Application.Max(2, .Cells(.Rows.Count, 1).End(xlUp).Row) 
    For lngRow = 2 To lngMax 
      strFileName = cstrPath & .Cells(lngRow, 4).Text & ".xlsx" 
      Application.StatusBar = "Erstelle Datei (" & lngRow - 1 & " von " & lngMax - 1 & "): - " & strFileName 
      Set objWB = Workbooks.Add(xlWBATWorksheet) 
      .Rows(1).Copy objWB.Sheets(1).Cells(1, 1) 
      .Rows(lngRow).Copy objWB.Sheets(1).Cells(2, 1) 
      Call objWB.SaveAs(strFileName, 51) 
      objWB.Close 
    Next 
  End With 
 
ErrorHandler: 
 
  If Err.Number <> 0 Then 
    MsgBox "Fehler in Modul2" & vbLf & vbLf & "Prozedur:" & vbTab & "createFilesAndLink" & vbLf & _
      "Nummer:" & vbTab & Err.Number & vbLf & "Meldung:" & vbTab & Err.Description & vbLf & _
      IIf(Erl, "Zeile:" & vbTab & Erl, ""), vbExclamation, "Fehler!" 
    Err.Clear 
  End If 
 
  With Application 
    .ScreenUpdating = True 
    .EnableEvents = True 
    .AskToUpdateLinks = True 
    .DisplayAlerts = True 
    .Calculation = xlCalculationAutomatic 
  End With 
 
  Set objWB = Nothing 
End Sub 
 
 


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

 ABCDEF
1Gruß Sepp
2
3

Anzeige
AW: Pro Datensatz (Zeile), eine Exceldatei erstellen
13.11.2018 08:41:13
Peter
Hallo Sepp
Funktionert PERFEKT!
Ein grosses DANKE SCHOEN an Dich!
Viele Grüsse
Peter

157 Forumthreads zu ähnlichen Themen

Wie lange ist eine Datei/aktuelle Datei offen
Urmila

Hallo,
wie kann ich per VBA prüfen, wie lang eine bestimmte oder aktuelle Datei schon offen ist?
Kann man das im Format mm:ss anzeigen lassen?
LG
Urmila
05.09.2008 08:55:09
Thread-ID: 1007577
7 Beiträge
Anzeige
Fenster zum öffnen einer Datei
Patrick

Hallo zusammen,
ich habe per Rekorder eine Datei geöffnet. Leider schreibt der Rekorder genau diesen Dateinamen in das VBA-Programm.
1. Frage: Wie kann ich es hinbekommen, dass nur das Fenster geöffnet wird, der User dann die richtige Datei flexibel auswählt und dann das Programm fortge...
30.07.2009 07:57:35
Thread-ID: 1092399
12 Beiträge
Fehler beim öffnen einer erstellen Datei
k

Hallo,
wenn ich per Makro einen Auszug aus einer Mappe (einzelne Blätter werden in eine Neue Kopiert) mache und dieser dann einen Namen gebe wie folgt:
ActiveWorkbook.SaveAs SavePath & ADM & "_Daten_" & Date & "_" & Format(Time, "hh_mm_ss") & ".xls" 'Speichert d...
03.08.2009 10:17:53
Thread-ID: 1093141
4 Beiträge
Anzeige
WORD-Datei in EXCEL-Datei umwandeln
Werner

Excel-Level: befriedigend
Hallo Freunde,
habe mal ein Frage, die sich auf Excel und Word zugleich bezieht: Was muss man tun, um ein mit WORD
erstelltes Manuskript, also eine Word-Datei, in eine Excel-Datei umzuwandeln. Die hier zur Debatte stehende WORD-Datei ist wie
folgt auf...
22.10.2009 14:24:46
Thread-ID: 1111301
7 Beiträge
Makro zum öffnen von Dateien
Dateien

Hallo zusammen,
ich habe ein kleines Problem das sich aber sicherlich mit euerer Hilfe lösen lässt. Bitte nehmt bei euren Antworten aber Rücksicht darauf, daß ich von Makros bisher überhaupt keine Ahnung habe. - Also bitte erklärt es für dumme (damit auch ich es verstehe ;-) ).
Ich habe...
22.11.2009 12:05:42
Thread-ID: 1119129
2 Beiträge
vor Einfügen einer csv-Datei Dateidatum prüfen | Herbers Excel-Forum
Jürgen
Hallo Excel - Forum,
habe ein Problem - schätzungsweise ein kleines - was ich durch Recherche nicht lösen konnte. Vielleicht könnt Ihr mir hier helfen:
Ich habe eine offene Arbeitsmappe in die ich eine csv-Datei einlesen möchte. Das ist soweit kein Problem. Ich möchte aber gerne, dass vor d...
14.01.2010 13:51:17
Thread-ID: 1129903
3 Beiträge
Makro Frage beim Öffnen von pdf Dateien verhindern
pdf

Hallo Herber Fans,
ich baue gerade an einem Code, der den Wert der ActiveCell als Dateinamen annimmt und aus einem vorgegebenen Pfad die Datei öffnen soll. Wenn keine Dateiendung angegeben ist, werden alle gängigen Endungen durchgeloopt. Bei .pdf Dateien habe ich nun das Problem, daß die Fr...
15.01.2010 17:42:31
Thread-ID: 1130350
3 Beiträge
Wenn Datei offen keine weitere Datei öffnen
Thomas

Hallo,
ich habe aufgrund einem sehr eigenartigen Problems und aus Performance Gründen die Idee ob es wohl möglich ist per VBA Excel anzuweisen das wenn diese Datei geöffnet ist, keine weiteren Dateien zu öffnen, also das es irgendwie gesperrt ist.
Mein Problem siehe: https://www.herber....
30.04.2010 11:41:22
Thread-ID: 1154543
3 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
6
3
11
3
1
6
1
2
2
2
1
5
1
8
6
4
4
15
3
2
10
1
3
1
5