Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilen suchen und kopieren mit VBA
 11.04.2017 14:17:14 basima
NotSolved
11.04.2017 18:41:40 GraFri
*****
Solved
11.04.2017 19:22:05 basima
NotSolved
11.04.2017 21:55:35 GraFri
NotSolved

Ansicht des Beitrags:
Von:
basima		 Datum:
11.04.2017 14:17:14		 Views:
1190		 Rating:
     
Antwort:
  Ja
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:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
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

Ihre Antwort
  • 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: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Zeilen suchen und kopieren mit VBA
 11.04.2017 14:17:14 basima
NotSolved
11.04.2017 18:41:40 GraFri
*****
Solved
11.04.2017 19:22:05 basima
NotSolved
11.04.2017 21:55:35 GraFri
NotSolved