Live-Forum - Die aktuellen Beiträge
Datum
Titel
10.05.2024 09:46:10
Zusätzliche Sicherheitsabfrage beim Schließen
10.05.2024 07:04:14
nicht löschbar
09.05.2024 19:15:00
speichern über Makro ändert bedingt formatierte Zellen
09.05.2024 15:49:16
OEE Verlust als Linie an OEE
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Filter/Datensätze # Uwe(et999) die 2te

Filter/Datensätze # Uwe(et999) die 2te
07.02.2006 18:45:33
ingo
Hallo Uwe!!!
Da bin ich wieder!
Erst einmal vielen Dank für Deine Bemühungen!!!!!!!!!!!!!!!
Leider haben wir nun folgendes Problem:
Wenn ich nun nach einem Wert filter, zeigt er mir auch die Datensätze an,
bei denen in benachbarten Zellen dieser Wert zutrifft.
Bsp.:
- Spalte Q auf Q10=31.03.10; Zellen Q79-81 zeigen keinen Inhalt; aber in den
Zellen AA79-81=31.03.10
- Spalte W auf W12=L; zeigt auch benachbarte Spalten die den Wert "L" haben.
- usw.
- die Spalte A und AD funktionieren garnicht
Sorry, never ending Story!!!!!!!!!!!
ingo

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filter/Datensätze # Uwe(et999) die 2te
07.02.2006 19:32:28
et999
Hi Ingo,
das war eindeutig von vorneherein ein Fehler von mir. Ich hatte immer die ganze Tabelle durchsuchen lassen. Das macht natürlich keinen Sinn und kostet auch noch Zeit. Ich denke so ist es besser:
https://www.herber.de/bbs/user/30766


Sub Filter()
Application.ScreenUpdating = False
Dim Zelle As Range
Dim strName As String
Dim Reihe As Integer
Dim I As Long
Dim S As Integer                                     'NEU
Dim SatzNummer As String
Range("A3:IV65536").AutoFilter         'mit A2 ist die 2te Zeile festgelegt
Range("A3:IV65536").AutoFilter         'bei Bedarf auf 3 usw. ändern
For I = 3 To ActiveSheet.UsedRange.Rows.Count
   If Cells(I, 1).EntireRow.Hidden = True Then
      Cells.EntireRow.Hidden = False
      Range("A1").Select
      Exit Sub
   End If
Next I
strName = ActiveCell.Value
S = ActiveCell.Column                                  'NEU
For I = 4 To ActiveSheet.UsedRange.Rows.Count          'NEU
   Cells(I, 1).EntireRow.Hidden = True
Next I
If strName = "" Then Exit Sub
For I = 4 To ActiveSheet.UsedRange.Rows.Count          'NEU
   If IsError(Cells(I, S).Value) Then GoTo EndeIF      'NEU
   If Cells(I, S).Value = strName Then                 'NEU
      Reihe = Cells(I, S).Row                          'NEU
         Do Until Cells(Reihe, 1) <> Cells(Reihe, 1).Offset(-1, 0)
         Reihe = Reihe - 1
         Loop
            SatzNummer = Cells(Reihe, 1).Value
         Do While Cells(Reihe, 1).Value = SatzNummer
         Cells(Reihe, 1).EntireRow.Hidden = False
         Reihe = Reihe + 1
         Loop
    End If
EndeIF:
Next I                                                  'NEU
Cells(1, 1).Select
Application.ScreenUpdating = True
End Sub


Gruß und gedrückte Daumen
Uwe
(:o)
Anzeige
AW: Filter/Datensätze # Uwe(et999) die 2te
07.02.2006 20:59:53
ingo
Hallo Uwe !!!
Ich bedanke mich in allerschärfster Form.
So funktioniert sie ausgezeichnet!!!!!!!!!!!!!!!!!!!!!!!!
Ich werde sie noch im Rahmen meiner Mega-Datei testen müssen,
aber da sehe ich keine Probleme auf mich zukommen.
Nochmals vielen Dank!!!
ingo

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige