Thema Datum  Von Nutzer Rating
Antwort
06.10.2017 15:19:05 guest123456
NotSolved
06.10.2017 16:09:35 Mackie
NotSolved
Rot Ist Wert in Arbeitsblatt auffindbar
 06.10.2017 16:39:42 Gast24426
NotSolved
06.10.2017 16:48:54 Gast70117
NotSolved

Ansicht des Beitrags:
Von:
Gast24426		 Datum:
06.10.2017 16:39:42		 Views:
573		 Rating:
     
Antwort:
  Ja
Thema:
Ist Wert in Arbeitsblatt auffindbar

Hi,

so vielleicht.

#Modul1
Option Explicit

Private m_lngVar As Long

Public Sub Test()
  
  Const C_WKS_NAME  As String = "Tabelle1"
  Const C_FIND_STR1 As String = "X"
  Const C_FIND_STR2 As String = "Y"
  
  Dim rng1  As Excel.Range
  Dim rng2  As Excel.Range
  
  With ThisWorkbook.Worksheets(C_WKS_NAME)
    
    Set rng1 = .UsedRange.Find(C_FIND_STR1, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
    Set rng2 = .UsedRange.Find(C_FIND_STR2, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
    
    If Not (rng1 Is Nothing And rng2 Is Nothing) Then
      m_lngVar = m_lngVar + 1
    End If
    
    Call MsgBox("var = " & m_lngVar, vbInformation)
    
  End With
  
End Sub

Die Angabe 'irgendeine Variable' ist etwas ungenau. Da ich nicht genau sagen auf welche Weise du diese Information weiter verarbeiten willst, habe ich mich oben für eine Member-Variable entschieden (man kann diese Information z.b. auch in einer Zelle ablegen).

 

Grüße

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
06.10.2017 15:19:05 guest123456
NotSolved
06.10.2017 16:09:35 Mackie
NotSolved
Rot Ist Wert in Arbeitsblatt auffindbar
 06.10.2017 16:39:42 Gast24426
NotSolved
06.10.2017 16:48:54 Gast70117
NotSolved