wenn ich in einer UF die ComboBox2 aktiviere, dann wird für die ComboBox3
ermittelt, welche Spalte (rechts) als letzte belegt ist:
Private Sub ComboBox2_Change() Dim AM As Workbook, strspalte(1 To 256) As String, i As Integer Dim intSpalte2 As Integer, mySpalte As Integer Workbooks(ComboBox1.Text).Activate Worksheets(ComboBox2.Text).Select mySpalte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column intSpalte2 = mySpalte + 1 For i = intSpalte2 To 256 strspalte(i) = Cells(i).Address(RowAbsolute:=False, ColumnAbsolute:=False) strspalte(i) = Left(strspalte(i), Len(strspalte(i)) - 1) With ComboBox3 .AddItem strspalte(i) End With Debug.Print strspalte(i) Next i End Sub
Wenn ich das nun einfach als eintrag in eine TextBox wünsche (es soll die
letzte Spalte rechts angezeigt werden), dann verlässt mich der code.
Wie müsste ich das ändern; bisher versucht:
intSpalte2 = mySpalte + 1
For i = intSpalte2 To 256
strspalte(i) = Cells(i).Address(RowAbsolute:=False, ColumnAbsolute:=False)
strspalte(i) = Left(strspalte(i), Len(strspalte(i)) - 1)
With TextBox2
TextBox2 = strspalte(i)
End With
Debug.Print strspalte(i)
Next i
Alles umsonst bisher.
Besten Dank für eine Hilfe!!
mfg
Erich
http://www.toolex.de