Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1788to1792
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

per vba Dateien erstellen

per vba Dateien erstellen
21.10.2020 10:49:05
haustein
Hallo Gemeinschaft,
habe eine Tabelle die so aussieht
Name____ Betriebsnummer
nun habe ich ein Tabellenblatt ("Formular")
in dieses Tabellenblatt sollen nun nacheinander an den Stellen a5-der Name und b6 -Betriebsnummer eingetragen werden - im Anschluss soll dieses Tabellenblatt automatisch gespeichert werden im Ordner Form - so soll mit allen Namen verwendet werden

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

Betreff
Datum
Anwender
Anzeige
AW: per vba Dateien erstellen
21.10.2020 11:51:11
UweD
Hallo
so?

Dim TB1, TB2, TB3, i As Integer, LR As Integer
Dim Pfad As String, Datei As String, Ext As String
Set TB1 = Sheets("Tabelle1")
Set TB2 = Sheets("Formular")
Pfad = "E:\Temp\Form\" 'mit \ am Ende
Ext = ".xlsx"
LR = TB1.Cells(TB1.Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte
For i = 2 To LR
TB2.Copy After:=Sheets(Sheets.Count)
With ActiveSheet
.Range("A5") = TB1.Cells(i, 1).Value
.Range("B6") = TB1.Cells(i, 2).Value
Datei = .Range("A5").Value
.Name = Datei
.Move
End With
With ActiveWorkbook
.SaveAs Pfad & Datei & Ext
.Close
End With
Next

LG UweD
Anzeige
AW: per vba Dateien erstellen
21.10.2020 13:34:11
haustein
ober steinstark - lieben Dank
Danke für die Rückmeldung (owT)
21.10.2020 13:54:56
UweD

322 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige