Thema Datum  Von Nutzer Rating
Antwort
Rot Instr verursacht Fehler
 24.10.2017 15:22:37 Gregor
Solved
24.10.2017 16:03:54 Mackie
NotSolved
24.10.2017 16:41:05 Gast70117
Solved
26.10.2017 09:14:02 Gast61866
NotSolved

Ansicht des Beitrags:
Von:
Gregor		 Datum:
24.10.2017 15:22:37		 Views:
1246		 Rating:
     
Antwort:
 Nein
Thema:
Instr verursacht Fehler
Hallo Liebe Community, In meiner Subroutine soll das Programm bestimmte Werte in der Tabelle finden und die Nummer der ersten und letzten Zeile in der die Werte hinterlegt sind in einer Variable speichern. Vorher wird noch einer neue Tabelle angelegt. Diese soll dann mit Daten aus der aktuellen Tabelle befüllt werden. Das ist erst ein Teil des Codes. Ich bekomme ständig die Fehlermeldung Objekt benötigt ausgegeben. Im Debugmodus ist die Zeile mit dem Instr Befehl gelb markiert. Ich kann den Fehler absolut nicht finden. Danke im Vorraus für euer Hilfe. Dim BereichA As Integer Dim BereichE As Integer Dim Spalte As Integer Dim Filiale As String Dim Name1 As String Sub NeueArbeitsmappe() Dim Name2 As String Dim Datum As Date Dim Bestellnr As String Name1 = ActiveWorkbook.Name Workbooks.Add Name2 = ActiveWorkbook.Name Windows(Name2).Activate ActiveCell.FormulaR1C1 = "Datum" Range("B1").Select ActiveCell.FormulaR1C1 = "Bestellung" Range("C1").Select ActiveCell.FormulaR1C1 = "Filiale Nr." Range("D1").Select ActiveCell.FormulaR1C1 = "Artikel" Range("E1").Select ActiveCell.FormulaR1C1 = "Text" Range("F1").Select ActiveCell.FormulaR1C1 = "Artikelnummer DTV" Range("G1").Select ActiveCell.FormulaR1C1 = "Menge" Range("H1").Select ActiveCell.FormulaR1C1 = "ME" Range("I1").Select ActiveCell.FormulaR1C1 = "Netto" Windows(Name1).Activate Range("G4").Select Datum = ActiveCell.Value Windows(Name2).Activate Range("A2").Select ActiveCell.Value = Datum Windows(Name1).Activate Range("D4").Select Bestellnr = ActiveCell.Value Windows(Name2).Activate Range("B2").Select ActiveCell.Value = Bestellnr Spalte = 1 Filiale = 2 Call BB MsgBox BereichA & BereichE Columns("A:I").EntireColumn.AutoFit End Sub Sub BB() Dim i As Integer Dim SearchStr As String Dim Zeile As Integer Dim TextPos As Integer i = 0 Zeile = 6 Windows(Name1).Activate Do While i = 0 SearchStr = Cells(Zeile, Spalte).Value TextPos = InStr(1, SearchStr, Filiale, CompareMethod.Text) If TextPos = 1 And Cells(Zeile + 1, Spalte) <> "" Then BereichA = Zeile Zeile = Zeile + 1 ElseIf TextPos = 1 And Cells(Zeile + 1, Spalte) = "" Then BereichE = Zeile i = 1 Else Zeile = Zeile + 1 End If Loop End Sub Gruß Gregor

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 Instr verursacht Fehler
 24.10.2017 15:22:37 Gregor
Solved
24.10.2017 16:03:54 Mackie
NotSolved
24.10.2017 16:41:05 Gast70117
Solved
26.10.2017 09:14:02 Gast61866
NotSolved