Textbereich aus anderen Tabellenblättern lt Datum

17.02.2025 11:41:15

Breslberger

https://www.herber.de/bbs/user/175720.xlsx

Ich will den Textbereich aus den Reitern Team1 und Team2 lt aktuellem Datum in Tabelle1 angezeigt bekommen.

Team1 und Team 2 sind aber Normalerweise in einem Extrafile.

Die Zelle mit dem Datum finde ich schon, jedoch hab ich keine Idee wie ich diesen Bereich dann dynamisch in die Spalte A2:A27 bzw A29:A55 übertrage.

AW: Textbereich aus anderen Tabellenblättern lt Datum

17.02.2025 12:18:46

{Boris}

Hi,

A2:
=INDEX(Team1!E:E;VERGLEICH(C2;Team1!B:B;0)+SEQUENZ(26;;0))

A30:
=INDEX(Team2!E:E;VERGLEICH(C30;Team2!B:B;0)+SEQUENZ(26;;0))

Vorher alle Einträge entfernen.

VG, Boris

AW: Textbereich aus anderen Tabellenblättern lt Datum

18.02.2025 12:48:21

Breslberger

Danke funktioniert einwandfrei.
SEQUENZ(26;;0)) gibt ja die Anzahl der nächsten Zeilen an ... wie kann ich das regeln wenn z.B. mal nur 10 oder sogar 30 Einträge an einem Datum sind.

Bzw kann man das mit einem Button etc triggern sozusagen als einmaligen Import aus der anderen EXCEL?
Damit das in Mappe1 ein Iststand ist - sollte sich in der anderen EXCEL was ändern?

AW: Textbereich aus anderen Tabellenblättern lt Datum

18.02.2025 19:49:11

{Boris}

Hi,

mit VBA-Basiskenntnissen wirst Du das nicht regeln können.
Wenn zudem die Bereichsgröße noch variabel ist, wird es ungleich schwieriger. Dann müsste man sich größen-/zeilenmäßig an der verbundenen Zelle in Spalte B orientieren, was aber per Formel nicht wirklich geht.
Dazu ist der Aufbau (speziell mit den verbundenen Zellen in Spalte B) nicht optimal. Viel besser wäre es, wenn in Spalte B in JEDER Zeile das Datum steht (ohne verbundene Zellen). Damit könnte man den Bereich dann ganz einfach filtern (entweder per Formel mit der Funktion FILTER oder aber auch per VBA mit Autofilter).

VG, Boris

AW: Textbereich aus anderen Tabellenblättern lt Datum

21.02.2025 09:27:53

Breslberger

Danke für die Unterstützung.

aktuell sieht es so aus:

=INDEX('\\Filepfad\[File.xlsm]Team 1!$E:$E;VERGLEICH(D1;'\\Filepfad\[File.xlsm]Team 1'!$B:$B;0)+SEQUENZ(25;;0))
=INDEX('\\Filepfad\[File.xlsm]Team 2'!$E:$E;VERGLEICH(D1;'\\Filepfad\[File.xlsm]Team 2'!$B:$B;0)+SEQUENZ(25;;0))

Hab mit Internethilfe für die variable Sequenzanzahl gebastelt aber damit mach ich wohl auch keinen großen Wurf: (da ich erstens noch auf das andere File zugreifen müsste wo die Reiter Team 1 und Team 2 sind und dann den Wert als Anzahl für die jeweilige Sequenz zuweisen muss)

Private Sub Workbook_Open()
Dim rngArea1 As Range
'Aktuelles Datum Suchen
Set rngArea1 = Worksheets("Team1").Range("A:A").Find(What:=Date, LookIn:=xlValues)
'Wenn Datum gefunden
If Not rngArea1 Is Nothing Then
'Fundzelle auswählen
rngArea1.Offset(0, 0).Select
Else
'Wenn Datum nicht gefunden
'Nachricht ausgeben
MsgBox "Das Datum " & Date & " wurde nicht gefunden"
End If
Worksheets("Team1").Range("B4").Value = ActiveCell.MergeArea.Count

Dim rngArea2 As Range
'Aktuelles Datum Suchen
Set rngArea2 = Worksheets("Team2").Range("A:A").Find(What:=Date, LookIn:=xlValues)
'Wenn Datum gefunden
If Not rngArea2 Is Nothing Then
'Fundzelle auswählen
rngArea2.Offset(0, 0).Select
Else
'Wenn Datum nicht gefunden
'Nachricht ausgeben
MsgBox "Das Datum " & Date & " wurde nicht gefunden"
End If
Worksheets("Team2").Range("B8").Value = ActiveCell.MergeArea.Count
End Sub

AW: Textbereich aus anderen Tabellenblättern lt Datum

21.02.2025 12:55:13

{Boris}

Hi,

diese verbundene Zelle als Suchwertergebnis für MEHRERE (variable viele) Zeilen ist halt Murks. Wie bereits geschrieben, sollte das Datum ohne Verbundzelle in JEDER Zeile stehen - dann kann man ganz einfach filtern.
Aktuell bastelst Du nur an irgendeiner Lösung für ein Problem, was Du nicht haben musst.

VG, Boris

Textbereich aus anderen Tabellenblättern lt Datum

Forumthread: Textbereich aus anderen Tabellenblättern lt Datum

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Textbereich aus anderen Tabellenblättern lt Datum

Forumthread: Textbereich aus anderen Tabellenblättern lt Datum

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread