Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Zeilen suchen und kopieren mit VBA |
11.04.2017 14:17:14 |
basima |
|
|
|
11.04.2017 18:41:40 |
GraFri |
|
|
|
11.04.2017 19:22:05 |
basima |
|
|
|
11.04.2017 21:55:35 |
GraFri |
|
|
Von:
basima |
Datum:
11.04.2017 14:17:14 |
Views:
980 |
Rating:
|
Antwort:
|
Thema:
Zeilen suchen und kopieren mit VBA |
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
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Zeilen suchen und kopieren mit VBA |
11.04.2017 14:17:14 |
basima |
|
|
|
11.04.2017 18:41:40 |
GraFri |
|
|
|
11.04.2017 19:22:05 |
basima |
|
|
|
11.04.2017 21:55:35 |
GraFri |
|
|