Kopieren: Werte keine Formeln

Bild

Betrifft: Kopieren: Werte keine Formeln
von: Erich M.
Geschrieben am: 14.04.2005 08:24:19
Hallo EXCEL-Freunde,
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

Code eingefügt mit: Excel Code Jeanie
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

Bild

Betrifft: AW: Kopieren: Werte keine Formeln
von: Harald E
Geschrieben am: 14.04.2005 11:14:44
Hallo Erich,
spar die das kopieren in den then Zeilen.
Then Tab2.Rows(zeile2).value = Tab1.Rows(zeile1).value
Wenn es unbedingt über copy gehen muss, zeichne dir per Rekorder das einfügen von Werten auf.
Gruß
Harald
Bild

Betrifft: AW: Kopieren: Werte keine Formeln
von: Erich M.
Geschrieben am: 14.04.2005 11:15:49
Hallo Harald,
danke, werd das probieren!
mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
EXCEL und Lottogewinne machen glücklich: http://48678.rapidforum.com
Bild

Betrifft: Danke Harald, das wars!
von: Erich M.
Geschrieben am: 15.04.2005 06:09:46
mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
EXCEL und Lottogewinne machen glücklich: http://48678.rapidforum.com
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Kopieren: Werte keine Formeln"