Thema Datum  Von Nutzer Rating
Antwort
11.04.2017 14:17:14 basima
NotSolved
Blau Zeilen suchen und kopieren mit VBA
 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:
GraFri		 Datum:
11.04.2017 18:41:40		 Views:
571		 Rating:
     
Antwort:
 Nein
Thema:
Zeilen suchen und kopieren mit VBA

Hallo

 

Versuch's mal so:

Option Explicit

Sub kopieren_spezial()
Dim letztezeile As Long
Dim startwert As Long, endwert As Long
Dim i As Long, j As Long
Dim starttime As Date, endtime As Date
 
'Werte aus Sheet "Tabellenblatt1" für Sheet "Tabellenblatt2" importieren
With Worksheets("Tabellenblatt2")
    starttime = .Range("D1").Value                                                        'Eingabe der Startzeit
    endtime = .Range("F1").Value                                                          'EIngabe der Endzeit
End With
 
With Worksheets("Tabellenblatt1")
    letztezeile = .Cells(Rows.Count, 34).End(xlUp).Row
    For i = 25 To letztezeile                                                             'sucht Startzeit in Spalte AH
        If .Range("AH" & i).Value > starttime Then
            startwert = i - 1                                                             '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 = i                                                                    'Gibt Zeilennummer der Endzeit
           Exit For
        End If
    Next j
     
.Range(Rows(startwert), Rows(endwert)).Copy
Worksheets("Tabellenblatt2").Paste Destination:=Worksheets("Tabellenblatt2").Rows(3)      'fügt Zeilen ein
         
End With

End Sub

mfg, GraFri

 

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:



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