Thema Datum  Von Nutzer Rating
Antwort
15.01.2020 21:15:34 Peter12345
NotSolved
Blau Spalte nach Wert durchsuchen
16.01.2020 09:07:04 Torsten
*****
Solved
16.01.2020 20:22:37 Peter12345
NotSolved
17.01.2020 07:30:10 Torsten
NotSolved

Ansicht des Beitrags:
Von:
Torsten		 Datum:
16.01.2020 09:07:04		 Views:
549		 Rating:
     
Antwort:
 Nein
Thema:
Spalte nach Wert durchsuchen

Hallo Peter,

so:

Sub suchen()

'Code funktioniert nur auf dem aktiven Tabellenblatt

Dim i As Long, letzteZ As Long
Dim Bereich As Range, Zelle As Range

letzteZ = Cells(Rows.Count, 1).End(xlUp).Row
Set Bereich = Range("A1:A" & letzteZ)
i = 1

For Each Zelle In Bereich
    If i <= 30 And Zelle.Row <= letzteZ Then    'Zaehler bis 30 oder Spaltenende(wenn weniger als 30 Eintraege)
        If Zelle.Value = 1 Then                 'wenn der Wert ein Text ist, dann die 1 in "" setzen
            Zelle.EntireRow.Select              'hier wird die Zeile markiert, aber wofuer?
            Call XYZ                            'Makro Aufruf
            i = i + 1                           'Zaehler hochzaehlen
    End If
Next

End Sub

Gruss Torsten

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
15.01.2020 21:15:34 Peter12345
NotSolved
Blau Spalte nach Wert durchsuchen
16.01.2020 09:07:04 Torsten
*****
Solved
16.01.2020 20:22:37 Peter12345
NotSolved
17.01.2020 07:30:10 Torsten
NotSolved