bestimmte Zeilen durch Makro auflisten

[danisound]

Hallo zusammen, habe leider ein für mich etwas verzwicktes Problem mit einem Makro, bei dem ich nun nicht mehr weiterkomme. Nämlich möchte ich mit einem Makro - wie im Bild unten dargestellt - nur jene Zeilen in ein neues Sheet kopieren, wo in Spalte C "TÜV" steht. Was es etwas komplizierter macht ist dass die Zellen in Spalte C verbunden sind und immer zwei Zeilen umfassen.

[
Bild bitte so als Datei hochladen: Klick mich!
]

Das Makro sollte also nur jene Zeilenpaare "ausspucken" und untereinander auflisten, wenn in Spalte C "TÜV" steht.
[
Bild bitte so als Datei hochladen: Klick mich!
]

Habe meine Makros bisher immer nur aufgezeichnet, hier komme ich damit aber leider nicht mehr weiter. Hat vielleicht jemand einen Ansatz wie ich das lösen könnte?

[Käpt'n Blaubär]

Hallo,

Habe meine Makros bisher immer nur aufgezeichnet, hier komme ich damit aber leider nicht mehr weiter.
Hat vielleicht jemand einen Ansatz wie ich das lösen könnte?

ich helfe nicht, solange Du Verbundene Zellen benutzt. Schon gar nicht, wenn auf der Fragerseite ein Anfänger sitzt.
Trenne die Zellen, dann können wir weiterreden.

[WillWissen]

Hi,

VBA ist nicht mein Gebiet ==> leider keine Hilfe möglich.

Aber:
Löse mal deine verbundenen Zellen auf und lies dir diesen Beitrag  http://www.clever-excel-forum.de/thread-142.html  durch, damit du weißt, warum ich dir das rate.

[danisound]

Danke für die Hinweise! Habe die Verbindung der Zellen in Spalte C jetzt mal aufgehoben, habe aber leider trotzdem keinen Plan wie ich die betroffenen TÜV Zeilen mit einem Makro untereinander auflisten kann.

[
Bild bitte so als Datei hochladen: Klick mich!
]

Ergebnis sollte dann so aussehen.

[
Bild bitte so als Datei hochladen: Klick mich!
]

Wäre super dankbar wenn mir jemand auf die Sprünge helfen könnte.

[Werner.M]

Hallo,

Spalte C mit dem Autofilter nach TÜV filtern?

Gruß Werner

[WillWissen]

Hi,

muss es denn unbedingt VBA sein?

Neben dem Filtervorschlag hier noch eine Formellösung. Formel in E2 eintragen und nach rechts und unten ziehen.

Arbeitsblatt mit dem Namen 'Übersicht'
	A	B	C	D	E	F
1	Auto	Farbe/Klasse	TÜV		TÜV-fällig
2	Auto1	grün			Auto2	blau
3	Auto1	Kombi			Auto2	Sportwagen
4	Auto2	blau	TÜV		Auto5	schwarz
5	Auto2	Sportwagen	TÜV		Auto5	Kombi
6	Auto3	gelb
7	Auto3	Limousine
8	Auto4	violett
9	Auto4	Coupé
10	Auto5	schwarz	TÜV
11	Auto5	Kombi	TÜV
12	Auto6	grau
13	Auto6	Bus

Zelle	Formel
E2	=WENNFEHLER(INDEX(A$1:A$15;AGGREGAT(15;6;ZEILE($C$2:$C$15)/($C$2:$C$15="TÜV");ZEILE()-1));"")

Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[Kuwer]

Hallo,

per VBA (geht auch mit verbundenen Zellen):

Sub Makro2()
  Dim rngF As Range, rngS As Range
  Dim strS As String
  With Columns(3)
    Set rngS = .Find(What:="TÜV", After:=.Cells(.Cells.Count), LookIn:=xlValues, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)
    Set rngF = Rows(1)
    If Not rngS Is Nothing Then
      strS = rngS.Address
      Do
        Set rngF = Application.Union(rngF, rngS.EntireRow)
        Set rngS = .FindNext(rngS)
      Loop Until rngS.Address = strS
      Set rngS = ActiveCell
      Sheets("Tabelle2").Cells.Delete
      rngF.Select
      Selection.Copy Sheets("Tabelle2").Cells(1)
      rngS.Select
    End If
  End With
End Sub

Gruß Uwe

[danisound]

Hey Uwe, du bist echt der Wahnsinn!! Habe das jetzt probiert und funktioniert genau so wie ich es mir gewünscht habe!!  1000 Dank, hätte ich im Leben nicht hinbekommen!!

[danisound]

Hi Uwe, das Makro funktioniert wie gesagt super solange in mindestens zwei Zeilenpaaren in Spalte C "TÜV" steht. Sobald aber nur in einem oder keinem Zeilenpaar "TÜV" steht, bekomme ich einen Laufzeitfehler 91.

Wenn in Spalte C nirgendwo "TÜV" steht, sollte wenn möglich nur die Überschrift in das neue Sheet kopiert werden. Hättest du hier vielleicht noch eine Lösung parat?

[danisound]

Hi,

muss es denn unbedingt VBA sein?

Neben dem Filtervorschlag hier noch eine Formellösung. Formel in E2 eintragen und nach rechts und unten ziehen.

Das wäre eventuell auch eine Option, anschließend könnte ich ja das entsprechende Sheet mit deinen Formeln archivieren. Ein Archiv muss eben sein, deswegen dachte ich dass VBA dafür besser geeignet wäre. Über einen kleinen Umweg würde aber denke ich auch deine Methode funktionieren. Vielen Dank!