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
Blau Mal wieder: Zeilen Kopieren // VBA
 29.04.2011 11:26:25 Gast72768
NotSolved
29.04.2011 12:02:08 Severus
NotSolved
29.04.2011 13:13:20 Gast6586
NotSolved

Ansicht des Beitrags:
Von:
Gast72768		 Datum:
29.04.2011 11:26:25		 Views:
982		 Rating:
     
Antwort:
  Ja
Thema:
Mal wieder: Zeilen Kopieren // VBA

Danke für die Antwort - ich habe das selbe Ergebnis. Er gibt mir die richtei Anzahl der gefundenen Treffer aus, nur nicht die richtigen Treffer ansich. Die Anzahl ändert sich auch, je nachdem nach welchem String ich suchen lasse.

 

Private Sub CommandButton1_Click()
Dim sSuchwert As String
Dim sVergleich As String
Dim iZielwert As Integer

        sSuchwert = Worksheets("auswertung").Range("d2")
        iZielwert = 10
        Worksheets("auswertung").Select
        Range("A10:CZ1000").Delete

    For i = 1 To Worksheets("archiv").Cells(Rows.Count, 1).End(xlUp).Row
            sVergleich = Worksheets("archiv").Cells(i, 27)
                  If Worksheets("auswertung").Range("d2").Value = Worksheets("archiv").Cells(i, 27) Then
                     Worksheets("archiv").Cells(i, 1).EntireRow.Copy Destination:=Worksheets("auswertung").Cells(10 + iZielwert, 1)
                     iZielwert = iZielwert + 1
                  End If
    Next i

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
Blau Mal wieder: Zeilen Kopieren // VBA
 29.04.2011 11:26:25 Gast72768
NotSolved
29.04.2011 12:02:08 Severus
NotSolved
29.04.2011 13:13:20 Gast6586
NotSolved