Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Einlesen von Zellinhalt mit Zeilenumbruch
23.10.2004 17:02:40
Zellinhalt
Hallo Leute,
ich habe mir eine feine kleine Routine erstellt, die Zellen einer Zeile in eine ComboBox einliest. Diese ComboBox ist auf einer UserForm, die mittels Buttom ausgelesen wird. Bis dahin ist alles ein Selbstgänger gewesen...
Einige Zellen auf dem Tabellenblatt haben Text mit Zeilenumbruch (Alt + Return)...und die machen Probleme...
Die ComboBox wird als Filter eingesetzt und erkennt leider nicht den ComboBox Inhalt mit dem vergleichenden Inhalt auf dem Tabellenblatt an.
Hier der Code:

Private Sub CommandButton2_Click()
Dim z As Range
For Each z In Range("D3:AZ3")
If z.Value <> ComboBox2.Value Then
Columns(z.Column).Hidden = True
Else
Columns(z.Column).Hidden = False
End If
Next z
Range("D1").Select
End Sub

__________________________________________________________
Private Sub UserForm_Initialize()
Dim col2 As New Collection
Dim ycolumn As Integer
ycolumn = 4
Do Until IsEmpty(Cells(3, ycolumn))
col2.Add Cells(3, ycolumn), Cells(3, ycolumn)
If Err = 0 Then
ComboBox2.AddItem Cells(3, ycolumn)
Else
Err.Clear
End If
ycolumn = ycolumn + 1
Loop
On Error GoTo 0
ComboBox2.ListIndex = 0
End Sub
________________________________________________-
Bin für jeden Tipp dankbar!

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Einlesen von Zellinhalt mit Zeilenumbruch
Zellinhalt
Hallo, ich wuerde z.B. die VBA.Strings Funktion Replace benutzen, um den Linefeed character zu entfernen. Entfernen muss man es auch beim Vergleich (Button2 Click). Gruss Dan, CZ.


Option Explicit
Private Const REPLACE_STR As String = "_"
Private strZelleText As String
Private Sub CommandButton2_Click()
    Dim As Range
    
    For Each In Range("D3:AZ3")
        strZelleText = z.Text
        strZelleText = VBA.Strings.Replace(strZelleText, vbLf, REPLACE_STR)
        
        If strZelleText <> ComboBox2.Value Then
            Columns(z.Column).Hidden = True
        Else
            Columns(z.Column).Hidden = False
        End If
        
    Next z
    
    Range("D1").Select
End Sub
Private Sub UserForm_Initialize()
    Dim col2 As New Collection
    Dim ycolumn As Integer
    
    ycolumn = 4
    strZelleText = Cells(3, ycolumn).Text
    
    Do Until (strZelleText = "")
        ' das Zeichen vbLf durch REPLACE_STR ersaetsen
        strZelleText = VBA.Strings.Replace(strZelleText, vbLf, REPLACE_STR)
        ' und strZelleText in den Combo zugeben
        ComboBox2.AddItem strZelleText
        ycolumn = ycolumn + 1
        strZelleText = Cells(3, ycolumn).Text
    Loop
    
    ComboBox2.ListIndex = 0
End Sub


Anzeige
RESPEKT!!!!
23.10.2004 20:39:41
Claus
Danke!

320 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige