Hallo zusammen,
habe ein kleines Problem und hoffe ihr koennt mir helfen.
Habe ein Makro das einen Filter setzt.
Anschliessend Frage ich mit eine Schleife alle sichtbaren Zeilen ab.
Nun moechte ich das oeffnen der UserForm in die Schleife einbauen. Soweit klappt alles.
Nun mein Problem: Ich bekomme immer einen falschen Wert uebergeben und zwar den Wert der letzten Zeile. Wenn ich mir die Werte im Modul anschaue, stimmen sie noch aber wenn ich mir dann die Variabel in der UserForm anschaue hat sie den Wert der letzten Zeile.
MeineZeile ist im Modul und auch in der UserForm als Public deklariert
With ActiveSheet
For Each rngArea In rngFilter
For lngRow = 1 To rngArea.Rows.Count
'sichtbare Zeile in Filterung
Closed.TextBox1.Value = .Cells(rngArea.Row, 34).Value
Closed.Show
MeineZeile = rngArea.Row
Next lngRow
Next rngArea
End With
Hat jemand vllt. eine Idee was ich falsch mache?
Beste Gruesse
Abu