Live-Forum - Die aktuellen Beiträge
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
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

suchen nach zellinhalten in bestimmter Reihenfolge

suchen nach zellinhalten in bestimmter Reihenfolge
10.02.2006 10:01:34
Stefan
Hallo!
Ich möchte nach Datensätzen suchen lassen, die zellinhalte in bestimmter Reihenfolge enthalten:
Danke
Userbild

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: suchen nach zellinhalten in bestimmter Reihenfolge
10.02.2006 10:21:51
UweD
Hallo
mit diesem Makro...


      
Sub SuchABCD()
    
Dim Anz%, LR#, Sp%, Z#
    Sp = 3 
'Spalte C
    LR = ActiveSheet.Cells(Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte
    For Z = 2 To LR
        
If Cells(Z, Sp) = "A" And Cells(Z + 1, Sp) = "B" And _
           Cells(Z + 2, Sp) = 
"C" And Cells(Z + 3, Sp) = "D" Then
                
With Range(Cells(Z, Sp), Cells(Z + 3, Sp))
                    
With .Borders(xlEdgeLeft)
                        .LineStyle = xlContinuous
                        .Weight = xlMedium
                        .ColorIndex = xlAutomatic
                    
End With
                    
With .Borders(xlEdgeTop)
                        .LineStyle = xlContinuous
                        .Weight = xlMedium
                        .ColorIndex = xlAutomatic
                    
End With
                    
With .Borders(xlEdgeBottom)
                        .LineStyle = xlContinuous
                        .Weight = xlMedium
                        .ColorIndex = xlAutomatic
                    
End With
                    
With .Borders(xlEdgeRight)
                        .LineStyle = xlContinuous
                        .Weight = xlMedium
                        .ColorIndex = xlAutomatic
                    
End With
                
End With
                Z = Z + 4
        
End If
    
Next
End Sub 

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: suchen nach zellinhalten in bestimmter Reihenfolge
10.02.2006 10:31:36
Stefan
Hallo Uwe!
Erstmal danke für die schnelle Antwort. Werde gleich mal rumprobieren.
Rückmeldung folgt.
mfg
Stefan
AW: suchen nach zellinhalten in bestimmter Reihenfolge
10.02.2006 10:32:04
UweD
Hallo
Als Teillösung auch mit "Format, bedingte Formatierung" möglich.
Es wird hier NUR die erste Zelle (also das A) gekennzeichnet.
Formatierung mit dem Pinsel auf die gesamte spalte übertragen..
 
 C
1Arbeitsgänge
2A
3B
4C
5D
6A
7A
8C
9C
10A
11B
12C
13D
14A
15D
16D
17D
18A
19B
20C
21D
Bedingte Formatierungen der Tabelle
ZelleNr.: / BedingungFormat
C21. / Formel ist =UND(C2="A";C3="B";C4="C";C5="D")Abc
 

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
AW: suchen nach zellinhalten in bestimmter Reihenfolge
10.02.2006 11:03:08
Stefan
Danke Ede und Uwe!
@Uwe: Ich schau jetzt erstmal ob ich es ohne VBA hinkriege. Werde mir Deinen Code erst später reinziehen.(trotzdem Danke für die Mühe!)
mfg
Stefan
AW: suchen nach zellinhalten in bestimmter Reihenfolge
14.02.2006 07:49:10
Stefan
@Uwe:
Hab Deinen Code ausprobiert, funktioniert tadellos! Danke!
mfg
Stefan

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige