Das Archiv des Excel-Forums

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

Excel-Beispiele zum Thema " neue Tabellen mit Daten aus einer Tabelle versehen"

Suche über mehrere Tabellen download Benennen von Tabellenblättern mit Monatsnamen download
Druckseitenlinien im Tabellenblatt download Tabellenblattnamen in ein Listenfeld einlesen download
Suchbegriff über mehrere Tabellenblätter suchen. download Tabellenblätter benennen download
Tabellenblatt auswählen download Zustand von Tabellenblatt-Checkboxes ermitteln download
Tabellenblattnamen der VBE-Projekte ändern download Tabellenblattnamen nach Datum download
Gefilterte Daten in neues Tabellenblatt übertragen download Mehrmals vorkommende Werte in neues Tabellenblatt download
Kommentare in geschützte Tabellen einfügen download Tabellen vergleichen download
Grafiken im Tabellenblatt ordnen download Einzelnes Tabellenblatt speichern download
Tabellenblattnamen in eine ListBox einlesen download Tabellenblätter in umgekehrter Reihenfolge drucken download
Anwendername in Tabellenblatt eintragen download Druck aus mehreren Tabellenblättern auf eine Druckseite download
Zwei Tabellen wechselseitig ändern download Tabellen hinzufügen und sortieren download
Tabellenvergleich und Übernahme der Doppel download Tabellencode nach Kopieren des Blattes löschen download
Tabellenblatt in UserForm download Nach Eingabe Werte aus Tabellen Übernehmen download
Letztes Speicherdatum in die Fußzeile aller Tabellenblätter download Ausgewählte Tabellenblätter als eigene Arbeitsmappen speichern download
Den selben Bereichsnamen in mehreren Tabellenblättern download Textdatei in Tabellenblatt importieren download
Tabellen hinzufügen und mit Namen aus einer Liste belegen download Einzelnes Tabellenblatt unter Tagesdatum speichern download
Tabellen für die Werktage eines Monats erstellen download Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen download
Tabellenblattbereich als Email versenden download Daten in jeweils einer Spalte zweier Tabellen vergleichen download
Elemente in Tabellenblatt Pac-Man-artig steuern download Einen vorgegebenen Tabellenblattbereich in neue Arbeitsmappe download
Schaltfläche in einem Tabellenblatt ein- und ausblenden download Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren download
Letzte Verknüpfung in einem Tabellenblatt löschen download Tabellenblattbereich sortiert als Zellkontextmenü download
Ausgeblendetes Tabellenblatt bei Paßworteingabe anzeigen download Wert in Tabellenblatt suchen und alle Fundwerte in zweite Tabelle download
Bei Tabellenaktivierung im Extras-Menü eigenen Menüpunkt anzeigen download Tabellenblattinhalt unter Weglassung einer Spalte als Textdatei download
ComboBoxes per VBA-Code in Tabellenblatt erzeugen download In einem zweiten Tabellenblatt vorgegebene Zeilen beschriften download
Diagramm exportieren und in Tabellenblatt importieren download Arbeitsmappen- und Tabellenblattnamen auslesen download
Zeichentabelle StandBy download Wochentage Mo - Fr in Tabelle eintragen download
Arbeitszeittabelle und SVERWEIS-Formel download Daten von Tabelle1 auf Tabelle2 übertragen download
Wert in Tabelle suchen und in UserForm ausgeben download Fußballtabelle aktualisieren download
Termine in Jahrestabelle eintragen download Errechnung von Schulnoten anhand einer Punktetabelle download
Fußballergebnisse in Tabelle eintragen und zu HTML konvertieren download Tabelle vor der Bearbeitung schützen download
Geburtstage eines vorzugebenden Monats in neue Tabelle download Dateinamen in Tabelle einlesen download
Übernahme von Werten mit "x" in eine zweite Tabelle download Dateien einer Ordnerliste in einer Tabelle zusammenstellen download
Menue-Punkt mit Haekchen versehen download