Suchabfrage mit Makro

[Mr. D]

Hi,

ich hab mal ne frage bzw nen problem^^

Also ich möcht ne Suchabfrage in Excel über ein Makro machen..ok soweit kein problem hab auch schon den Quellcode:

Sub Suchen()

	For Each Zelle In Range("C6:FA6")

	 If IsNumeric(Zelle.Value) Then

 	  If Zelle.Value Like "208*" Then

	   .......

	  End If

	 End If

	Next

End Sub()

So nun Funktinoiert das Suchen. Jetzt möcht ich da wo [...] steht folgendes Ereignis haben: Also in der Zeile wo er ein Feld findet wo die 208 drin vorkommt zb: E12, das er die ganze Spalte, also E, kopiert und die dan in ein anderes Tabellenblatt einfügt. Funktioniert sowas?

für hilfe währ ich sehr dankbar...im moment komm ich eingfach net weiter

mfg

[Blondi]

Dieser Code kopiert die gesamte Spalte C in das 2. Tabellenblatt.

Über die Eigenschaften von Zelle bekommst du die Spalte raus.

    Columns("C:C").Select              'Spalte markieren

    Selection.Copy                     'Spalte kopieren

    Sheets("Tabelle2").Select          'anderes Blatt auswählen

    Columns("C:C").Select

    ActiveSheet.Paste                  'markierte Spalte einfügen

[Mr. D]

Ok hat wunderbar funktioniert

danke