Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
120to124
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
120to124
120to124
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Werte in neue Tabellenblätter

Werte in neue Tabellenblätter
13.05.2002 10:27:37
Kai
Hallo zusammen,

ich habe ein Tabellenblatt mit folg. Einträgen:

M Schulz M_Schulz
H Meier H_ Meier
H Meier H_ Meier
F Schneider F_ Schneider
M Schulz M_ Schulz

Nun soll für jeden abweichenden Wert in Spalte C ein neues Tabellenblatt erstellt und benannt werden und die Werte in den gesamten Zeilen übertragen werden (von A bis Z). Im Beispiel hier sollen also die Blattinhalte auf 3 Tabellen verteilt werden, deren Namen "H_ Meier", "M_ Schulz" und "F_ Schneider" lauten.

Kann mir da jemand helfen?

Vielen Dank im voraus.

Gruss
Kai







1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Werte in neue Tabellenblätter
13.05.2002 11:42:25
Alex
Grüss dich!

Versuch volgendes.
Die Werte aus Tabelle2 werden in alle neue Tabellen übernommen. Wähle Bereich mit den Namen die als Tabellenblätternamen erscheinen sollen und lass folgendes Macro laufen:
--------------------------------------------------------------

Sub TabellenUndWerteEinfügen()

Dim Zelle As Range
Sheets("Tabelle2").Select
Cells.Select
Selection.Copy
Sheets("Tabelle1").Activate
For Each Zelle In Selection
Sheets.Add
ActiveSheet.Paste
ActiveSheet.Name = Zelle.Value
Next Zelle

Sheets("Tabelle1").Select
Application.CutCopyMode = False
Range("A1").Select

End Sub
-------------------------------------

Getestet. Funktioniert.


MFG Alex :)

Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige