Guten Tag zusammen,
ich habe eine Datei mit 80 Blättern, welche alle den gleichen Aufbau haben.
Jetzt würde ich gerne folgendes machen:
Auf jedem Blatt die Zellen E4-E8 kopieren und anschließen untereinander auf einem leeren Blatt einfügen.
Geht das ?
Danke
Hallo,
natürlich geht das. Da gleichartige Daten nicht über mehrere Tabellenblätter verteilt werden sollten, empfehle ich, das noch einmal einer kritischen Überprüfung zu unterzeihen.
Mit VBA kenne ich mich leider gar nicht aus :(
Makro aufzeichnen geht noch, aber dann muss ich den Schritt ja vorher auch ausführen :D
Ich habe halt 80 Blätter aus verschiedenen Ländern, und in den bestimmten Zellen stehen halt immer die Umsätze der Quartale.
Diese würde ich gerne so dachte ich es mir mit Shift die 80 Blätter kopieren die Zellen welche ich benötige kopieren und einfügen.
Nur stehen die Zahlen dann natürlich nicht untereinander ...
Hab es hinbekommen
Sub exercise()
Dim ws As Worksheet
Dim rng As Range
Dim pos As Integer
pos = 4
Dim sheet_nr As Integer
Dim value_celle As String
For sheet_nr = 23 To 140 Step 1 'For Words = 10 To 1 Step -1
Debug.Print Sheets(sheet_nr).Name
Sheets("Zusammenfassung").Range("A" & pos).Value = Sheets(sheet_nr).Name
Sheets("Zusammenfassung").Range("O" & pos & ":S" & pos).Value = Sheets(sheet_nr).Range("CK4:CO4").Value
Sheets("Zusammenfassung").Range("B" & pos & ":F" & pos).Value = Sheets(sheet_nr).Range("BI4:BM4").Value
pos = pos + 1
Next sheet_nr
'
' For Each ws In ActiveWorkbook.Worksheets
' Debug.Print ws.Name & " >>" & ws.Index
'
' Next ws 'A1:C1
End Sub