Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon mexxibert vom 16.09.2021, 18:15 Options

Datensätze in Excel aus versch. Datenblättern automatisch zusammenführen

Hallo zusammen!

Ich möchte (gleichartige) Datensätze aus verschieden Datenblättern eines Excel-Sheets in einem weiteren Datenblatt zusammenfassen (reihen, aggregieren), sodass
eine Reihe an Datensätzen (automatisch) entsteht.

z.B.
Datenblatt 1:
Gruppe A - 12.09.09 - Kosten: 200,-
Gruppe A - 13.09.09 - Kosten: 100,-

Datenblatt 2:
Gruppe C- 12.09.09 - Kosten: 80,-

Aufgabe: Aggregier die Datensätze automatisch in Datenblatt D (nach Datum sortiert)
Gruppe A - 12.09.09 - Kosten: 200,-
Gruppe C- 12.09.09 - Kosten: 80,-
Gruppe A - 13.09.09 - Kosten: 100,-

Also:
Füge Datensatz des Datenblattes xy automatisch das Datenblatt D ein
und sortiere nach Datum.

Ich möchte dies mit Excel lösen.

Vielen Dank vorab für die Hilfe.

Antwort schreiben

Antwort 1 von coros vom 16.09.2021, 18:33 Options

Hallo,

dass kann man via VBA realisieren. Allerdings benötigt man dazu mehr Infos wie die Datei aufgebaut ist. Besser noch wäre eine Beispieldatei, da man dann sofort die richtige Struktur der Datei hat.
Eine Beispieldatei kann z.B. bei http://rapidshare.com hochgeladen werden. Man erhält dann einen Link, den man dann hier posten muss, damit wir die Datei downloaden können.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Antwort 2 von nighty vom 16.09.2021, 19:14 Options

hi all ^^

ein beispiel :-)

gruss nighty

3 Worksheets

Worksheets 1 + 2 spalten a+b+c daten,spalte b datum

zusammenfuehrung nach Worksheets 3 mit anschliessender sortierung

Option Explicit
Sub Sammeln()
    Dim WksIndex As Integer
    Dim WksIndexZeile As Integer
    Dim WksZielZeile As Integer
    Application.ScreenUpdating = False
    For WksIndex = 1 To Worksheets.Count
        If WksIndex <> 3 Then
            Worksheets(WksIndex).Activate
            WksIndexZeile = Worksheets(WksIndex).UsedRange.SpecialCells(xlCellTypeLastCell).Row
            WksZielZeile = Worksheets(3).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
            ReDim ArrWks(WksIndexZeile, 3) As Variant
            ArrWks() = Range("A2:C" & WksIndexZeile)
            Worksheets(3).Range("A" & WksZielZeile & ":C" & WksZielZeile + WksIndexZeile - 2) = ArrWks()
        End If
    Next WksIndex
    Worksheets(3).Columns("A:C").Sort Key1:=Worksheets(3).Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Application.ScreenUpdating = True
End Sub

Antwort 3 von nighty vom 16.09.2021, 19:17 Options

hi all ^^

wie immer korrigiert *grummel*

gruss nighty

Option Explicit
Sub Sammeln()
    Dim WksIndex As Integer
    Dim WksIndexZeile As Long
    Dim WksZielZeile As Long
    Application.ScreenUpdating = False
    For WksIndex = 1 To Worksheets.Count
        If WksIndex <> 3 Then
            Worksheets(WksIndex).Activate
            WksIndexZeile = Worksheets(WksIndex).UsedRange.SpecialCells(xlCellTypeLastCell).Row
            WksZielZeile = Worksheets(3).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
            ReDim ArrWks(WksIndexZeile, 3) As Variant
            ArrWks() = Range("A2:C" & WksIndexZeile)
            Worksheets(3).Range("A" & WksZielZeile & ":C" & WksZielZeile + WksIndexZeile - 2) = ArrWks()
        End If
    Next WksIndex
    Worksheets(3).Columns("A:C").Sort Key1:=Worksheets(3).Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Application.ScreenUpdating = True
End Sub

Antwort 4 von nighty vom 16.09.2021, 19:25 Options

hi all ^^

wo ich nur meinen kopf manchmal hab *hihi*

das geht natuerlich auch einfacher

gruss nighty

Option Explicit
Sub Sammeln()
Dim WksIndex As Integer
Dim WksIndexZeile As Long
Dim WksZielZeile As Long
Application.ScreenUpdating = False
For WksIndex = 1 To Worksheets.Count
If WksIndex <> 3 Then
WksIndexZeile = Worksheets(WksIndex).UsedRange.SpecialCells(xlCellTypeLastCell).Row
WksZielZeile = Worksheets(3).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
Worksheets(WksIndex).Range("A2" & ":C" & WksIndexZeile).Copy Worksheets(3).Range("A" & WksZielZeile)
End If
Next WksIndex
Worksheets(3).Columns("A:C").Sort Key1:=Worksheets(3).Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.ScreenUpdating = True
End Sub

Antwort 5 von nighty vom 16.09.2021, 19:26 Options

hi all ^^

meine einrueckung *huch*

gruss nighty

Option Explicit
Sub Sammeln()
    Dim WksIndex As Integer
    Dim WksIndexZeile As Long
    Dim WksZielZeile As Long
    Application.ScreenUpdating = False
    For WksIndex = 1 To Worksheets.Count
        If WksIndex <> 3 Then
            WksIndexZeile = Worksheets(WksIndex).UsedRange.SpecialCells(xlCellTypeLastCell).Row
            WksZielZeile = Worksheets(3).UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
            Worksheets(WksIndex).Range("A2" & ":C" & WksIndexZeile).Copy Worksheets(3).Range("A" & WksZielZeile)
        End If
    Next WksIndex
    Worksheets(3).Columns("A:C").Sort Key1:=Worksheets(3).Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Application.ScreenUpdating = True
End Sub

Antwort 6 von nighty vom 16.09.2021, 19:28 Options

hi all ^^

ich schaff es schon die datenbank zu befuellen *hehe*

gruss nighty

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken