Werte in neue Tabellenblätter



Excel-Version: Ab 8.0
nach unten

Betrifft: Werte in neue Tabellenblätter
von: Kai
Geschrieben am: 13.05.2002 - 10:27:37

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







nach oben   nach unten

Re: Werte in neue Tabellenblätter
von: Alex
Geschrieben am: 13.05.2002 - 11:42:25

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 :)

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Uhrzeit"