Textboxen vergleichen
16.01.2004 07:20:42
felix
in dem folgenden Code habe ich ein Problem
diese Stelle:
Set Controls("Sp_" & (TextBox1.Value)) = .Cells(Zeile1, Spalte1)
Ich möchte das der Inhalt der Textbox die Variable im Zusammenhang mit "SP_"
ergibt. (In der Textbox steht eine Zahl zwischen 1 und 3). Nur mit "controls" fuktioniert es nicht. Hat jemand eine Idee???
im Nachklapp der komplette Code
Gruß
Felix
Private Sub Sortieren()
Dim Sp_1 As Range, Sp_2 As Range, Sp_3 As Range, Sp_4 As Range, Sp_5 As Range _
, Sp_6 As Range, Sp_7 As Range, Sp_8 As Range, Sp_G As Range
Call SchutzRaus
With Sheets(1)
Set Sp_G = .Range(Cells(Zeile1, Spalte1), Cells(65536, Spalte10))
Set Controls("Sp_" & (TextBox1.Value)) = .Cells(Zeile1, Spalte1)
Set Controls("Sp_" & (TextBox2.Value)) = .Cells(Zeile1, Spalte2)
Set Controls("Sp_" & (TextBox3.Value)) = .Cells(Zeile1, Spalte3)
End With
Sp_G.Sort Key1:=Sp_1, Order1:=xlAscending, Key2:=Sp_2 _
, Order2:=xlAscending, Key3:=Sp_3, Order3:=xlAscending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Call SchutzRein
End Sub