Ich werd hier noch wahnsinnig, dabei schein das Problem doch so einfach:
Kopiere Zeilenweise Bereiche aus der jeweiligen Zeile in ein anderes Workbook und dort in die nächte freie Zeile eines Worksheets, wobei -book und -sheetnamen jeweils aus Zeileninhalten hervorhehen.
Folgende VBA_zeilen hab ich mi dazu unter anderem gebastelt
Set tBS = Workbooks(Dateiname).Worksheets(Tagname)
rng1 = "C" & rownum & ":FE" & rownum 'rownum=Quellzeilen#
rang1 = "B" & trownum 'trownum=Zielzeilen#
Range(rng1).Select
Selection.Copy
tBS.Paste Destination:=tBS.Range(rang1)
Das funktioniert auch ganz schön, nur kopiert er mit dem
paste eben nicht nur die Werte sondern auch die Formate mit, was ich vermeiden will.
Beim Paste Special Befehl jedoch scheint er Probleme mit
der "Destination" zu bekommen....
tBS.PasteSpecial Destination:=tBS.Range(rang1), Paste:=xlValues
funktioniert zumindest nicht.
Wer hat ne schlaue Idee für mich????
Thx im Voraus,
Joachim