AW: neue Tabellen mit Daten aus einer Tabelle versehen
26.09.2003 22:28:43
Beni
Hallo Stefan,
das ist der Code, wie Du es beschrieben hast.
Ich habe Dir eine Muster angehängt, mit drei Varianten.
Guss Beni
https://www.herber.de/bbs/user/1181.xls
Sub Blattspeichern()
Dim sPath As String, sWks As String, sFile As String
Application.ScreenUpdating = False
sPath = ActiveWorkbook.Path & "\"
Dim Default
sWks = [A1]
If sWks = "" Then Exit Sub
Titel = "InputBox"
Mldg = "Dateiname eingeben"
sFile = InputBox(Mldg, Titel)
prompt = "Dateiname"
If sFile = "" Then Exit Sub
i = 1 ' Zeile1
Do While Sheets("Namensliste").Cells(i, 1).Value <> ""
Sheets("Muster").Copy After:=Sheets(2 + j) 'Muster zum kopieren
j = j + 1
sWks = Sheets("Namensliste").Cells(i, 1).Value 'Namen aus Spalte1
ActiveSheet.Name = sWks
[A1] = Sheets("Namensliste").Cells(i, 2).Value 'Namen aus Spalte2
i = i + 1
Loop
ActiveWorkbook.SaveAs sPath & sFile
Application.ScreenUpdating = True
End Sub