Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
17.02.2020 07:20:02 |
Torsten L. |
|
|
|
17.02.2020 08:29:43 |
Torsten |
|
|
Daten aus verschiedenen variablen Excel-Reitern in ein neues Sheet kopieren |
17.02.2020 09:20:17 |
Torsten |
|
|
|
17.02.2020 09:35:30 |
Torsten |
|
|
|
17.02.2020 12:48:59 |
Torsten L. |
|
|
Von:
Torsten |
Datum:
17.02.2020 09:20:17 |
Views:
638 |
Rating:
|
Antwort:
|
Thema:
Daten aus verschiedenen variablen Excel-Reitern in ein neues Sheet kopieren |
Bombastisch!
es funktioniert, einzig bekommt Excel den Bezug zum Range nicht gebacken!? Aber gut, den Range habe ich dann manuell eingefügt.
Danke Torsten W. dein Code nimmt mir so viel Arbeit ab, das ist genial!!! Danke <3 <3 <3
Mein Aktueller Code:
Option Explicit
Sub ExcelExp_Short_Dataconclusion()
'Löschen von ausgeblendeten Reitern'
'
Dim wksWorksheet As Worksheet
For Each wksWorksheet In ActiveWorkbook.Worksheets
If wksWorksheet.Visible <> xlSheetVisible Then wksWorksheet.Delete
Next wksWorksheet
'
' Einfügen eines Neuen Reiters'
'
Dim wsNew As Worksheet
Set wsNew = Worksheets.Add
With wsNew
.Name = "Data"
.Move after:=Sheets(Sheets.Count)
End With
Set wsNew = Nothing
'
' Einfügen der Reiternamen und der dazugehörigen Daten (aus einem bestimmten Range) in den neuen Reiter'
'
Dim ws As Worksheet
Dim X As Integer
X = 1
With ActiveWorkbook.Sheets("Data")
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "Data" Then
.Cells(1, X) = ws.Name
ws.Range("E5:E77").Copy
.Cells(2, X).PasteSpecial xlPasteValues
ws.Range("O5:O77").Copy
.Cells(2, X + 1).PasteSpecial xlPasteValues
X = X + 2
End If
Next ws
End With
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
17.02.2020 07:20:02 |
Torsten L. |
|
|
|
17.02.2020 08:29:43 |
Torsten |
|
|
Daten aus verschiedenen variablen Excel-Reitern in ein neues Sheet kopieren |
17.02.2020 09:20:17 |
Torsten |
|
|
|
17.02.2020 09:35:30 |
Torsten |
|
|
|
17.02.2020 12:48:59 |
Torsten L. |
|
|