Microsoft Excel

Herbers Excel/VBA-Archiv

zeile für zeile in eine neues Tabellenblatt !

Betrifft: zeile für zeile in eine neues Tabellenblatt ! von: abdi
Geschrieben am: 23.08.2004 11:39:23

Hallo zusammen,

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
  


Betrifft: AW: zeile für zeile in eine neues Tabellenblatt ! von: dan
Geschrieben am: 23.08.2004 12:26:31

Hallo, weare es so moeglich? :
Worksheets("coverseite").Range(Cells(z + 3, 13), Cells(z + 3, 22)).Copy
ActiveSheet.Range("a17").PasteSpecial Paste:=xlPasteValues, Transpose:=True
gruss dan


  


Betrifft: AW: zeile für zeile in eine neues Tabellenblatt ! von: abdi
Geschrieben am: 23.08.2004 12:49:24

Hallo Dan,

da bringt er mir den selben Fehler.

Es liegt irgendie an dieser "For" Schleife!
für a merkt er sich die 1 + ... , aber bei einer 2. "variablen" da bleibt er hängen!

Kann mir da jemand weiterhelfen?

Danke


  


Betrifft: AW: zeile für zeile in eine neues Tabellenblatt ! von: dan
Geschrieben am: 23.08.2004 13:29:32

So koennte es funzen :


Sub zeile_zeile()
    Dim zeile As Integer, z As Integer
    Dim new_blatt As Object
    Dim As Integer
    Dim blattname As String
    
    For zeile = 1 To 56
        a = a + 1
        blattname = Worksheets("coverseite").Cells(a + 3, 1)
        Set new_blatt = Worksheets.Add(after:=Worksheets(Worksheets.Count))
        new_blatt.Name = blattname
        
        z = z + 1
        ' ActiveSheet.Range("a17:a26") = Worksheets("coverseite").Range(Cells(z + 3, 13), Cells(z + 3, 22)).Value
        With Worksheets("coverseite")
            .Activate
            .Range(Cells(z + 3, 13), Cells(z + 3, 22)).Copy
        End With
        
        new_blatt.Range("a17").PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Next zeile

End Sub

     Code eingefügt mit Syntaxhighlighter 2.5



 

Beiträge aus den Excel-Beispielen zum Thema "zeile für zeile in eine neues Tabellenblatt !"