ich habe hier ein Makro das aus einer Tabelle die Werte holt und in die ander schreibt. Nun habe ich zwei Abfragen drin, dann läuft nur der erste Teil der Abfrage. der Zweite Teil geht soweit., das man sieht das die Tabelle geöffnet wird aber nichts wird geschrieben. Woran mag es liegen.
Dim wksZiel As Worksheet
Set wksZiel = ActiveSheet
'VP 0006
Workbooks.Open Filename:= _
"u:\Provisionen\VP´s Abrechnung\2005\0006 \Ju.xls"
If Range("H11") >= 50 Then
With wksZiel
.Range("G5").Value = Range("H8").Value
.Range("H5").Value = Range("H7").Value
.Range("N5").Value = Range("H5").Value
End With
End If
If Range("H11") Range("H11").Select
Selection.Copy
ChDir "U:\Provisionen\VP´s Abrechnung\2005\Übertrag"
Workbooks.Open Filename:= _
"U:\Provisionen\VP´s Abrechnung\2005\Übertrag\Übertrag.xls"
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.Close
End If
ActiveWorkbook.Close
Danke für eure Hilfe
thomas