bestimmten Wert in einer Selektion vergleichen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Jürgen_Test() Dim az As Range Dim r As Range Set r = ThisWorkbook.Sheets("Tabelle2").Range("B1:B10") For Each az In r Select Case az.Text Case "Emil": MsgBox "so etwa?" Case "Anton": MsgBox "oder so?" End Select Next az End Sub

Hallo Karl-Otto,
vielen Dank für Deine schnelle Hilfe.
Im Prinzip bin ich schon ein Stück weiter.
Geht es nicht, dass ich dem Makro sage:
1. wenn du in der Spalte den Eintrag TPW findest dann mach das und das
2. wenn du in der Spalte den Eintrag PH findest dann mach das und das
u.s.w.
bis irgendwann End If kommt?
(Einträge wie TPW können häufiger in der Spalte vorkommen, sollen aber nur einmal abgefragt werden.)
Habe der Mail ein Bild zugefügt (hoffe das klappt). Vielleicht hilft dies zum Verständniss.
Userbild

(Sinn des ganzen ist, rechts den AutoFilter mit dem Eintrag zu aktivieren und die Daten dann zu kopieren. Nacheinander der AutoFilter abzufragen habe ich schon dran gedacht, konnte mir aber niemand erklären wie das funktioniert.)
Könntest Du mir nochmal helfen?
Gruß Jürgen

Alles ist möglich - das gibt Hoffnung ;-)))
hier die einzelnen Arbeitsschritte im Detail:
1. Das Makro soll prüfen, ob der Eintrag TPW in Spalte C vorhanden ist.
2. Wenn ja soll AutoFilter in Spalte E alle Einträge mit TPW filtern.
(Die Zellen in Spalte E enthalten lediglich einen Verweis auf die Zellen in Spalte C.)
3. Die gefilterten Einträge werden markiert und dann in ein neues Tabellenblatt kopiert.
4. Dann soll der nächste Wert in Spalte C auf Vorhandensein geprüft werden (z.B.: ZBT)
5. Autofilter soll dann mit ZBT aktiviert werden.
6. Kopiervorgang wie unter 3 beschrieben.
u.s.w.
Das Ganze soll so lange durchgespielt werden, bis alle möglichen Einträge von Spalte C einmal abgefragt wurden. Es gibt hier nur bestimmte, vorher definierte Einträge.
(ca. 10 verschiedene)
Die elegantere Lösung wäre bestimmt, die Werte direkt im Autofilter nacheinander anzusprechen und die Zellen zu kopieren. Hier komme ich aber leider auch nicht weiter.
Oder gehe ich das Ganze von vorne herein ganz falsch an?
Ich hoffe, ich habe das verständlich geschildert.
Hast Du noch Fragen?
Gruß Jürgen

Sub FilternUndKopieren() Application.ScreenUpdating = False With Range("A1") .AutoFilter Field:=3, Criteria1:="<10" .CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _ Worksheets("Kleiner10").Range("A1") .AutoFilter Field:=3, Criteria1:="<50" .CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _ Worksheets("Kleiner50").Range("A1") .AutoFilter Field:=3, Criteria1:=">=50" .CurrentRegion.SpecialCells(xlCellTypeVisible).Copy _ Worksheets("Andere").Range("A1") End With End Sub

Beliebteste Forumthreads (12 Monate)

bestimmten Wert in einer Selektion vergleichen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread