Erstes+Letztes Ergebnis aus Schleife
29.12.2021 12:29:32
Romy
mit der untenstehenden Schleife wird jede Zelle in einer Tabelle durchgegangen und für jede gefundene Zelle ein Range Bereich 1 und 2 gesetzt. Gibt es die Möglichkeit den ersten und letzten gefunden Range-Bereich in je einer weiteren Variable (rngErste / rngLetzte) zu speichern?
Option Explicit
Dim R As Long
Dim rng As Range, Bereich1 As Range, Bereich2 As Range, Bereich3 As Range
Dim BlattName1 As String, BlattName3 As String, BlattName2 As String
Dim var1 As Long, var2 As Long, var3 As Long, var4 As Long, R1Wert As Long, R2Wert As Long, R3Wert As Long
Sub Test
For Each rng In Range(Range("Struktur[[Lfd. Nr.]]").Address)
R = rng.Row
C1 = (Sheets(BlattName3).Cells(R, Range(Range("Struktur[[1.Zeile]]").Address).Column).Value)
C2 = (Sheets(BlattName3).Cells(R, Range(Range("Struktur[[1.Spalte]]").Address).Column).Value)
C3 = (Sheets(BlattName3).Cells(R, Range(Range("Struktur[[L.Zeile]]").Address).Column).Value)
C4 = (Sheets(BlattName3).Cells(R, Range(Range("Struktur[[L.Spalte]]").Address).Column).Value)
Set Bereich1 = Sheets(BlattName2).Range(Sheets(BlattName2).Cells(C1, C2).Address & ":" & Sheets(BlattName2).Cells(C3, C4).Address)
Set Bereich2 = Sheets(BlattName2).Range(Sheets(BlattName2).Cells(C1 + 1, C2).Address & ":" & Sheets(BlattName2).Cells(C3 + 1, C4).Address)
With Bereich1
.MergeCells = True
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Font.Bold = True
.Value = Sheets(BlattName3).Cells(R, Range(Range("Struktur[[Text1]]").Address).Column).Value
End With
'An dieser Stelle kommt weiterer Code, den ich nicht eingefügt habe. Er ist für meine Fragestellung nicht von Bedeutung.
Set Bereich1 = Nothing
Set Bereich2 = Nothing
Next rng
End Sub