Zellenvergleich läuft aus Bereich

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim Zelle As Range, Spalte(), Bereich(2) As Range, zz, i Set Bereich(1) = Range("A1:A25") Set Bereich(2) = Range("E1:E25") ReDim Spalte(1 To Bereich(1).Cells.Count + Bereich(2).Cells.Count) zz = 0 For i = 1 To 2 For Each Zelle In Bereich(i) zz = zz + 1 Spalte(zz) = Zelle.Value Next Next For i = 1 To UBound(Spalte) - 2 If Spalte(i) = Spalte(i + 2) Then ' Debug.Print "OK" Else ' Debug.Print "nicht gleich" End If Next End Sub

Option Explicit Sub Lauf() Dim Zelle, x& x = 1 For Each Zelle In Range("Test1") If Range("Test1")(x + 2) = Range("Test1")(x) Then MsgBox Range("Test1")(x + 2).Address & " - " & Range("Test1")(x).Address End If x = x + 1 Next x = 1 If Range("Test1")(Range("Test1").Count - 1) = Range("Test2")(1) Then MsgBox Range("Test1")(Range("Test1").Count - 1).Address & " - " & Range("Test2")(1). _ Address End If If Range("Test1")(Range("Test1").Count) = Range("Test2")(2) Then MsgBox Range("Test1")(Range("Test1").Count).Address & " - " & Range("Test2")(2).Address End If For Each Zelle In Range("Test2") If Range("Test2")(x + 2) = Range("Test2")(x) Then MsgBox Range("Test2")(x + 2).Address & " - " & Range("Test2")(x).Address End If x = x + 1 Next End Sub

Sub VglMfachAw() Dim ix As Long, iz As Long, zAnz As Long, zelle As Range With Range("Test") ix = 1: iz = 3: zAnz = .Rows.Count For Each zelle In .Cells If ix > .Areas.Count Then Exit For If zelle.Value = .Areas(ix).Cells(iz) Then _ MsgBox zelle.Address(0, 0) & "=" & .Areas(ix).Cells(iz).Address(0, 0) iz = iz Mod zAnz + 1: ix = ix - CInt(iz = 1) Next zelle End With End Sub

Hi,
ein herzliches Dankeschön an alle, das ihr auch über Weihnachten Hilfe gibt.
Die Vorschläge funktionieren, nur bekomme ich das auf mein Projekt nicht angewendet.
In der Annahme das es eine einfache Lösung gibt, habe ich auch die Frage an einem einfachen Beispiel aufgehangen. Das war wohl ein Fehler.
Es handelt sich um eine Art Kalender mit 12 Monaten. Jeder Bereich ist ein Monat.
Jeder Bereich besteht aus vier Spalten in der ersten steht das jeweilige Datum und in Spalte 4 wird dann die PKnr.(Putzkolonne) eingetragen. Anhand des Datums wird eingetragen wann die PK anfängt und wann sie aufhört. ZB. vom 12.1. bis zum 14.1, Einträge dann am 12.1 und am 14.1. Es gibt aber auch Einträge für einen Tag oder zwei Tage, diese spielen aber keine Rolle.
Es gibt 25 verschuedene PK und keine darf länger als 3 Tage hintereinander Dienst haben.
Dies möchte ich jetzt aus dem Kalender auslesen, in zwei Varianten.
zum einen wann die PK drei Tage Dienst haben ( PK1 12.1 14.1)
zum anderen Zählen wie oft eine PK drei Tage Dienst hatte (PK1 5)
Habe auch schon versucht die Monate in ein Array einzulesen, aber das gelingt mir nur für einen Monat.
Die anderen erscheinen immer als eigenes Areas. Es gelingt mir nicht ein Gesamtarray zu bilden.
Komme da einfach nicht dahinter.
Vielleicht könnt ihr trotz meines Fehlers noch etwas Hilfe geben.
Gruss Peter

…gestellt, Peter… ;-]
Ich hatte mich nämlich schon gefragt, was ein solcher Vgl soll! Damit hast du uns nur unnötige Arbeit verursacht!
Merke! Es ist stets kontraproduktiv, nicht das eigentliche Problem zu beschreiben, sondern stattdessen Fragen zu Details und Problemen eines selbst überlegten, vermeintlichen Lösungswegs zu stellen. Damit bekommt man auch nur dazu AWen und riskiert, das eigentliche Problem trotzdem nicht lösen zu können wie du es jetzt ja mal wieder „sehr schön“ demonstriert hast… :-|
Dieses falsche Vorgehen ist übrigens leider nicht gerade selten, weshalb es auch Gegenstand von Schulungen für Lehrkräfte und EDV-/IT-Trainer ist!
Ganz klar wird die Problematik durch deine ausführlichere Beschreibung nun auch nicht. Ich empfehle dir deshalb, ein sinnvoll vereinfachtes DateiBsp auf den herber-Server hochzuladen.
Gruß, Luc :-?

Sub Testarray() Dim i As Integer Dim j As Integer Dim x1 As Integer Dim x2 As Integer Dim arr1() As Variant Dim arr2() As Variant Dim arr13() As Variant arr1() = Sheets("Tabelle1").Range("Januar").Value x1 = UBound(arr1) arr2() = Sheets("Tabelle1").Range("Februar").Value x2 = UBound(arr2) ReDim arr13((x1 + x2), 4) For i = 1 To x1 For j = 1 To 4 arr13(i, j) = arr1(i, j) Next Next i For i = x1 + 1 To (x1 + x2) For j = 1 To 4 arr13(i, j) = arr2(i - x1, j) Next Next MsgBox UBound(arr13) MsgBox arr13(57, 4) End Sub

Beliebteste Forumthreads (12 Monate)

Zellenvergleich läuft aus Bereich

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellenvergleich läuft aus Bereich

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread