Liste auf Tabellen verteilen
25.10.2006 14:45:00
michael
Ich habe eine Liste ,in Spalte A mit Zahlen und in Spalte B mit Text.
(Muster auf 10 Reduziert)
..A .. B
8000 ..micha 1
8001 . micha 2
8002 . micha 3
8003 . micha 4
8004 . micha 5
8005 . micha 6
8006 . micha 7
8007 . micha 8
8008 . micha 9
8009 . micha 10
===================================
Mit diesem Makro füge ich 10 Tabellen ein und beschrifte sie mit Zahlen.
===================================
Sub Zehn_Blätter_einfügen_mit_Namen_aus_A1bisA10()
Dim x As Integer
For x = 1 To 10
Sheets.Add after:=ThisWorkbook.Sheets(Sheets.Count)
ThisWorkbook.Sheets(Sheets.Count).Name = _
ThisWorkbook.Sheets("Tabelle1").Cells(x, 1).Value
Next
End Sub
======================================
mit diesem Makro schreibe ich den Tabblatt Namen in ( A1 )
der neuen Tabellen
======================================
Sub PrintTabBlattZelleA1()
Dim micha
Dim blattName
For a = 1 To Worksheets.Count
micha = a
Worksheets(micha).Select
blattName = ActiveSheet.Name
[a1] = (blattName)
Next a
End Sub
=======
Jetzt meine Bitte bzw.Frage
wie bekomme ich aus meiner liste die Bezeichnungen in B1
der neuen Tabellen.
Wenn es fertig ist soll das jeweilige TabBlatt so aussehen.
A1 8000 .B1 micha 1.
Tabellenblattname = 8000.
Kann mir bitte wer helfen ?
.
.trau mich fast nicht fragen , geht das ganze mit (einem)statt drei Makros auch ;)
Danke michael