zeile für zeile in eine neues Tabellenblatt !
23.08.2004 11:39:23
abdi
tja...steh mal wieder richtig auf dem Schlauch
Was stimmt daran nicht:
ActiveSheet.Range("a17:a26") = Worksheets("coverseite").Range(Cells(z + 3, 13), Cells(z + 3, 22)).Value
Dann dieser Fehler:
"Laufzeitfehler "1004": Anwendungs- oder objeddefinierter Fehler"
Im Tabellenblatt "coverseite" steht das Zeugs, was dann in die neu angelegten blätter übertragen werden soll!
Das ist der ganze Code:
Sub zeile_zeile()
Dim zeile As Integer, z As Integer
Dim blatt As Object
Dim a As Integer
Dim blattname As Integer
For zeile = 1 To 56
a = a + 1
blattname = Worksheets("coverseite").Cells(a + 3, 1)
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = blattname
z = z + 1
ActiveSheet.Range("a17:a26") = Worksheets("coverseite").Range(Cells(z + 3, 13), Cells(z + 3, 22)).Value
Next zeile
End Sub
Danke für Eure Hilfe im Voraus
Gruß Abdi
Anzeige