Tabellenblätter mit Datenbank verknüpfen

Forumthread: Tabellenblätter mit Datenbank verknüpfen

19.06.2024 11:21:08

Sebastian3011

Hallo zusammen,

leider habe ich ein für mich recht großes Problem, welches ich seit 2 Tagen nicht lösen kann.

Aktueller Stand:

Ich habe eine Mappe in dieser gibt es das Tabellenblatt "Datenbank" in dieser befindet sich die Tabelle "Buchungen". In der Tabelle "Buchungen" befindet sich in Spalte D / für die Tabelle ist es die 3 Spalte, eine bestimmte Kennung (in diesem Falle 24.00) diese Kennung habe ich von 24.00 bis 24.16 also 17 Stück.
Jede dieser Kennungen hat ein extra Tabellenblatt, welches jeweils so wie die Kennung heißt und welches jeweils eine Tabelle mit dem Namen z.B. K24.00 oder K24.16 besitzt.
Nun möchte ich, dass jede einzelne Zeile die die Richtige Kennung hat in die jeweilige Tabelle auf dem anderen Tabellenblatt einfügen.
Das hörte sich für mich erstmal nach keinem ganz so großen Problem an, allerdings schaffe ich es leider einfach gar nicht.

Hat jemand Vorschläge, wie ich mithilfe von Funktionen oder einem Makro / VBA an mein Ziel komme?

Viele Grüße

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Tabellenblätter mit Datenbank verknüpfen

19.06.2024 12:56:43

Onur
AW: Tabellenblätter mit Datenbank verknüpfen

19.06.2024 12:58:48

Alwin Weisangler

AW: Tabellenblätter mit Datenbank verknüpfen

19.06.2024 12:56:43

Onur

"Hat jemand Vorschläge, wie ich mithilfe von Funktionen oder einem Makro / VBA an mein Ziel komme? " ?
OHNE dass du eine (Beispiels-) Datei postest? Glaube ich kaum.
Übrigens - Was soll DAS hier denn heissen ? Lies das doch mal langsam durch.
"Nun möchte ich, dass jede einzelne Zeile die die Richtige Kennung hat in die jeweilige Tabelle auf dem anderen Tabellenblatt einfügen. "

AW: Tabellenblätter mit Datenbank verknüpfen

19.06.2024 12:58:48

Alwin Weisangler

Hallo,

da du keine Beispieldatei hochgeladen hast, kann ich nur eine beispielhafte Lösung anbieten.



Sub KennungAufteilen()

    Dim i&, j&, k&, arrBlaetter(), tmp(), arrTab(): arrTab = Tabelle1.ListObjects(1).DataBodyRange.Value

    ReDim arrBlaetter(1 To Sheets.Count - 1)

    ReDim tmp(1 To 1, 1 To UBound(arrTab, 2))

    For i = 1 To Sheets.Count

        If Sheets(i).Name > "Datenbank" Then

            k = k + 1

            arrBlaetter(k) = Sheets(i).Name

        End If

    Next i

    For i = 1 To UBound(arrBlaetter)

        For j = 1 To UBound(arrTab)

            If arrBlaetter(i) = arrTab(j, 3) Then

                For k = 1 To UBound(arrTab, 2)

                    tmp(1, k) = arrTab(j, k)

                Next k

                With Sheets(arrBlaetter(i))

                    .Cells(.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Resize(1, UBound(tmp, 2)) = tmp

                End With

            End If

        Next j

    Next i

End Sub

Gruß Uwe

Beliebteste Forumthreads (12 Monate)

Tabellenblätter mit Datenbank verknüpfen

Forumthread: Tabellenblätter mit Datenbank verknüpfen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread