Hallo Zusammen,
habe nachstehende Schleife die auf eine gefilterte Tabelle alle sichtbaren Zeilen durchlaeuft und mir fuer jede Zeile eine UserForm oeffnet in der der User eine Eingabe macht. Soweit funktioniert alles.
Nun ist die Anforderung einen Button zu installieren die dem User die Moeglichkeit gibt die Zeile vorher noch einmal aufzurufen. Habe im Moment keine Idee wie sich das umsetzen laesst.
Wuerde mich ueber Hilfe freuen.
Gruesse
abu
Set oFilter = CreateObject("Scripting.dictionary")
For Each rngG In Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
oFilter(rngG.Value) = rngG.Value
Next
ar = oFilter.Keys
For i = 0 To UBound(ar)
Selection.AutoFilter Field:=1, Criteria1:=ar(i)
leZeile = CLng(Range(ActiveSheet.Range("A:A").Find(What:="*", _
After:=Range("A65536"), LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Address).Row)
If leZeile 1 Then
With ActiveSheet.UsedRange
Set rngFilter = .Offset(1, 0).Resize(.Rows.Count - 1, 1) _
.SpecialCells(xlCellTypeVisible)
End With
With ActiveSheet
For Each rngArea In rngFilter
For lngRow = 1 To rngArea.Rows.Count
'sichtbare Zeile in Filterung
Daily.TextBox7.Value = .Cells(rngArea.Row, 33).Value
Daily.TextBox1.Value = .Cells(rngArea.Row, 34).Value
Daily.TextBox3.Value = .Cells(rngArea.Row, 2).Value
Daily.TextBox4.Value = .Cells(rngArea.Row, 1).Value
Daily.TextBox5.Value = .Cells(rngArea.Row, 4).Value
MeineZeile = rngArea.Row
If WorkSheetExists("Daily") Then
Worksheets("Daily").Activate
End If
Daily.Show
Next lngRow
Next rngArea
End With
End If
Next