Thema Datum  Von Nutzer Rating
Antwort
07.11.2011 13:51:45 Rob
NotSolved
Blau Erklärung des Codes von Schleife in VBA
 07.11.2011 23:03:46 Till
Solved

Ansicht des Beitrags:
Von:
Till		 Datum:
07.11.2011 23:03:46		 Views:
1998		 Rating:
     
Antwort:
 Nein
Thema:
Erklärung des Codes von Schleife in VBA		 
For i = 10 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row    'zeile 10 bis zur letzten benutzen Zeile in Spalte A
 
    sWert = ws.Cells(i, lSpalte).Value  'wert zuweisen
    If Trim(sWert) <> "" Then 'wenn zelle nicht leer ist..

        On Error Resume Next  'fehler ignorieren

        Set rngBereich = wsZwei.Cells.Find(What:=sWert, LookIn:=xlValues, LookAt:=xlPart) 'bereich definieren
        On Error GoTo 0 'fehler wieder anzeigen

        If Not rngBereich Is Nothing Then 'wenn kein Fehler aufgetreten ist und ein Bereich festgelegt wurde...

            ws.Cells(i, lSpalte + 5).Value = "Ja" 'hinter dem gefundenen Wert Ja eintragen

                                                                
        Else

            ws.Cells(i, lSpalte + 5).Value = "Nein" 'sonst nein

        End If
    End If
Next i 'nächste Zeile

 

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
07.11.2011 13:51:45 Rob
NotSolved
Blau Erklärung des Codes von Schleife in VBA
 07.11.2011 23:03:46 Till
Solved