Suchen-Finden-Einfügen
04.03.2004 12:00:12
Nico D
über folgendes Makro durchsuche ich einen Bereich eines Tabellenblattes (z.B. Spalte A) nach zwei Werten (z.B. Name und Alter) und kopiere mir den gesamten Bereich in eine extra Tabellenblatt.
Leider ermöglicht mir dieses Makro ausschließlich das kopieren von allen Zellinhalten (wie Formate, Inhalte usw.). Ich möchte aber ausschließlich den Text kopieren. Wie muss ich das Makro verändern bzw. ergänzen?
Beste Grüße
Nico
'*********************************************
Sub Positionierung()
Dim ZelleA As Range
Dim ZelleB As Range
For Each ZelleA In ActiveSheet.Range("A1:A500")
If ZelleA = "Name" Then Exit For
Next ZelleA
For Each ZelleB In ActiveSheet.Range("A1:A500")
If ZelleB = "Alter" Then Exit For
Next ZelleB
Sheets(3).Range("B" & ZelleA.Row + 1 & ":C" & ZelleB.Row - 1).Copy Sheets(2).Range("B5")
End Sub