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