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
|