Thema Datum  Von Nutzer Rating
Antwort
Rot Schleife funktioniert nicht einwandfrei
 13.06.2018 16:40:39 Gast70107
NotSolved

Ansicht des Beitrags:
Von:
Gast70107		 Datum:
13.06.2018 16:40:39		 Views:
742		 Rating:
     
Antwort:
  Ja
Thema:
Schleife funktioniert nicht einwandfrei

Hallo zsm,

ich bin ein absoluter VBA Anfänger und versuche mich seit einigen Tagen in die Materie reinzufuchsen.

Ich habe mir folgende Schleife erstellt:

  1. For j = 6 To EndeA
  2.    
  3.         
  4.         For i = 6 To EndeB
  5.         
  6.              If Rows(j).Hidden Then
  7.                 Debug.Print j
  8.                 Exit For
  9.              ElseIf Rows(i).Hidden Then
  10.                 Debug.Print i
  11.              ElseIf ws2.Cells(j, 2) = ws1.Cells(i, 2) Then
  12.                 ws2.Rows(j).Delete
  13.              ' i = i - 1
  14.              End If
  15.           
  16.             Next i
  17.        Next j
  18.        


Diese Schleife durchläuft insgesamt zwei Spalten und vergleicht sie miteinander. Die doppelten Werte sollen, bei identischen Treffern, gelöscht werden

Jede Spalte befindet sich in einer eigenen Datei, die im Vorfeld natürlich angesprochen wurde. Zusätzlich wurden die Spalten im selben Makro gefiltert.

Nun mein Anliegen:

Die Schleife läuft zwar ohne knurren und spricht auch die einzelnen Zellen der Spalten an, aber er löscht sie mir in dieser SChleife nicht, wenn zwei Werte identisch sind.

 

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 Schleife funktioniert nicht einwandfrei
 13.06.2018 16:40:39 Gast70107
NotSolved