|
Hallo,
ich habe folgendes Problem,
ich möchte aus einer Excel Datein bestimmte Zellen in eine andere Kopieren. Ich habe ein kleines Testmakro geschriben das funktiniert einwandfrei aber bei meinem eigentlichen Makro funktioniert es nicht.
Ich poste einmal das testmakro:
Sub klick1()
Dim wsZiel As Worksheet
Dim wsQuelle As Worksheet
Dim i As Integer
Dim j As Integer
Set wsZiel = ActiveWorkbook.ActiveSheet
' open Klassifizierungsdatei
Set wsQuelle = Workbooks.Open(Filename:="C:\WINDOWS\Profiles\cb2s1mm\Desktop\Test2.xls").Worksheets(1)
For i = 1 To wsZiel.Cells(Rows.Count, 1).End(xlUp)
If (wsZiel.Cells(i, 1).Value = wsQuelle.Cells(i, 1).Value) Then
wsZiel.Cells(i, 2).Value = wsQuelle.Cells(i, 2).Value
Else
wsZiel.Cells(i, 2).Value = " "
End If
Next i
Workbooks("Test2.xls").Close False
End Sub
und das eingetliche Programm:
Sub NeuBerechnung()
Dim wsZiel As Worksheet
Dim wsQuelle As Worksheet
Dim i As Integer
Dim j As Integer
MsgBox "test1"
Set wsZiel = ActiveWorkbook.ActiveSheet
' open Klassifizierungsdatei
Set wsQuelle = Workbooks.Open(Filename:="O:\Dateien\Name.xls").Worksheets(1)
MsgBox "test2"
For i = 3 To (wsZiel.Cells(Rows.Count, 1).End(xlUp))
MsgBox i
'Kontrolle
' if(len(wsZiel.Cells(i, 4))<>12 )
'msgbox "In Spalte "&i & " steht keine ISIN."
'Else
For j = 3 To wsQuelle.Cells(Rows.Count, 1).End(xlUp)
MsgBox j
If (wsZiel.Cells(i, 4).Value = wsQuelle.Cells(j, 1).Value) Then
'Währung
wsZiel.Cells(i, 2).Value = wsQuelle.Cells(j, 2).Value
Exit For
End If
Next j
' end if
Next i
MsgBox "test3"
' close Klassifizierungsdatei
Workbooks("Name.xls").Close False
End Sub
msgbox 1 gibt er noch aus dannach nichtsmehr es kommt aber auch kein Fehler bzw keine Debugger meldung.
Danke schonmal für die Hilfe
mfg Tellos
|