Thema Datum  Von Nutzer Rating
Antwort
20.11.2023 10:19:57 Kevin
NotSolved
20.11.2023 11:46:44 Mase
NotSolved
20.11.2023 12:32:18 Kevin
NotSolved
Blau Array Spalten vergleichen
 20.11.2023 21:34:54 ralf_b
Solved
21.11.2023 09:20:51 Gast19189
Solved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
20.11.2023 21:34:54		 Views:
129		 Rating:
     
Antwort:
 Nein
Thema:
Array Spalten vergleichen

versuchs mal damit

Sub columnistgleich()

Dim arrdata, arrbase, serg$, arrerg
Dim i&, cnt&, ii&

arrbase = Intersect(ActiveSheet.UsedRange, ActiveSheet.Columns("C"))
arrdata = ActiveSheet.UsedRange

For i = 1 To UBound(arrdata, 2)
  For cnt = 1 To UBound(arrbase)
     If arrbase(cnt, 1) <> arrdata(cnt, i) Then Exit For
  Next
  If cnt > UBound(arrbase) Then serg = serg & i & ","
Next

If Len(serg) > 0 Then serg = Left(serg, Len(serg) - 1)

With Worksheets.Add(after:=Worksheets(Worksheets.Count))
 .Name = "Ergebnis"
 .Range("A1") = "Übereinstimmende Spalten (Spaltennummer)"
 
 arrerg = Split(serg, ",")
 .Range("A2").Resize(UBound(arrerg) + 1).Value = Application.Transpose(arrerg)
 
End With
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
20.11.2023 10:19:57 Kevin
NotSolved
20.11.2023 11:46:44 Mase
NotSolved
20.11.2023 12:32:18 Kevin
NotSolved
Blau Array Spalten vergleichen
 20.11.2023 21:34:54 ralf_b
Solved
21.11.2023 09:20:51 Gast19189
Solved