brauche einen vorachlag für schleife
10.05.2005 20:34:40
choutko
Es sucht einen Begriff "HN" in der A spalte von exel und kopiert den Wert, der sich 3 Spalten von "HN" entfernt befindet in ein neues File.
Leider habe ich kaum VBA Kenntnisse.
Ich würde gerne dieses programm erweitern damit mein Begriff nicht nur einmal gesucht wird sondern das die Suche fortgefahren wird bis zum Ende der excel Datei und das alle Werte die sich 3 spalten entfernt von allen "HN" befinden kopiert werden.
Ich weiss leider nicht wie ich solch eine Schleife mit VBA schreiben könnte
vielen dank
alexandra
Sub Exportieren()
Dim NewWb As Workbook
Dim Suchwert As String
Set NewWb = Workbooks.Add 'Neues File generieren
With NewWb
.Title = "Zielfile"
.SaveAs Filename:="C:\Documents and Settings\tsisada1\My Documents\Test VBA\Zellen in neues File\Zielfile.xls"
End With
Suchwert = "HN" 'Beispiel für ersten Suchbegriff
Call Kopieren(Suchwert) 'Zellinhalt drei Zellen rechts in File Spalte A einfügen
Workbooks("Zielfile.xls").Close savechanges:=True 'Neues File Speichern
End Sub
Function Kopieren(Suchwert As String)
Dim Fundort As Range
Dim Eintragsort As Long
Set Fundort = Range("A:A").Find(Suchwert, , , xlWhole)
If Not Fundort Is Nothing Then
Eintragsort = 1 + Workbooks("Zielfile.xls").Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row 'Spalte A länge ermitteln
Fundort.Offset(0, 3).Copy Destination:=Workbooks("Zielfile.xls").Worksheets("Tabelle1").Range("A" & Eintragsort)
End If
End
Function