Bestimmte Zellen kopieren aus vorhandener Datei
29.09.2003 15:15:11
Marco
Also:
Ich hab eine Arbeitsmappe mit zwei Arbeitsblättern auf dem ersten Blatt stehen die Daten für das zweite Blatt. Jetzt würde ich gerne daten aus einer anderen Datei kopieren. Das Problem ist die Daten sind nie gleich angelegt und jetzt will ich mir aus einer Datei die ich mir vorher aussuche die Daten nach Kriterien raussuchen lassen und an eine bestimmte stelle rüber kopieren.
Das was ich bis jetzt habe funktioniert leider nicht.
Die Datei läßt sich aus der Hauptarbeitsmappe öffnen per VBA jedoch markiert er mir nicht die Zellen. Woran liegt das
Sub im1()
Dim WB As Workbook
Dim TB As Worksheet
Dim i%
Dim dName
Dim dFilter$
dFilter = "Excel-Dateien(*.xls), *.xls"
ChDrive "C"
ChDir "C:\Fahrzeugberechnung\Fahrzeugdaten\"
dName = Application.GetOpenFilename(dFilter)
If dName = False Then Exit Sub
Set WB = Workbooks.Open(dName)
Set TB = WB.Worksheets(1)
For i = 1 To 100
If Cells(i, 1).Value Like "*r*dyn*" Then
Range(Cells(i, 1), Cells(i, 2)).Select
Selection.Copy
Workbooks("auslesen.xls").Activate
Sheets("Tabelle1").Paste Sheets("Tabelle1").Range("A15")
End If
Next i
End Sub
Ach ja, bevor ich es vergesse zu erwähnen, es gibt mehrere For-Schleifen. Das heißt ich muß mehrere Male zwischen den beiden Dateien Wechseln.