Hallo zusammen,
ich habe hier ein Teil eines Übernahmemoduls. Nach dem ersten Aufruf findet er die erste Kennnummer und kopiert den ersten gefundenen Wert, dann bleibt das Modul so lange "hängen" bis ich auf das Tabellenblatt klicke. Hat einer eine Idee, wo das Problem liegt? Nach dem klicken auf dem Tabellenblatt läuft das Modul fehlerfrei durch, bis es nach dem erneuten Aufruf an der gleichen Stelle "hängen" bleibt.
Danke für die Tipps und noch ein schönes Wochenende.
Matze
Sub Datenuebernahme(longDatumvon, strBlatt, longletzteZelleKurse) ' Uebernahme in Tabelle mit Kursen
Dim Import As Object
Dim strNameBlatt As Object
Set Import = Worksheets("Import")
Dim intKursimportvon As Integer, intAnzahlKurslinien As Integer, intSpalte As Integer, intSpaltenZuschlag As Integer
Dim Bildschirmtext As String, sWertpapier As String
Dim longZeile As Long

Bildschirmtext = "Bitte warten, übernehme die " & strBlatt & "-Kurse vom " & CDate(longDatumvon) & "."
' Application.ScreenUpdating = False
Select Case strBlatt
Case "Union"
Dim UnionKurse As Object
Set strNameBlatt = Worksheets("Union")
intSpaltenZuschlag = 2
intAnzahlKurslinien = Spalten_zaehlen("Union", 1)
Case "DWS"
Dim DWSKurse As Object
Set strNameBlatt = Worksheets("DWS")
intSpaltenZuschlag = 2
intAnzahlKurslinien = Spalten_zaehlen("DWS", 1)
Case "DIT"
' Dim DITKurse As Object
' Set strNameBlatt = Worksheets("DIT")
' intSpaltenZuschlag = 2
Case "Deka"
Dim DekaKurse As Object
Set strNameBlatt = Worksheets("Deka")
intSpaltenZuschlag = 3
intAnzahlKurslinien = Spalten_zaehlen("Deka", 1)
Case Else
' kein Else
End Select
Import.Visible = True
Import.Select
' bei Fehlern naechster Wert
On Error Resume Next
' Kursdaten uebernehmen
' Datum uebernehmen und lfd. Nummer ergaenzen
strNameBlatt.Select
strNameBlatt.Cells(longletzteZelleKurse, 1) = CLng(longDatumvon)
strNameBlatt.Cells(longletzteZelleKurse, 2) = CDate(longDatumvon)
' einlesen der Wertpapierkennnummer
For intKursimportvon = 3 To intAnzahlKurslinien
sWertpapier = strNameBlatt.Cells(1, intKursimportvon).Value
' nach der Wertpapierkennnummer suchen
Import.Select
Import.Cells.Find(What:=sWertpapier, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:= _
xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
' Ermittlung der Zelladresse
longZeile = ActiveCell.Row
intSpalte = ActiveCell.Column
' markieren des benoetigten Bereiches, kopieren und einfuegen in der Tabelle
Import.Cells(longZeile, intSpalte + intSpaltenZuschlag).Select
Selection.Copy
strNameBlatt.Select
' Werte in die Uebersicht uebernehmen
strNameBlatt.Cells(longletzteZelleKurse, intKursimportvon).PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Next intKursimportvon