ja das war der Fehler den ich meinte ...
22.02.2019 08:53:38
Matthias
Hallo
Erstetze die Codezeilen der OptionButton
Private Sub OptionButton1_Click()
Dim rng As Range, MyMax&, MyMin, MyBool As Boolean
Dim LoLetzte&
With Tabelle2
LoLetzte = .Cells(.Rows.Count, 3).End(xlUp).Row
End With
MyMax = 0
MyMin = 0
For Each rng In Tabelle2.Range("C2:C" & LoLetzte) 'Bereich Anpassen oder Einlesen
If Left(rng, 3) = "888" Then
If Not MyBool Then MyMin = rng: MyBool = True 'einmalig MyMin setzen
MyMax = rng
If rng.Offset(1, 0) > rng + 1 Then Exit For
End If
Next
TextBox4 = rng + 1
End Sub
Private Sub OptionButton2_Click()
Dim rng As Range, MyMax&, MyMin, MyBool As Boolean
Dim LoLetzte&
With Tabelle2
LoLetzte = .Cells(.Rows.Count, 3).End(xlUp).Row
End With
MyMax = 0
MyMin = 0
For Each rng In Tabelle2.Range("C2:C" & LoLetzte) 'Bereich Anpassen oder Einlesen
If Left(rng, 3) = "777" Then
If Not MyBool Then MyMin = rng: MyBool = True 'einmalig MyMin setzen
MyMax = rng
If rng.Offset(1, 0) > rng + 1 Then Exit For
End If
Next
TextBox4 = rng + 1
End Sub
Private Sub OptionButton3_Click()
Dim rng As Range, MyMax&, MyMin, MyBool As Boolean
Dim LoLetzte&
With Tabelle2
LoLetzte = .Cells(.Rows.Count, 3).End(xlUp).Row
End With
MyMax = 0
MyMin = 0
For Each rng In Tabelle2.Range("C2:C" & LoLetzte) 'Bereich Anpassen oder Einlesen
If Left(rng, 3) = "999" Then
If Not MyBool Then MyMin = rng: MyBool = True 'einmalig MyMin setzen
MyMax = rng
If rng.Offset(1, 0) > rng + 1 Then Exit For
End If
Next
TextBox4 = rng + 1
End Sub
Private Sub OptionButton4_Click()
Dim rng As Range, RngMax&
Dim LoLetzte&
With Tabelle2
LoLetzte = .Cells(.Rows.Count, 3).End(xlUp).Row
End With
RngMax = 0
For Each rng In Tabelle2.Range("C2:C" & LoLetzte) 'Bereich Anpassen oder Einlesen
If rng > RngMax Then
RngMax = rng
End If
Next
TextBox4 = RngMax + 1
End Sub
Zitat
Das absteigende Sortieren nach Click auf "Übernehmen" habe ich auch ins Makro gepackt und funktioniert.
Wichtig!
Das muss aber schon vor dem Laden des Formular sortiert sein, und zwar aufsteigend!
Nach dem Übernehmen solltest Du erneut sortieren.
Was ich überhaupt nicht verstanden habe sind Deine Werte in "A" & "E".
Willst Du denn diese Werte nicht auch automatisieren?
https://www.herber.de/bbs/user/127827.xlsm
Gruß Matthias
