Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1848to1852
1848to1852
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen zwischen Zeichenfolge kopieren

Forumthread: Zeilen zwischen Zeichenfolge kopieren

Zeilen zwischen Zeichenfolge kopieren
20.09.2021 12:50:42
Tobias
Hallo wertes Forum
hier mein zweites Problem
Ausgangssituation und Wunschergebnis hab ich wieder in der Tabelle.
https://www.herber.de/bbs/user/148163.xlsx
Ergebnis wird sich vermutlich nur mit VBA lösen lassen?
Er soll mir alle Zeilen im Tabellenblatt 1 die zwischen den Zeichenfolgen "&&445" und "arfe" in Tabellenblatt 2 kopieren und je einer Leerzeile nach jedem kopierten Block.
Danke
Gruß
Tobias
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: wäre auch mit Formel möglich ...
20.09.2021 12:57:22
neopa
Hallo Tobias,
... wie viele Datensätze sind denn auszuwerten?
Gruß Werner
.. , - ...
AW: Zeilen zwischen Zeichenfolge kopieren
20.09.2021 13:12:32
Daniel
HI
ohne VBA so:
1, in Tabelle1 in Zelle B2 diese Formel und dann nach unten ziehen:

=WENN(A1="&&445";ZEILE();WENN(A1="arfe";"xxx";WENN(ISTZAHL(B1);ZEILE();"xxx")))
2. im Ausgabetabellenblatt dann diese Formel in die erste Zeile und soweit nach unten ziehen, bis die "---" kommen:

=WENNFEHLER(WECHSELN(INDEX(Tabelle1!A:A;KKLEINSTE(Tabelle1!B:B;ZEILE(A1)));"arfe";"");"---")
Gruß Daniel
Anzeige
AW: Zeilen zwischen Zeichenfolge kopieren
20.09.2021 13:46:56
Daniel
HI
also VBA würde das dann so gehen:

Sub test()
Dim arr1, arr2, T
Dim z1 As Long, z2 As Long
Dim Check As Boolean
arr1 = Sheets("Tabelle1").Cells(1, 1).CurrentRegion.Columns(1)
ReDim arr2(1 To UBound(arr1, 1), 1 To 1)
For z1 = 1 To UBound(arr1, 1)
If arr1(z1, 1) = "&&445" Then
Check = True
ElseIf arr1(z1, 1) = "arfe" Then
Check = False
z2 = z2 + 1
ElseIf Check Then
z2 = z2 + 1
arr2(z2, 1) = arr1(z1, 1)
Else
End If
Next
Sheets("Tabelle2").Range("A1").Resize(UBound(arr2, 1), 1) = arr2
End Sub
Gruß Daniel
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige