Thema Datum  Von Nutzer Rating
Antwort
02.05.2020 16:02:42 Gast43402
NotSolved
02.05.2020 19:38:08 Flotter Feger
NotSolved
02.05.2020 19:44:49 Mase
NotSolved
02.05.2020 20:51:19 Gast43402
Solved
02.05.2020 23:07:51 Flotter Feger
NotSolved
Blau Gleiche Werte suchen
 02.05.2020 23:51:14 xlKing
NotSolved
03.05.2020 08:31:20 Gast12460
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
02.05.2020 23:51:14		 Views:
606		 Rating:
     
Antwort:
  Ja
Thema:
Gleiche Werte suchen

Hallo Gast 43402,

nach der Reaktion erwartest du nicht wirklich noch Hilfe oder? Gut Sabinas Antwort war etwas drastisch geraten. Aber deshalb gleich melden? Da gibts hier im Forum ganz andere Trolle, die viel schlimmeres von sich geben - Leider. Was Sabina mit ihrer Antwort sagen will, ist dass es schwierig wird, dir ohne zusätzliche Infos einen passenden Code vorzustellen. Da du auf die Gegenfragen nicht wirklich geantwortet hast, kann auch Ich nur raten. Ich versuchs trotzdem mal. Probier mal diesen Code aus:

Sub Suchen()

  Dim c As Range, arr() As Variant
      
  Set c = Cells.Find("Baum")
  If Not c Is Nothing Then
    Do
      i = i + 1
      ReDim Preserve arr(i)
      arr(i) = c.Address
      Set c = Cells.FindNext(After:=c)
    Loop Until c.Address = arr(1)
  End If
  
  For i = 1 To UBound(arr)
    MsgBox arr(i)
  Next i

End Sub

Gruß Mr. K.

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
02.05.2020 16:02:42 Gast43402
NotSolved
02.05.2020 19:38:08 Flotter Feger
NotSolved
02.05.2020 19:44:49 Mase
NotSolved
02.05.2020 20:51:19 Gast43402
Solved
02.05.2020 23:07:51 Flotter Feger
NotSolved
Blau Gleiche Werte suchen
 02.05.2020 23:51:14 xlKing
NotSolved
03.05.2020 08:31:20 Gast12460
NotSolved