habe ein Such-Makro bei dem folgendes passiert (Aufruf über UF):
1. Wähle Datei, Tabelle und Spalte (z.B. "Z")
2. Bestimme welchen Wert Du suchst (z. B. "Test") in der Spalte
3. Kopiere dann alle Zeilen komplett die diesen Wert in Spalte Z haben
in eine neue Tabelle.
Das klappt auch mit diesem Makro:
Sub Testen()
If Auswahl = "=" Then
If Tab2.Cells(1, 1) = "" Then zeile2 = 2 Else zeile2 = Tab2.Cells(65536, 1).End(xlUp).Row + 1
For zeile1 = 1 To Tab1.Cells(65536, mySpalte).End(xlUp).Row
If Tab1.Cells(zeile1, mySpalte) = myWert1 Then Tab1.Rows(zeile1).Copy Tab2.Rows(zeile2)
zeile2 = Tab2.Cells(65536, 1).End(xlUp).Row + 1
Next
End If
If Auswahl = "kleiner" Then
If Tab2.Cells(1, 1) = "" Then zeile2 = 2 Else zeile2 = Tab2.Cells(65536, 1).End(xlUp).Row + 1
For zeile1 = 1 To Tab1.Cells(65536, mySpalte).End(xlUp).Row
If Tab1.Cells(zeile1, mySpalte) < myWert1 Then Tab1.Rows(zeile1).Copy Tab2.Rows(zeile2)
zeile2 = Tab2.Cells(65536, 1).End(xlUp).Row + 1
Next
End If
If Auswahl = "größer" Then
If Tab2.Cells(1, 1) = "" Then zeile2 = 2 Else zeile2 = Tab2.Cells(65536, 1).End(xlUp).Row + 1
For zeile1 = 1 To Tab1.Cells(65536, mySpalte).End(xlUp).Row
If Tab1.Cells(zeile1, mySpalte) > myWert1 Then Tab1.Rows(zeile1).Copy Tab2.Rows(zeile2)
zeile2 = Tab2.Cells(65536, 1).End(xlUp).Row + 1
Next
End If
End Sub
If Auswahl = "=" bedeutet, dass die Zelle "Test" enthält und die Zeile kopiert wird.
Nun besteht das Problem, das hier die Formeln mitgehen. Wie müsste das geändert werden,
dass nicht die Formel, sondern der Wert übertragen werden?
Besten Dank für eine Hilfe!
mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
EXCEL und Lottogewinne machen glücklich: http://48678.rapidforum.com