Supportnet / Forum / Tabellenkalkulation

Hi, wie kann man aus verschiedenen Tabellenblätter 3 Spalten nach bestimmten Kriterien durchsuchen lassen und dann in einer neuen Tabelle ausgeben lassen? z.B. das erste Kriterium ist der Name nachdem desucht wird, dann ob die Person ein bestimmtes Autotyp hat und dann als 3. Kriterium ob es "done" oder "planned" ist. Ich habe gar keine Ahnung davon. Vielen Dank.

Hallo,

mit welchem Programm, da mir aus Excel nicht geläufig sind

Gruß

Helmut

hi all :)

hier ein beispiel einer suche mit drei kreterien :))

gruss nighty

Sub suchen()
Dim zaehler1 As Long
Dim suche1 As Range
Dim suche2 As Range
Dim suche3 As Range
Dim wert As String
Dim wert1 As String
Dim wert2 As String
wert = "1"
wert1 = "2"
wert2 = "3"
On Error GoTo fehler
For zaehler1 = 2 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
Set suche1 = Worksheets(1).Range("A" & zaehler1 - 1 & ":A" & Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row).Find(wert)
Set suche2 = Worksheets(1).Range("B" & zaehler1 - 1 & ":B" & Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row).Find(wert1)
Set suche3 = Worksheets(1).Range("C" & zaehler1 - 1 & ":C" & Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row).Find(wert2)
If Not suche1 Is Nothing And Not suche2 And Not suche3 Is Nothing Then
If suche1.Row = suche2.Row Then
Cells(suche1.Row, suche1.Column).Interior.ColorIndex = 3
Exit For
End If
End If
Next zaehler1
End
fehler:
End Sub

hi all :)

ups korrigiert :))

gruss nighty

Sub suchen()
Dim zaehler1 As Long
Dim suche1 As Range
Dim suche2 As Range
Dim suche3 As Range
Dim wert As String
Dim wert1 As String
Dim wert2 As String
wert = "1"
wert1 = "2"
wert2 = "3"
On Error GoTo fehler
For zaehler1 = 2 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
Set suche1 = Worksheets(1).Range("A" & zaehler1 - 1 & ":A" & Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row).Find(wert)
Set suche2 = Worksheets(1).Range("B" & zaehler1 - 1 & ":B" & Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row).Find(wert1)
Set suche3 = Worksheets(1).Range("C" & zaehler1 - 1 & ":C" & Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row).Find(wert2)
If Not suche1 Is Nothing And Not suche2 And Not suche3 Is Nothing Then
If suche1.Row = suche2.Row And suche1.Row = suche3.Row Then
Cells(suche1.Row, suche1.Column).Interior.ColorIndex = 3
Exit For
End If
End If
Next zaehler1
End
fehler:
End Sub

• Ganze Datei durchsuchen
• mehrere Tabellen zu einer zusammenfügen
• Tabellenblätter durchsuchen
• 2 Excel-Tabellen vergleichen und neue Tabelle erstellen
• Aus zwei Tabellen eine Tabelle ertsellen