Thema Datum  Von Nutzer Rating
Antwort
Rot Mal wieder: Zeilen Kopieren // VBA
 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
29.04.2011 12:02:08 Severus
NotSolved
29.04.2011 13:13:20 Gast6586
NotSolved

Ansicht des Beitrags:
Von:
Ben		 Datum:
29.04.2011 10:52:09		 Views:
1993		 Rating:
     
Antwort:
  Ja
Thema:
Mal wieder: Zeilen Kopieren // VBA

Ich verzweifele seit knapp 4 Stunden an folgendem Problem.

Ich habe im Sheet "Archiv" etliche Zeilen mit Werten.  Bestimmte zeilen, die in der Spalte 27 einen von mir gesuchten String vorweisen sollen ins Tabellenblatt "auswertung" kopiert und ab Zeile 10 nacheinander eingefügt werden.

Ich habe einen Button der folgendes Ereignis auslöst:

 

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

    Application.ScreenUpdating = False
        sSuchwert = Worksheets("auswertung").Range("d2")
        
    For i = 1 To Worksheets("archiv").Cells(Rows.Count, 1).End(xlUp).Row
            sVergleich = Worksheets("archiv").Cells(i, 1)
            If sSuchwert = sVergleich Then
               Worksheets("archiv").Rows(i).Copy Destination:=Worksheets("auswertung").Cells(10 + iReihe, 1)
               iReihe = iReihe + 1
                
        Next i
    Application.ScreenUpdating = True
End Sub


Er tut auch was, nur sind die Ergebnisse nicht zu 100% oder überhaupt nicht der gesuchte String. Alle Strings sind Bereichsbezeichnungen im Format (ZAHL_ZAHL). Die zu durchsuchenden Zeilen der Reihe 27 haben das selbe Format. 
Wenn ich mit Messageboxen die Werte und Reihen ausgebe lasse, findet er die richtigen Werte in den richtigen Zeilen, kopiert aber offensichtlich die falschen Zeilen. Ich gehe kaput.

Ich hoffe ihr könnt mir helfen.

 

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