Zelle autom. auslesen
17.03.2005 08:38:00
Frank
mein untenstehendes makro macht folgendes. Es geht in das Tabellenblatt "Tabelle1" sucht in Zeile 2 ab Spalte 2 einen Wert - wenn ja wird ein neues Tabellenblatt mit diesem Namen erstellt und die werte dieser Spalte ebenfalls übertragen . Funktioniert super. Möchte aber noch was anhängen - es soll auch der Wert der Zelle B1 in das neue datenblatt auf A1 übernommen werden. Dachte geht über cells und copy denkste - doch nicht so einfach.
hat vielleicht jemand einen Tip?
mfg Frank
Sub Create_Sheets()
Dim i As Integer
Dim qWks As Worksheet, tWks As Worksheet
Dim ziel
Set qWks = Worksheets("Tabelle1")
With qWks
For i = 2 To .Range("IV2").End(xlToLeft).Column
If .Cells(2, i) <> "" Then
Set tWks = ThisWorkbook.Worksheets.Add(After:=Worksheets(Worksheets.Count))
tWks.Name = .Cells(2, i).Text
.Range(.Cells(3, i), .Cells(.Cells(65536, i).End(xlUp).Row, i)).Copy tWks.Cells(2, 3)
ziel = tWks.Name
End If
Next i
End With
End Sub