Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Gleichen Abschnitt auf mehreren Blättern kopieren und untereinander einfügen
#1
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
Antwortento top
#2
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.
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter, 
der Misserfolg ist ein Waisenkind
Richard Cobden
Antwortento top
#3
Hallo, 19

grundsätzlich so: 19

.xlsb   Daten_aus_mehreren_Sheets_sammeln.xlsb (Größe: 29,95 KB / Downloads: 2)
________
Servus
Case
Antwortento top
#4
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 ...
Antwortento top
#5
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
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste