Thema Datum  Von Nutzer Rating
Antwort
Rot Probleme beim ansprechen einer ListBox
 21.04.2020 20:18:37 Alex
Solved
22.04.2020 07:49:58 Gast36137
NotSolved
22.04.2020 11:43:12 Alex
NotSolved
22.04.2020 12:02:43 Alex
NotSolved

Ansicht des Beitrags:
Von:
Alex		 Datum:
21.04.2020 20:18:37		 Views:
1116		 Rating:
     
Antwort:
 Nein
Thema:
Probleme beim ansprechen einer ListBox

Hallo,

Bin gerade dabei einen Code eines Freundes umzuschreiben, so dass er für mich passt.

Irgendwie bekomme ich es nicht hin, dass von ListBox1 die erste Spalte angesprochen wird, da es eine zweispaltige ListBox geworden ist. BoundColumn hätte ich schon auf die erste Spalte gesetzt, damit diese mit dem .Value Befehl angesprochen werden kann.  Nur so wie ich bis jetzt herum probiert hätte, hat es nicht funktioniert.

Vielleicht könnte mir ja jeman weiterhelfen.

Sub CommandButton2_Click()

?
1
2
3
4
5
6
Dim loIndex As Long, raTreffer As Range, loLetzte As Long
  
For loIndex = 0 To Me.<strong>ListBox1</strong>.ListCount - 1
    If Me.<strong>ListBox1</strong>.Selected(loIndex) Then
        With Worksheets("Dokumentation")
            Set raTreffer = .Columns(8).Find(What:=Me.<strong>ListBox1</strong>..List(loIndex), LookIn:=xlValues, lookat:=xlWhole)  'Spalte Suchkreterium
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
            If Not raTreffer Is Nothing Then
                If .Cells(raTreffer.Row + 66, 5) = "" Then     'Letzte Zeile in Tabelle + Spalte
                    loLetzte = .Cells(raTreffer.Row + 67, 5).End(xlUp).Offset(1).Row  'Letzte Zeile + 1 in Tabelle + Suchkreterium
                        If TextBox1.Value = True Then
                        .Cells(loLetzte, 1) = CDate(Me.TextBox1)
                        End If
                        .Cells(loLetzte, 17) = Me.TextBox2
                        .Cells(loLetzte, 20) = Me.TextBox3
                        .Cells(loLetzte, 39) = Me.TextBox4
                        .Cells(loLetzte, 32) = Me.TextBox6
                        .Cells(loLetzte, 24) = Me.TextBox7
                        .Cells(loLetzte, 21) = Me.TextBox8
                        .Cells(loLetzte, 5) = Me.ComboBox1
                        .Cells(loLetzte, 36) = Me.ComboBox2
                Else
                    MsgBox "Eintrag unter der Liste " & Me.ListBox1.List(loIndex) & " nicht möglich," _
                    & vbLf & "diese Liste ist voll."
                End If
            End If
            Set raTreffer = Nothing
        End With
    End If
Next loIndex
  
Set raTreffer = Nothing

 

LG Alex

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Probleme beim ansprechen einer ListBox
 21.04.2020 20:18:37 Alex
Solved
22.04.2020 07:49:58 Gast36137
NotSolved
22.04.2020 11:43:12 Alex
NotSolved
22.04.2020 12:02:43 Alex
NotSolved