Thema Datum  Von Nutzer Rating
Antwort
29.04.2011 10:52:09 Ben
NotSolved
29.04.2011 10:54:43 Gast31661
NotSolved
29.04.2011 11:17:05 Severus
NotSolved
29.04.2011 11:26:25 Gast72768
NotSolved
Rot Mal wieder: Zeilen Kopieren // VBA
 29.04.2011 12:02:08 Severus
NotSolved
29.04.2011 13:13:20 Gast6586
NotSolved

Ansicht des Beitrags:
Von:
Severus		 Datum:
29.04.2011 12:02:08		 Views:
1171		 Rating:
     
Antwort:
  Ja
Thema:
Mal wieder: Zeilen Kopieren // VBA

Also ich hzab's gerade mal schnell mit dem nachstehenden Code getestet: Kewine Probleme!

Option Explicit

Sub test()
Dim strSuchwert As String
Dim strZielWert As String
Dim lngZielZeile As Long
Dim lngLetzteZeile As Long
Dim lngLaufZahl As Long
Dim lngZeileAdd As Long
lngZeileAdd = 0
Application.ScreenUpdating = False
Application.EnableEvents = False
With ThisWorkbook
        strSuchwert = .Sheets("Auswertung").Range("D2")
        lngZielZeile = 10
        .Sheets("Auswertung").Select
        .Sheets("Auswertung").Range("A10:CZ1000").Delete
        .Sheets("Auswertung").Select
        lngLetzteZeile = .Sheets("Archiv").Cells(Rows.Count, 1).End(xlUp).Row
    For lngLaufZahl = 1 To lngLetzteZeile
            strZielWert = Worksheets("Archiv").Cells(lngLaufZahl, 27)
                  If strZielWert = strSuchwert Then
                     .Sheets("Archiv").Cells(lngLaufZahl, 1).EntireRow.Copy .Sheets("Auswertung").Cells(10 + lngZeileAdd, 1)
                     lngZeileAdd = lngZeileAdd + 1
                  End If
    Next lngLaufZahl
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

 

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
29.04.2011 10:52:09 Ben
NotSolved
29.04.2011 10:54:43 Gast31661
NotSolved
29.04.2011 11:17:05 Severus
NotSolved
29.04.2011 11:26:25 Gast72768
NotSolved
Rot Mal wieder: Zeilen Kopieren // VBA
 29.04.2011 12:02:08 Severus
NotSolved
29.04.2011 13:13:20 Gast6586
NotSolved