Thema Datum  Von Nutzer Rating
Antwort
Rot if abfrage...
 14.11.2013 15:52:47 Gast13315
Solved
14.11.2013 20:05:48 Neuhäusler Korbinian
Solved

Ansicht des Beitrags:
Von:
Gast13315		 Datum:
14.11.2013 15:52:47		 Views:
1231		 Rating:
     
Antwort:
 Nein
Thema:
if abfrage...

Hallo Community,

mir ist die Frage eigentlich zu peinlich, aber irgendwie funktioniert die if-abfrage nicht:

Private Sub UserForm_initialize()

On Error GoTo fehlerende:


With ListBox1
      .ColumnCount = 2
      .ColumnWidths = "3,5cm; 1cm"
      
      For x = 0 To 100
      
      If Worksheets("Tabelle1").Cells(19 + x, 1).Value <> "" Then
                    MsgBox "" & Worksheets("Tabelle1").Cells(19 + x, 1).Value
                   .AddItem
                   .List(.ListCount - 1, 0) = Worksheets("Tabelle1").Cells(19 + x, 1).Value  'Bezeichnung
                   .List(.ListCount - 1, 1) = Worksheets("Tabelle1").Cells(19 + x, 2).Value  'Nummer
          Else
          End If
    Next x
    
End With

fehlerende:


End Sub

Betrachtet werden maximal 100 Datensätzen. Sofern ein Datensatz in einer Zeile vorhanden ist soll dieser In eine Listbox geladen werden. Bezugspunkt sind die Daten im Tabellenblatt "Tabelle1". Wieso auch immer fügt der Code-Schnipsel auch weitere Items in die ListBox ein, obwohl in der Zeile kein Datensatz vorhanden ist...

 

Vielen Dank für eure Hilfe!

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:



  • 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 if abfrage...
 14.11.2013 15:52:47 Gast13315
Solved
14.11.2013 20:05:48 Neuhäusler Korbinian
Solved