Hallo zusammen,

ich habe folgendes Problem: ich möchte mit Excel VBA automatisch eine Start- und eine Endzeit in einem Tabellenblatt2 einlesen, die ich manuell eingebe und Excel soll mir dann in einem anderen Tabellenblatt1 mit Rohdaten eines Versuchs die Zeilen zwischen Start- und Endzeit heraussuchen und in Tabellenblatt2 kopieren. Ich habe bereits selbst etwas herumprobiert, aber ich bekomme andauernd Fehlermeldungen, dass der Typ in der Kopierzeile mit .Rows("startwert:endwert") nicht übereinstimmt und dass die Paste-Methode nicht ausgeführt werden konnte. Ein Problem muss auf jeden Fall bei der Formulierung .Rows("startwert:endwert") liegen, ich habe es nämlich schon einmal mit Zahlen anstatt "startwert" und "endwert" probiert und dann hat es funktioniert. Anbei einmal der Code:

   
    Dim letztezeile As Long
    Dim startwert As Long
    Dim endwert As Long
   
    'Werte aus Sheet "Tabellenblatt1" für Sheet "Tabellenblatt2" importieren
    
    Worksheets("Tabellenblatt1").Select                                                  'Tabelle mit Rohdaten
    With Worksheets("Tabellenblatt1")
    letztezeile = ActiveSheet.Cells(1048576, 34).End(xlUp).Row                           'sucht letzte Zeile der Endzeit
         
    End With
    
    
    Worksheets("Tabellenblatt2").Select                                                  'Zieltabelle
    With Worksheets("Tabellenblatt2")
    starttime = Range("D1").Value                                                        'Eingabe der Startzeit
    endtime = Range("F1").Value                                                          'EIngabe der Endzeit
    
    End With
    
    Worksheets("Tabellenblatt1").Select
    With Worksheets("Tabellenblatt1")
    
    For i = 25 To letztezeile                                                             'sucht Startzeit in Spalte AH
        If Range("AH" & i).Value > starttime Then 
            startwert = Range("AH" & i - 1).EntireRow                                     'gibt Zeilennummer der Startzeit
            Exit For
        End If
    Next i
    For j = 25 To letztezeile                                                             'Sucht Endzeit in Spalte AH
        If Range("AH" & j).Value > endtime Then
           endwert = Range("AH" & j).EntireRow                                            'Gibt Zeilennummer der Endzeit
           Exit For
        End If
    Next j
        
    Worksheets("Tabellenblatt1").Rows("startwert:endwert").Copy                               'Kopiert Zeilen
    Worksheets("Tabellenblatt2").Paste Destination:=Worksheets("Tabellenblatt2").Rows(3)      'fügt Zeilen ein
    
             
    End With
  

Kann mir da vielleicht jemand helfen? Wäre super, bin leider auch zum ersten Mal an VBA zugange und habe kaum Ahnung..

Gruß

basima