Thema Datum  Von Nutzer Rating
Antwort
22.04.2019 22:35:59 elli
NotSolved
23.04.2019 05:22:13 Gast69508
NotSolved
23.04.2019 17:56:29 elli
NotSolved
Blau zwei werte kollektiv suchen
 23.04.2019 22:03:27 elli
NotSolved
24.04.2019 01:40:36 Gast66073
NotSolved
24.04.2019 07:10:24 Elli
NotSolved
24.04.2019 15:54:34 Gast1706
NotSolved
24.04.2019 21:32:37 elli
Solved

Ansicht des Beitrags:
Von:
elli		 Datum:
23.04.2019 22:03:27		 Views:
701		 Rating:
     
Antwort:
  Ja
Thema:
zwei werte kollektiv suchen		 
Ich habe es mal hinzugefügt eine weitere findvalue code, jedoch kriege ich ständig die fehlermeldung"typ unverträglich"



Dim cell As Range
r = 2
number_of_r = 30
ru = 1
number_of_ru = 30
 
 
For Each cell In ws.Range("A" & r & ":A" & number_of_r)
For I = 0 To 2 'Column Offset form A to C
      Set foundValue = wp.Sheets("ABC").Range(Cells(ru, I + 
1), Cells(number_of_ru, I + 1)).Find(cell.Offset(0, I).Value)
    If Not foundValue Is Nothing Then
        wp.Sheets("ABC").Rows(foundValue.Row).Columns("E:AB").Copy
        ws.Range("G" & cell.Row).PasteSpecial
        GoTo nextCell
    End If
Next I
          Set foundValue = wp.Sheets("ABC").Range(Cells(ru, I + 1), Cells(number_of_ru, I + 1)).Find(cell.Offset(0, I).Value) And wp.Sheets("ABC").Range(Cells(ru, I + 2), Cells(number_of_ru, I + 2)).Find(cell.Offset(0, I + 1).Value)
        If Not foundValue Is Nothing Then
            wp.Sheets("ABC").Rows(foundValue.Row).Columns("E:AB").Copy
            ws.Range("G" & cell.Row).PasteSpecial
            GoTo nextCell
        Else: MsgBox "Problem"
        End If
nextCell:
Next cell
 
End sub

 

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
22.04.2019 22:35:59 elli
NotSolved
23.04.2019 05:22:13 Gast69508
NotSolved
23.04.2019 17:56:29 elli
NotSolved
Blau zwei werte kollektiv suchen
 23.04.2019 22:03:27 elli
NotSolved
24.04.2019 01:40:36 Gast66073
NotSolved
24.04.2019 07:10:24 Elli
NotSolved
24.04.2019 15:54:34 Gast1706
NotSolved
24.04.2019 21:32:37 elli
Solved