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?
Hallo,
Zitat: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.
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.
Hallo,
Spalte C mit dem Autofilter nach TÜV filtern?
Gruß Werner
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 |
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
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!!
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?
(14.05.2018, 13:30)WillWissen schrieb: [ -> ]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!