VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
In Range Zeilweise durchlaufen und Rows in Zeile durchlaufen	15.11.2016 09:30:23	Baggio
In Range Zeilweise durchlaufen und Rows in Zeile durchlaufen	15.11.2016 16:53:01	BigBen
In Range Zeilweise durchlaufen und Rows in Zeile durchlaufen	16.11.2016 08:19:57	Baggio
In Range Zeilweise durchlaufen und Rows in Zeile durchlaufen	16.11.2016 09:39:07	Gast50961
In Range Zeilweise durchlaufen und Rows in Zeile durchlaufen	16.11.2016 13:40:15	Baggio

Ansicht des Beitrags:

Von:
Gast50961

Datum:
16.11.2016 09:39:07

Views:
730

Rating:

Antwort:

Thema:
In Range Zeilweise durchlaufen und Rows in Zeile durchlaufen

Option Explicit

Sub Example()
  
  Dim row As Excel.Range
  Dim cell As Excel.Range
  
  For Each row In Range("A1:H10").Rows
    
    If 0 = StrComp(row.Cells(1).Value, "NIO", vbTextCompare) Then
      Set cell = row.Cells(1)
    Else
      Set cell = row.Find("NIO", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, MatchByte:=False)
    End If
    
    If Not cell Is Nothing Then
      'Ausgabe im Direktfenster (ggf. einblenden mit STRG+G oder über VBA-Editor-Menü: Ansicht)
      Debug.Print cell.Address(0, 0) & " = '" & cell.Value & "'"
    End If
    
  Next

End Sub

Anstatt der Range.Find-Methode könnte man auch in einer extra Schleife durch alle Zellen iterieren und bei der ersten mit NIO die Schleife verlassen. Obiger Code ist halt nur etwas kürzer.

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
In Range Zeilweise durchlaufen und Rows in Zeile durchlaufen	15.11.2016 09:30:23	Baggio
In Range Zeilweise durchlaufen und Rows in Zeile durchlaufen	15.11.2016 16:53:01	BigBen
In Range Zeilweise durchlaufen und Rows in Zeile durchlaufen	16.11.2016 08:19:57	Baggio
In Range Zeilweise durchlaufen und Rows in Zeile durchlaufen	16.11.2016 09:39:07	Gast50961
In Range Zeilweise durchlaufen und Rows in Zeile durchlaufen	16.11.2016 13:40:15	Baggio