Thema Datum  Von Nutzer Rating
Antwort
19.10.2020 08:33:56 Michael
NotSolved
19.10.2020 08:45:36 Mase
NotSolved
19.10.2020 08:55:00 Gast41075
NotSolved
19.10.2020 09:09:51 Mase
NotSolved
19.10.2020 09:37:17 Michael
NotSolved
19.10.2020 11:01:56 Gast21788
NotSolved
19.10.2020 11:43:42 Mase
NotSolved
19.10.2020 13:08:17 Gast7133
NotSolved
19.10.2020 13:11:00 Gast29911
NotSolved
19.10.2020 13:17:56 Gast97474
NotSolved
19.10.2020 13:40:02 Mase
NotSolved
Blau Daten aus anderer Datei übernehmen
20.10.2020 13:31:00 Gast80126
NotSolved
20.10.2020 14:05:21 Mase
NotSolved
20.10.2020 15:12:23 Gast43734
NotSolved
21.10.2020 08:09:49 Mase
NotSolved

Ansicht des Beitrags:
Von:
Gast80126
Datum:
20.10.2020 13:31:00
Views:
664
Rating: Antwort:
  Ja
Thema:
Daten aus anderer Datei übernehmen

Servus Mase und alle anderen hier,

 

danke erstmal für deine Geduld. Sind leider meine ERsten Gehversuche mit VBA und versuche mit alles mit Videos etc beizubringen deshalb die vemutlich etwas "dummen" Fragen und Anfängerfehler.

 

Ich hab da mal wieder ein Problem und eine Verständnisfrage

 

Frage: Wir suchen im Bereich A2 bis F10 nach Bestellnummer. Nachdem die ja aber immer in Spalte A steht würde es doch reichen in A2:A10 zu suchen oder?

 

Problem: ich hab das mal stupide so abgetippt und dachte es läuft haha. Vermutlich hast du erwartet, dass ich die Variablen noch selbst deklariere oder? Also bei der Wertezuweisung scheitert es komplett. 

Sobald ich auf "Load Data" klicke kommt Run-time error '91' Object variable or With block variable not set

Und trotz des Abbruchkriteriums stürzt Excel komplett ab wenn ich einen Wert eingebe den er nicht findet. Hab versuche dann eine MsgBox einzufügen die den Text "Wert nicht gefunden" ausgibt. Dabei ist allerdings das Problem, dass er es auch im Erfolgsfall anzeigt. Also auch wenn Werte gefunden wurden. 

 

Auch ist das Problem weiterhin, dass er mit dem

 

Sub UserForm_Initialize()
      
       
       For i = 1 To Sheets(2).Cells(1, Cells.Columns.Count).End(xlUp).Column
            ListBox1.AddItem Sheets(2).Cells(1, i)
        
        Next
        
  
    With Mitarbeiter
    
        .RowSource = "D5:D" & Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row
        .Style = fmStyleDropDownList
        .ListIndex = 0
        .ListRows = 5
        
    End With
 
auf die falschen Daten zugreift.
 
Wäre super lieb wenn du mir sagen kannst wo mein Fehler liegt.
Du musst dir gar nicht die Arbeit machen immer eine Lösung zu präsentieren. Versuche gerne sowas mit einem Anstoß selbst zu lösen.

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
19.10.2020 08:33:56 Michael
NotSolved
19.10.2020 08:45:36 Mase
NotSolved
19.10.2020 08:55:00 Gast41075
NotSolved
19.10.2020 09:09:51 Mase
NotSolved
19.10.2020 09:37:17 Michael
NotSolved
19.10.2020 11:01:56 Gast21788
NotSolved
19.10.2020 11:43:42 Mase
NotSolved
19.10.2020 13:08:17 Gast7133
NotSolved
19.10.2020 13:11:00 Gast29911
NotSolved
19.10.2020 13:17:56 Gast97474
NotSolved
19.10.2020 13:40:02 Mase
NotSolved
Blau Daten aus anderer Datei übernehmen
20.10.2020 13:31:00 Gast80126
NotSolved
20.10.2020 14:05:21 Mase
NotSolved
20.10.2020 15:12:23 Gast43734
NotSolved
21.10.2020 08:09:49 Mase
NotSolved