Alle Tablettenblätter abarbeiten ab dem 2. Sheet
07.10.2018 10:39:14
Marc
Ich komme nicht weiter, ich habe einen VBA Code begonnen zu schreiben. Er ist noch nicht fertig, ich habe mal Schritt für Schritt begonnen, da ich im VBA noch ein Anfänger bin. Zuerst steuerte ich ein einzelnes Worskheet an, das funktionierte gut. Die Daten wurde an das Zielsheet "Abacus" übertragen. Der nächste Schritt sollte sein, alle Tabellenblätter ab dem 2. abzuarbeiten (das ist "Abacus"). Da geht gar nichts mehr.
Ich danke euch für eure Hilfe :)
Es grüsst euch
Marc
Mein Code:
Sub Daten_kopieren()
' ich möchte alle Tabellenblätter abarbeiten
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Index > 1 Then
' Übertrag von der Bezeichnung
Startzeile = 8
Startspalte = 7
Zielzeile = 1
Zielspalte = 1
AnzahlZeilen = Cells(Rows.Count, 1).End(xlUp).Row
Do While Startzeile