Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
472to476
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
472to476
472to476
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

zeile für zeile in eine neues Tabellenblatt !

zeile für zeile in eine neues Tabellenblatt !
23.08.2004 11:39:23
abdi
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zeile für zeile in eine neues Tabellenblatt !
dan
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
AW: zeile für zeile in eine neues Tabellenblatt !
abdi
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
AW: zeile für zeile in eine neues Tabellenblatt !
dan
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


Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige