Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1500to1504
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
Inhaltsverzeichnis

Stammdaten in Vordruck

Stammdaten in Vordruck
06.07.2016 12:29:12
Sascha
Hallo allerseits,
ich habe ein Anliegen, dass leider meien VBA-Kenntnisse übersteigt.
Ich möchte aus einer Stammdatenliste für Projekte die Stammdaten in einen Vordruck kopieren (seperate Excelmappe) und diese dann unter dem Namen des Projektes speichern.
Für ein Projekt bekomme ich das hin, aber wenn man mehrere hunderte hat , dann braucht man wohl eine Schleife.
Ich habe einfach mal exemplarisch was vorbereitet, wie es aussehen könnte bzw müsste.
Ich hoffe, ihr könnt mir vielleicht weiterhelfen und bedanke mich schon Vorab für eure Unterstützung.
Gruß/Sascha
https://www.herber.de/bbs/user/106796.xlsx
https://www.herber.de/bbs/user/106795.xlsx

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

Betreff
Datum
Anwender
Anzeige
AW: Stammdaten in Vordruck
06.07.2016 13:15:42
UweD
Hallo
- in die Stammdatendatei in ein Modul
- Speichern unter xlsm
Option Explicit 
 
Sub Separieren() 
    On Error GoTo Fehler 
    Dim WB2, TB2 
    Dim LR1 As Integer, i As Integer 
    Dim Pfad As String, VL As String, Ext As String, NeuNam As String 
     
    '---anpassen--- 
    Pfad = "C:\Temp\Test\" 
    VL = "Vorlage" 
    Ext = ".xlsx" 
    NeuNam = "Projekt_" 
    '--------------- 
     
    With ThisWorkbook.Sheets("Stammdaten") 
        Set WB2 = Workbooks.Open(Pfad & VL & Ext) 
        Set TB2 = WB2.Sheets("Tabelle1") 
        LR1 = .Cells(.Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte 
        For i = 2 To LR1 
            TB2.Range("D6") = .Range("A" & i) 
            TB2.Range("F6") = .Range("B" & i) 
            TB2.Range("L5") = .Range("D" & i) 
            TB2.Range("E8") = .Range("I" & i) 
            'usw 
             
            WB2.SaveAs Filename:=Pfad & NeuNam & .Range("B" & i) & Ext, _
                FileFormat:=xlOpenXMLWorkbook 
        Next 
        WB2.Close False 
    End With 
    Err.Clear 
Fehler: 
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear 
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 15 - mit VBAHTML 12.6.0


Gruß UweD

Anzeige
AW: Stammdaten in Vordruck
07.07.2016 10:32:34
Sascha
Hallo Uwe,
vielen Dank für deine schnelle und kompetente Antwort.
Hat alles super geklappt.
Gruß
Sascha

AW: gern geschehen owt
07.07.2016 11:29:34
UweD

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige