Thema Datum  Von Nutzer Rating
Antwort
22.02.2024 20:58:06 Alex
NotSolved
Blau Makro kaputt verbessert
22.02.2024 23:15:30 Gast38423
NotSolved

Ansicht des Beitrags:
Von:
Gast38423
Datum:
22.02.2024 23:15:30
Views:
102
Rating: Antwort:
  Ja
Thema:
Makro kaputt verbessert

du prüfst nicht ob die Zelle Artikelnummer überhaupt einen Wert hat.  

Not ZielZelle Is Nothing
das wird nie Nothing sein, da du vorher eine Range der Objektvariablen zuweist. Der Inhalt der Zelle wird damit nicht geprüft.  

der  letzteZeile und Zielzelle ist bei intelligenten Tabellen nicht notwendig.  Dort gibt es listcolumns, listrows. Headerrowrange

.Range(.Cells(ZielZelle.Row + 1, ZielZelle.Column), .Cells(letzteZeile, ZielZelle.Column))
meinst du damit tbl.ListColumns("Artikelnummer").DataBodyRange  ??

.Range(.Cells.Find(What:=header .... 
du suchst den Header im GANZEN Blatt.(1 Mio Zellen)  Und range.find() gibt auch mal Nothing  zurück. Das solltest du abfangen mit if not is nothing.  
ich glaube aber das diese Suche überflüssig ist. 

 Wenn der Header nicht "Differenz" ist, fahre fort
  tbl.DataBodyRange(tbl.DataBodyRange.Rows.Count, Spalte).Value = _
       .Range(.Cells.Find(What:=header, LookIn:=xlValues, LookAt:=xlWhole).Offset(0, 2).Address).Value
   Spalte = Spalte + 1

 Was soll das denn darstellen?   Was steht denn zwei Zellen neben "header", das du dann nach links schreibst?
Sag es mit eigenen Worten was da passiert und warum. 

 

 


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
22.02.2024 20:58:06 Alex
NotSolved
Blau Makro kaputt verbessert
22.02.2024 23:15:30 Gast38423
NotSolved