neue Tabellen mit Daten aus einer Tabelle versehen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: neue Tabellen mit Daten aus einer Tabelle versehen
von: Stefan
Geschrieben am: 26.09.2003 10:03:52

Hallo...

vielleicht hat jemand eine Idee (eine Suche im Archiv brachte nicht die gewünschten Ergebnisse, vielleicht auf Grund falscher Suchbegriffe).
Ich möchte gerne auf Basis einer Excel-Tabelle mehrere neue Tabellen (in einer einzigen Datei erstellen).
Dabei ist es notwendig in jede neue Tabelle bestimmte Werte einer Zeile in bestimmte Zellen der neuen Tabellen einzufügen (wobei die Zielzellen immer gleich sind). Wenn dann auch noch der Name aus der besagten Ursprungstabelle je Tabelle vergeben werden würde...wäre mein Glück perfekt :-)

Datei X Tabelle 1: (enthält die gesamten Ausgangsdaten)
diese sollen dann jeweils in eine neue Tabelle (in einer Datei !) eingefügt werden.
A1: Blattname -> Datei Y Tabelle1=Blattname
B1: Wert1 -> Datei Y Zelle A1
.
.
A2: Blattname -> Datei Y Tabelle2=Blattname
B2: Wert1 -> Datei Y Zelle=A1
.
.
.
Hat jemand eine Idee oder vielleicht einen Tip wo ich Informationen finden kann (bzw. welcher Suchbegriff zum gewünschten Erfolg führen kann)???

Vielen Dank

Gruß

Stefan

Bild


Betrifft: AW: neue Tabellen mit Daten aus einer Tabelle versehen
von: Beni
Geschrieben am: 26.09.2003 22:28:43

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



Bild


Betrifft: AW: neue Tabellen mit Daten aus einer Tabelle versehen
von: stefan
Geschrieben am: 29.09.2003 11:36:43

Hallo Beni,

recht herzlichen Dank für den Code....Hat mir sehr geholfen !

Danke nochmal....

Gruß

Stefan


 Bild

Beiträge aus den Excel-Beispielen zum Thema " neue Tabellen mit Daten aus einer Tabelle versehen"