Hallo,

ich habe folgendes kleine Programm geschrieben, welches Daten von einer Tabelle in eine neu erzeugte Tabelle kopieren soll.

Es funktioniert auch bis zu dem Punkt wo ich die Daten in die neue Tabelle einfügen möchte.

Fehlermeldung: 438 - Object unterstützt diese Eigenschaft oder Methode nicht

Hier der Code:

Sub Import_Erzeugen()

Dim oWB_ImportTabelle As Workbook
Dim oWS_ImportTabelle As Worksheet
Dim lngAnzahlZeilen As Long

On Error GoTo Fehler
'Datei erzeugen, Tabellenblätter löschen, Tabellenblatt und Datei bennen

Set oTempWorkbook = Workbooks(TempWorkbook)
Set oWS_Temp = oTempWorkbook.Worksheets(sWSName_Temp)


oTempWorkbook.Worksheets(sWSName_Temp).Activate

lngAnzahlZeilen = oWS_Temp.UsedRange.Rows.Count
'MsgBox lngAnzahlZeilen

Set oWB_ImportTabelle = Workbooks.Add
Application.DisplayAlerts = False
Worksheets("Tabelle1").Delete
Worksheets("Tabelle2").Delete
Application.DisplayAlerts = True

If strGewaehlteSpalteMesswert = "" Then
strGewaehlteSpalteMesswert = InputBox("Bitte geben sie eine bezeichnung für die Messstelle ein!")
End If

Worksheets("Tabelle3").Name = "Philips_" & strGewaehlteSpalteMesswert
Set oWS_ImportTabelle = oWB_ImportTabelle.Worksheets("Philips_" & strGewaehlteSpalteMesswert)
oWB_ImportTabelle.SaveAs "Philips_" & strGewaehlteSpalteMesswert & ".xls"

oTempWorkbook.Worksheets(sWSName_Temp).Activate
lngAnzahlZeilen = oWS_Temp.UsedRange.Rows.Count
oWS_Temp.Range(oWS_Temp.Cells(1, 2), oWS_Temp.Cells(lngAnzahlZeilen, 4)).Copy


oWS_ImportTabelle.Activate
'Die Select anweisung hab ich zum Testen angelegt, sie funktioniert und wählt auch den richtigen Bereich aus, die Paste oder auch PasteSpecial Variante bringt einen Fehler!
oWS_ImportTabelle.Range(oWS_ImportTabelle.Cells(1, 2), oWS_ImportTabelle.Cells(lngAnzahlZeilen, 4)).Select

'oWS_ImportTabelle.Range(oWS_ImportTabelle.Cells(1, 2), oWS_ImportTabelle.Cells(lngAnzahlZeilen, 4)).Paste
'PasteSpecial _
Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False


Exit Sub
Fehler:
MsgBox "Fehler in Sub Fehler0" & vbCrLf & "Fehlernummer: " & Err.Number & _
    vbCrLf & "Fehlerbeschreibung: " & Err.Description

End Sub

Danke schon mal!