stehe heute morgen wieder etwas neben der Mütze.
Ich habe in einer UserForm eine ClickButton eingebaut. Dieser soll, wenn er betätigt wird (bei dem ersten Mal betätigen auf die letzte Zeile) und bei jedem weiteren betätigen um -1 nach oben. Bespiel :
(letzte Zeile = 54) "1.Klick" gehe auf Zeile 54
"2. Klick gehe auf Zeile 53" usw und jedes mal möchte ich gerne in jeder Zeile die angesprochen wird eine bestimmte Zelle in die TextBox eingefügt haben. Mein Ansatz:
Option Explicit
Private Sub CmdCheckActivity_Click()
Dim Kriterium1 As String, Kriterium2 As String, LetzteZeile As Integer, i As Integer
Kriterium1 = ComboBox7
Kriterium2 = ComboBox1
Range("B1").AutoFilter , Field:=2, Criteria1:=Kriterium1 'setzt einen Filter
Range("E1").AutoFilter , Field:=5, Criteria1:=Kriterium2 ' setzt einen Filter
LetzteZeile = Range("B65536").End(xlUp).Offset(1, 0).Row 'bestimmt die letzte Zeile
For i = LetzteZeile To 2
If Rows(i).RowHeight grosser 0 Then 'identifiziert nur dieZeilen, die ausgefiltert wurden (höhe grösser 0)
Eigentlich ist eine For-Schleife falsch, da ich das was die Schleife macht mit einem Klick machen möchte. Ich komme aber leider nicht weiter. Besten Dank im Voraus für eure wertvollen Tipps