Datentransfer
11.06.2004 09:18:28
Ralf
Ich habe hier im Forum ein Makro gefunden das mich schon fast weiter bringt.
Nur läuft es nicht so wie ich es brauche bzw. hätte.
Makro aus Forum:
Sub test()
For i = 1 To Cells(Rows.Count, 8).End(xlUp).Row
On Error Resume Next
If Cells(i, 8).Value = "x" Then
Rows(i).Copy Destination:=Sheets("Tabelle2").Cells(Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
End If
Next
End Sub
Das Makro kopiert alle Daten einer Zeile in der in Spalte 8 der Wert ein "x" ist aus Tabelle1
in die gleiche Mappe nur in die Tabelle2
Ich möchte aber das ich Daten aus einer Datei (Report.xls - Sheet: Tabelle2)
in eine Datei (Gesamtdatei.xls - Sheet: Auswertung) als Werte eingefügt werden.
In der Datei (Gesamtdatei.xls - Sheet: Auswertung) sind die Zellen mit Bedingte Formatierung
versehen, und daher ist es sehr wichtig das nur die Werte eingefügt werden.
Mir ist wichtig das ich das Makros aus der Datei (Gesamtdatei.xls - Sheet: Auswertung)
starten kann (muss) und mir die Daten aus der Datei (Report.xls - Sheet: Tabelle2) in die
Datei (Gesamtdatei.xls - Sheet: Auswertung) eingefügt werden.
(Report.xls - Sheet: Tabelle2) = die Quelle
(Gesamtdatei.xls - Sheet: Auswertung) = das Zeil
Da ich in Sachen VBA völlig unbewandert bin, hoffe ich das mir jemand eine
eindeutige und klare Lösung liefern kann.
Besten Dank schon mal im voraus...
MFG Ralf
Anzeige