Ich habe schon wieder ein Problem...
Ich versuche Meine Code zu verallgemeinern um ihn flexibler anwenden zu können.
Dafür hab ich eine Userform angelegt bei der ich die auswählen kann, wie viele Zeilen markiert werden sollen. Nun möchte ich mit diesem ausgewählten Bereich weiterrechnen, aber wie macht man das ?
Codes:
Userform:
Public Sub TextBox1_Change()
Dim i As Variant
i = TextBox1.Value
End Sub
Public Sub TextBox2_Change()
Dim l As Variant
l = TextBox2.Value
End Sub
Public Sub CommandButton1_Click()
l = TextBox2.Value
i = TextBox1.Value
Range(Cells(i, 3), Cells(l, 3)).Select
End Sub
Public Sub CommandButton2_Click()
If Click = True Then Goto Sub 'von hier möchte ich zurückkommen
Makro:
Sub AllgeAnalyse()
Dim rngBereich As Range
Dim zeile As Variant, Bereich
Dim myDic As Object
Dim Arr As Variant
Dim a As Variant
Dim MyAdress As Variant
'Löschen
UserForm2.Show
'Bereich auswählen
UserForm3.Show
'Mittelwert,Median
'Hier soll der Bereich übernommen werden um den Mittelwert und Median zu berechnen
Range("F2") = Application.WorksheetFunction.Average(Bereich)
Range("G2") = Application.WorksheetFunction.Median(Bereich)