Thema Datum  Von Nutzer Rating
Antwort
15.09.2022 10:36:59 marv
NotSolved
15.09.2022 10:53:17 Mase
NotSolved
Rot Werte per if in Array schreiben
 15.09.2022 11:57:56 volti
NotSolved

Ansicht des Beitrags:
Von:
volti		 Datum:
15.09.2022 11:57:56		 Views:
390		 Rating:
     
Antwort:
  Ja
Thema:
Werte per if in Array schreiben

Hallo marv,

hier eine Idee dazu....

Mehrfach gefundene werden auch mehrfach ins Ergebnis-Array übernommen. Wenn nicht gewünscht muss Programm etwas angepasst werden.

Code:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23		  
Option Explicit

Sub Test()
  Dim arr1 As Variant, arr2 As Variant, Arr3() As Variant
  Dim i As Long, i2 As Long

  With ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp)
      arr1 = Range("G1:G" & .Row).Value
      arr2 = Range("C1:C" & .Row).Value

      For i = 1 To .Row
          If Not IsError(Application.Match(arr1(i, 1), arr2, 0)) Then
             ReDim Preserve Arr3(i2)
             Arr3(i2) = arr1(i, 1)
             i2 = i2 + 1
          End If
      Next i
  End With

' Test: gefundene Daten in Spalte B ausgeben
  ActiveSheet.Cells(1, "B").Resize(UBound(Arr3) + 1, 1).Value = Application.Transpose(Arr3)

End Sub
_________
viele Grüße
Karl-Heinz

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.09.2022 10:36:59 marv
NotSolved
15.09.2022 10:53:17 Mase
NotSolved
Rot Werte per if in Array schreiben
 15.09.2022 11:57:56 volti
NotSolved