ich moechte Daten sortieren, bevor ich sie in eine ComboBox einlese. Dies aber ohne das Sheet mit den Daten zu aktivieren. Ist das moeglich, da ich nicht moechte, dass meine Ansicht "zappelt". Zellen kann man ja auch beschreiben, ohne ein aktives Sheet zu haben.
Mein Code:
Sub UpdateDef()
Dim sPart As String
Dim varR1 As Integer
Dim varR2 As Integer
Dim varC1 As Integer
Dim varC2 As Integer
intR1 = 2
intC1 = 1
Sheets("Input").ComboBox1.Clear
Sheets("Correlation").Select
Columns("A:A").Select
Selection.sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
Sheets("Input").Select
Do While Not Sheets("Correlation").Cells(intR1, intC1) = ""
sPart = Sheets("Correlation").Cells(intR1, intC1)
Sheets("Input").ComboBox1.AddItem (sPart)
intR1 = intR1 + 1
Loop
End Sub