Umterschied ComboBox / TextBox?

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox MsgBox
Bild

Betrifft: Umterschied ComboBox / TextBox?
von: Erich M.
Geschrieben am: 26.03.2005 18:56:15
Hallo EXCEL-Freunde,
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
Bild

Betrifft: AW: Umterschied ComboBox / TextBox?
von: Ramses
Geschrieben am: 26.03.2005 22:16:32
Hallo
warum so kompliziert ?
Me.Textbox1 = Cells(i,255).End(xlToLeft).Column
Thats it !
Gruss Rainer
Bild

Betrifft: AW: Umterschied ComboBox / TextBox?
von: Erich M.
Geschrieben am: 26.03.2005 22:31:57
Hallo Rainer,
das komplizierte hatte ich mit Hilfe des Forums mal erstellt.
Allerdings kommt bei Deinem Vorschlag für die Textbox: Laufzeitfehler 1004 ??
mfg
Erich
http://www.toolex.de
Bild

Betrifft: AW: Umterschied ComboBox / TextBox?
von: Ramses
Geschrieben am: 26.03.2005 22:39:54
Hallo
dann ist i nicht initialisiert oder es gibt keine Textbox1
Tabelle1
 ABCD
1    
2    
3Letzte Spaltehier 
4    
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
und mit diesem Code erhalte ich den korrekten Wert 3

Sub LetzeSpalte()
Dim i As Integer
i = 3
Msgbox  Cells(i,255).End(xlToLeft).Column
End Sub


Gruss Rainer
Bild

Betrifft: ...aber der richtige Ansatz:
von: Erich M.
Geschrieben am: 26.03.2005 22:41:29
aber so gehts:
Me.TextBox2 = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
Besten Dank Rainer!!
mfg
Erich
http://www.toolex.de
Bild

Betrifft: Untauglich...
von: Ramses
Geschrieben am: 26.03.2005 22:43:47
Hallo
...weil EXCEL als "UsedRange" den gesamten Bereich der Formatiert ansieht.
Da muss nichts drin stehen, es reicht schon wenn ein nur eine Hintergrundfarbe oder ein Rahmen vergeben wird.
Gruss Rainer
Bild

Betrifft: Danke Rainer - jetzt alles klar und perfekt!!!!
von: Erich M.
Geschrieben am: 27.03.2005 09:05:09
mfg
Erich
http://www.toolex.de
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Umterschied ComboBox / TextBox?"