Abfrageproblem

Forumthread: Abfrageproblem

Abfrageproblem

22.08.2003 09:42:34

Philipp

Hallo Exzelexperten!
Könntet Ihr mir bitte bei folgendem Problem helfen?
In der Tabelle 1 sind in der Spalte A Namen angeführt. In den Spalten B - AB sind die dazugehörenden Daten ( in meinem Beispiel Zahlen ). Ich möchte in der Tabelle 2 alle Namen herausfiltern die z.B. KEINE 4 enthalten.
MAIER 1 3 5 4 2
MÜLLER 2 3 6 1 5
ABC 3 1 6 5 2
DEF 2 4 5 6 1
In der Tabelle 2 sollte dann, wenn möglich, stehen.
MÜLLER
ABC
Recht herzlichen Dank im Voraus
Philipp

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Abfrageproblem

22.08.2003 09:52:29

Fritz
Korrektur AW: Abfrageproblem

22.08.2003 10:01:17

Fritz
Korrektur AW: Abfrageproblem

22.08.2003 10:07:59

Fritz
AW: Abfrageproblem

22.08.2003 10:08:51

WernerB.

AW: Abfrageproblem

22.08.2003 09:52:29

Fritz

Hallo Philipp,
gib als (kopierfähige) Formel in Zelle AC1: =Zählenwenn(B1:AB1;4)
in Zeile 1 von Tabelle2 kannst Du dann als kopierfähige Formel eingeben:
=WENN(A1>0;A1;"")
Gruß Fritz

Korrektur AW: Abfrageproblem

22.08.2003 10:01:17

Fritz

Hallo Philip,
entschuldige, mir ist ein Flüchtigkeitsfehler unterlaufen:
Die Formel in Zeile1 von Tabelle2 muss natürlich lauten:
=WENN(AC1>0;A1;"")
wenn sich die Tabelle1 im Tabellenblatt (Tabelle1) und Tabelle2 in einem anderen Tabellenblatt (z.B. Tabelle2) befindet, muss die Formel wie folgt aussehen:
=WENN(Tabelle1!AC1>0;Tabelle1!A1;"")
Gruß Fritz

Korrektur AW: Abfrageproblem

22.08.2003 10:07:59

Fritz

Hallo Philip,
hoffentlich hast Du es bemerkt. In meinem Bemühen, Dir sofortige Hilfe anbieten zu können, bin ich unkonzentriert. Du willst ja die Namen, bei denen keine 4 in der Liste enthalten ist.
Dann muss in der Formel in Tabelle 2 das Zeichen > durch = ersetzt werden,
also anstatt >0 muss es dann =0 heißen. Ich hoffe, Du kommst damit jetzt klar.
Entschuldige, und viele Grüße
Fritz

AW: Abfrageproblem

22.08.2003 10:08:51

WernerB.

Hallo Philipp,
was hältst Du hiervon?


Sub Suchen()
Dim SuBe As Range
Dim s As String
Dim laR1 As Long, laR2 As Long, i As Long
s = "4"
With Sheets("Tabelle1")
laR1 = .Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To laR1
Set SuBe = .Range(.Cells(i, 2), .Cells(i, 28)). _
Find(s, lookat:=xlWhole)
If SuBe Is Nothing Then
laR2 = Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row
If laR2 = 1 And Sheets("Tabelle2").Range("A1").Value = "" Then laR2 = 0
Sheets("Tabelle2").Cells(laR2 + 1, 1).Value = .Cells(i, 1).Value
End If
Next i
End With
Set SuBe = Nothing
End Sub

Viel Erfolg wünscht
WernerB.

Beliebteste Forumthreads (12 Monate)

Forumthread: Abfrageproblem

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread