Thema Datum  Von Nutzer Rating
Antwort
Rot Listbox Goto
 21.06.2016 15:19:41 Alex
NotSolved
21.06.2016 18:45:58 Gast33564
NotSolved
21.06.2016 18:57:49 Gast25315
NotSolved
21.06.2016 19:12:23 Gast96028
NotSolved
22.06.2016 10:30:49 Gast9385
NotSolved
22.06.2016 11:25:38 Gast75374
NotSolved

Ansicht des Beitrags:
Von:
Alex		 Datum:
21.06.2016 15:19:41		 Views:
1483		 Rating:
     
Antwort:
  Ja
Thema:
Listbox Goto
Hallo Leute, brauche dringend eure Hilfe.. sitze seit zwei tagen an diesem Fehler und komme nicht weiter: Userform2.ListBox1.Clear For Each f In ThisWorkbook.Worksheets("Report").[Fehler1] 'Definierter Bereich mit Namen If ThisWorkbook.Worksheets("Report").UsedRange.Cells(f.Row, f.Column).Value = "#Fehler#" Or ThisWorkbook.Worksheets("Report").UsedRange.Cells(f.Row, f.Column).Value = "Nichts gefunden" Then With Userform2.ListBox1 .ColumnCount = 6 .ColumnHeads = False .AddItem .List(.ListCount - 1, 0) = f.Offset(0, -10).Value 'nummer .List(.ListCount - 1, 1) = f.Address .List(.ListCount - 1, 2) = f.Offset(0, -2).Value 'Summe .List(.ListCount - 1, 3) = f.Offset(0, 0).Value 'WERT der Zelle -- FEHLER oder nichtsgefunden .List(.ListCount - 1, 4) = f.Offset(0, -5).Value 'nummer2 .List(.ListCount - 1, 5) = f.Offset(0, -8).Value 'partner .ColumnWidths = "4cm;3cm;1cm;2,5cm;3cm;2cm" '.ColumnWidths = "3.5cm;2.5cm;1cm;2.5cm;3cm;2cm" End With Else End If Next f Userform2.Show End Sub Private Sub ListBox1_Click() 'Bei Klick auf einen Treffer soll diese Zelle in der Tabelle ausgewählt werden Application.Goto Reference:=Sheets("SSB Report").Range("M" & ListBox1.List(ListBox1.ListCount)) End Sub ------------------------------------------------------------------------------------------------------------------ Ich will mit klick auf eine Listboxzeile zu der zelle in dem Tabellenblatt springen... und es geht nicht Fehler "Object requiered" ich habe diese Zeile ---Application.Goto Reference:=Sheets("SSB Report").Range("M" & ListBox1.List(ListBox1.ListCount))-- schon in 80 verschiedenen varianten geschriebn--- auch so ----Application.Goto .Range(ListBox1.List(ListBox1.ListIndex, 1)) (wobei ich nur erahnen kann wozu die 1 da steht.. trotzdem gibt es immer einen FEHLER aus.. bitte um hilfe!! DANKE

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 Listbox Goto
 21.06.2016 15:19:41 Alex
NotSolved
21.06.2016 18:45:58 Gast33564
NotSolved
21.06.2016 18:57:49 Gast25315
NotSolved
21.06.2016 19:12:23 Gast96028
NotSolved
22.06.2016 10:30:49 Gast9385
NotSolved
22.06.2016 11:25:38 Gast75374
NotSolved