Sub nachdatumsort()
    ActiveWorkbook.Worksheets("blatt").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("blatt").AutoFilter.Sort.SortFields.Add2 Key:= _
        Range("T5:T9110"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("blatt").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

=IFERROR(INDEX('t1'!B:B,SMALL(IF(0<'t1'!$E$4:$E$200,ROW($E$4:$E$200)),ROW(A1))),"")

=ЕСЛИОШИБКА(ИНДЕКС('t1'!B:B;НАИМЕНЬШИЙ(ЕСЛИ(0<'t1'!$E$4:$E$200;СТРОКА($E$4:$E$200));СТРОКА(A1)));"")

Function request(pAdress As String, pBasicAuth As String) As String
    Dim objHTTP As Object
    Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    With objHTTP
        .Open "GET", pAdress, False
        .SetRequestHeader "Authorization", "Bearer" + pBasicAuth
        .SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
        .SetRequestHeader "Content-type", "application/x-www-form-urlencoded"
        .Send ("keyword=php")
    End With
    request = objHTTP.ResponseText
End Function

Sub Info()

Cells(1, 1).Value = request("https://192.168.245.11:90/api/get/data?elm=STATE", " edXXXXXXXXXXb4f24309a625618c85650a55b934fd2b7b4da710351")


End Sub

If ComboBox6.ListIndex >= 0 Then
Label18.Visible = True
Label18.Caption = ShLabel.Cells(18, 1)                                  
ComboBox7.Visible = True

    If ComboBox6.ListIndex = 0 Then
    
        With ComboBox7
             ComboBox7.RowSource = Names("menu1").RefersTo           
        End With
    
    
    ElseIf ComboBox6.ListIndex = 1 Then
        
        With ComboBox7
             ComboBox7.RowSource = Names("menu2").RefersTo            
        End With
        
    End If
End If

Private Sub ComboBox2_Change()
UserForm_Initialize
End Sub

Private Sub ComboBox3_Change()
UserForm_Initialize

End Sub

Private Sub ComboBox4_Change()
UserForm_Initialize
End Sub

Private Sub CommandButton5_Click()
UserForm_Initialize
End Sub

Option Explicit

Private Sub UserForm_Initialize()
Dim i% 'Страницу Дмитрия изучил :)

For i = 1 To 40
UserForm1.Controls("Label" & CStr(i)).Caption = Worksheets("label").Cells(i, 1)
Next i
'это работает


'а это не работает, поэтому закомментировал пока

'For i = 1 To 40
'UserForm1.Controls("ComboBox" & CStr(i)).RowSource = Range(Worksheets("menu").Cells(i, 1), Worksheets("menu").Cells(i, 10))
'Next i

End Sub

Private Sub ComboBox27_Change()
UserForm_Initialize
End Sub 

 With ComboBox5
    ComboBox5.RowSource = Range("notaus").Address
End With

MyVar = Range("A5").Value

Dim Spalte as String
Dim Zeile as String
Dim MyVar as Variant

Spalte = "A"
Zeile = "5"

MyVar = Range (Spalte & Zeile) 
''Var1

MyVar = Range ("A" & Zeile)  '
'Var2

=ЕСЛИ((ЗНАЧЕН(ЛЕВСИМВ($B$7;1)))=1;struktur!$I$11:$I$12;ЕСЛИ(ЗНАЧЕН(ЛЕВСИМВ($B$7;1)))>1;struktur!$I$9:$I$12;"")