Vielen Dank für die schnelle Antwort.. deine Notizen habe ich vermerkt, sorry für die falsche Form!
![yes yes](https://www.vba-forum.de/ckeditor/plugins/smiley/images/thumbs_up.png)
Dann kommt die Fehlermeldung "Laufzeitfehler 91, Objektvariable oder With-Blockvariable nicht festgelegt".
Damit habe ich schon gerechnet. ![wink wink](https://www.vba-forum.de/ckeditor/plugins/smiley/images/wink_smile.png)
Wenn Range.Find nichts findet, liefert es Nothing.
Set stelle = .Find(sachnummer, LookIn:=xlValues)
If IsEmpty(stelle) _
Then GoTo s_continue
ersetzen durch
Set stelle = .Find(sachnummer, LookIn:=xlValues)
If stelle Is Nothing _
Then GoTo s_continue
Das gleiche solltest du auch mit woche darüber machen.
PS: Dieses Fenster muss man einmalig mit STRG+G einblenden (Menü: Ansicht - Direktfenster) und man kann damit Befehle ausführen / schnell testen (das Fragezeichen davor sorgt für eine Ausgabe von dem was IsEmpty zurück gibt).
![](data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAUgAAACbCAYAAAAAyQIGAAAWVUlEQV R4Xu2dz4sjxxXH3/wFvmUxcUKIV4MRA/bBhyDFFy8EezYhOpghkIBOlg5OmIFkkhxkWLAOcZSARB LDjE+C5BCRgCBZjQkEDLYGFnxwYBjCrDDE2ATyT0zeq65uVf9u9ailavVXl8SjrqrXnyp991V11b f3bvlDJfh88cUX9Nxzz9E7vxrR2788ppubG7p3715i5NPplJ48eUKvvvpqCe4QIYIACNhGYA8CaV uXIB4QAAFbCEAgbekJxAECIGAdAQikdV2CgEAABGwhAIG0pScQBwiAgHUEIJDWdQkCAgEQsIUABN KWnkAcIAAC1hGAQFrXJQgIBEDAFgIQSFt6AnGAAAhYRwACaV2XICAQAAFbCEAgbekJxAECIGAdAQ ikdV2CgEAABGwhsPMC+eDBA1tYIw4QAIGSEdhpgXzmmWdK1h0IFwRAwCYCex9++GEp3Hyef/75ld 18bAKNWEAABMpHYKczyPJ1ByIGARCwiQAE0qbeQCwgAAJWEYBAWtUdCAYEQMAmAhBIm3oDsYAACF hFAAJpVXcgGBAAAZsI7LRA/vnj/9jEGrGAAAiUjAAEsmQdhnBBAAQ2RwACuTnWaAkEQKBkBCogkB /TH7/7Fn1kdMw33/wb/eL7X3f+8t8/0btv/oNefn9MD57N2ntS5/v0bGqZrNdlbde4LlPcBbafI2 QUAYGyEaiIQJpipgXztT/Q2Y+/nbO/4oQn+PdtC9S228+JF8VAwBICFRRIN2v8jB7+/W06yNUREM hc2FAIBEpGoJoCSZ/TP3/2PfrvD/5FP3rZFDvn/9NrRB99cJ9+IgKqprK/ps9Ux77h/I2CZXgK/9 ob9MoHf1lO5VWGSs5U/NF36JNHTh3h6X103avFILE59zT5tzMCX3lk3Ftc+yUbrAgXBDZNAAIZEs i36EtvjTKQKX7yDr37ZZvXLz/Xa5DvEP3WFVrpuqgpNovnCz+nd37zQ/qKb90wqe5VYpC1U0ccP3 nFWFtVI0kvJ7jtc/zdR6RFftNDDe2BQPkIVFgg3yb6qYhLOIP0Hr74skfduUZm+OULn3KqZopS+h rk1e9fpE+/xdndV83MNFx31hjUdSR1RS0ZpMdTviGLiEFgcwSqKZBK+FxBSRPIOOHhLO+Fl+izb7 xpPOxJEyRjaq8EMoOo+WI1B4bRFgRyc78YtFQpAjvtB+mcpIme9pJaowtOi6OvXU653bGxvO7eX1 +kx19zs8iU8iFhNqfS4bqdbUfONDkphuQpdvAJfpbtSZX6DeBmQSCWQEUySHMf5Et05Nu/mJBBCr bgNNt8+KLq0Q9HyFln/B9PoX/3AZczrnMeuPB0nD/OwxPdH6l1r3Kdf7+n7yGNd7/Y9gMtAIFVCF RAIFfBgWtBAARAYEkAAonRAAIgAAIxBCCQGBogAAIgAIHEGAABEACB1Qggg1yNF64GARCoEAEIZI U6G7cKAiCwGgEI5Gq8cDUIgECFCEAgK9TZuFUQAIHVCEAgV+OFq0EABCpEAAJZoc7GrYIACKxGYK cFcjUUuBoEQAAE/AR2WiCn0yn6GwRAAARyE9h5gXzy5EluOCgIAiBQbQKVEMj33nuv2r2MuwcBEM hFYKf9IGWKLRkkBDLX2EAhEKg8AWSQlR8CAAACIBBHAAKJsQECIAACMQQgkBgaIAACIACBxBgAAR AAgdUIIIOM4XUx6lL/5Jwu+ftGZ0jjs2O6r6+96O7R4XmgYGdGt2evp9JfjJpUO5FaA5/GkG7nx6 nlt3HBqNkkGs/pmAGUIv7FiJptCXnZZ9vghjbLTwACGdWHF11qTls0V4K3oFG3RpP6U5qLQhgfEY s2jUN/TxsWoXL6Bz1fo0COml3an59RumSnRMss9piFKf5liF/+EZu2binDv1lp3YXvK0wAApml80 XABvtaMJcF4gVSRLVNJ+dOptjoNIiujsgVwGW5p9Rt3tCZJ4wX1N07pPNGhzp0TueXHZrNiPqcrl 7y32YseDfNPTq5bNBweEATneFyAzQcn6kMj1M8atZOVOZrfjozLRbe91zH00BWGJHFjri9655faE oRP7LILCMb16QQgEBmGCJxQpj89x6Nj19X0/IFZ2G1ft2bQvumqUFRUgI2oSMWr4ePudwJ0ezpGd GgyRnRXGVEIlqTA572n/IUUiW1LMjNgS9jTMwgJUO+OTUy33B5B4sI9pRat/5MtBzxS+x9qut/BD J0My4BgRABCGTSoFBZyIQOemMWJv/0WslS7BSbf5xNzgR1GtfgDK/HGZ5bRXwGpjNAXj9T2aYxvZ Uyg31XIJdrgm745vfyt+QpdkAQQ4Kpa1VifU1jFkjz7ssSf1T2Cw0AgVUIQCCTaMUJh6cfGdYgFw taPB5QbeLPIGPXLs31yMIEUpJDN4sUMfVnnx6SVIEM/6OhpviFC3y2+CGQq0gBro0iAIG8w7iIyy Dlqe+1kXXKFLvtPfSJzjy9jC+TwGSZYptPnrl9nqr7M0Eni6QjogmZ020TSPwUOyjw9sWPKfYdhj aKagIQyNihoB+Y0PJhhntp2jYfEYvrgys69+bY/IBFT7Fjt8nwY5nZbYum8pBGGpJtQ60p7fEDms bwKT8rb6vtQfKwpd5n8ev16Lqvp/HyAMeYwqvpv4iyPNyR/4j4Xt2LZKiHvMYZWGM0kQSzsNLEj4 c0ELk1EIBArgHipqsw9yXeqe2UJQRPRAPbfO7UJhfeRPzY5nPXXkJ5IQCBLNk4kIzO22eec3O5Pw MOZ8hBJGsTNCWOG4gf2WPJRrW94UIg7e0bRAYCILBlAvCD3HIHoHkQAAF7CSCDtLdvEBkIgMCWCU Agt9wBaB4EQMBeAhBIe/sGkYEACGyZAARyyx2A5kEABOwlAIEM9E13b8/ZqK03iD98vPRvlA3bQc uzYNe6G6k99xx7+x6RgQAIpBCAQAYBRW6eXrD5xIBO2W4s4vRxCHHQOAKjEARAoJwEIJDhFFB7P9 bYLqtG58opnPy+jRcj6vZPtFtPgzrDHp2xtZn7UQLJh5yvTrQvo/ZydK9wN2pLRtrjK5VzeeCacg 4nRA0Cu0UAAhklkOJGMybH6oyF7pT/f9tnmMsOPYv72otRjjT73audafaB8nEUi7OLbpP69YDzuD oHfcXHpNk38lR8Iy/Y1ZH/N0uKultjEHcDAtYSgECGuka8HG/otHdN7ZsWHU367HjD7t2m4w0fZe uyPc7S75HYM3Lpuh2aYkdN27Ocg7Z22CAwEKgGAQhkeAWRp9ZsA9bhRzX8TpPTG/Z8nPBFR24GqG 20ZmM61g64QUGEQFbjx4O73H0CEMiIPhZzBplc9+SlV5LpsW3YgflOlza7bLO9mEyHF7weOeD1SE IGufu/Ftxh5QhAICO6XD1EuXJfwxo2XjU9EeWVsL36hA5ZI+UlWOa2ILXVh2StUW8cUtuE+EVdru ej0Ta2BVXut4cbLgEBCGQJOgkhggAIbIcABHI73NEqCIBACQhAIEvQSQgRBEBgOwTgB7kd7mgVBE CgBASQQZagkxAiCIDAdghAILfDHa2CAAiUgAAEsgSdhBBBAAS2QwACuR3uaBUEQKAEBCCQMZ10Me o6Ljv8vWwGH58de1Zn/tem6gqU68/S0Seu781N5r5rcr7CdRNjLPTaV2W0wZvf+Z6f1vtszHFJPq /MtO/xWtZNdBvaWAMBCGQURDleOG3RXAnegkbdGk3qYbNcEbs2BVx6MnRKqJwWjPn8OEPpbJeMml 3al6OS2S6Pv0rEjln4xF/iramjQzTfHyix9J0ESvueWws6IN01TJQHgSIIQCCzUJUfvM/uzCkUL5 Aiqm060XY/jU6D6OqIXAFcluNjh+wcdOYJoxxrPKRz9obssK/5+WWHZjOiPguQ6xd509yjk8sGDY fsMKQzXE5xachnw4/FKk2Lk2S+5scTMO97roOPRkoZL6uNyGJH3N61cc5c37gSSHU+XR2lvPLqyv S9A4/t5IjGfO9weMsyCHHNNghAIDNQjxPC5L+zzyOb6CrN4iys1q/TrRZC3zQ7KEpKwCZ0pM51cz lO1MRXkgZNmrbmJEmtiNbkgKf9pywuSl1YkNnx3MwYEzPIkNVauLyDRQR7yqZGwUzUOJ9OEu81e3 WY16R979bdp7oW6QzdgEtAYOMEIJBJyFWWw74+vTELUzjPic8gxVOSM0GdxjU4w+txhudWEZ9BLj MrlW0a01vTQi20Jqiz2cG+I6DySZ5iBwQxzptSiTU7F7H4FZHlRWanG/8JoEEQiCcAgUwaHSmmtp nWIBfsPv54QLWJP4OMXbs01yMLE0hJDnmd9eaU3YVETP3Zp4cEAgntqDgBCOQdBkCcQEqGd21knT LFbnsPfaLXLr2ML5NAZpliN2WBT68xcvs8Vfdngk4WyW+U8Lul+3jETbHvAM0rGraRW0etqAME1k kAAhlLUz8w0a9/VQ9A9Cdtm4+I3fXBFZ17c2x+2KKn2LHbfPixzOy2RVPXK1K2DbWm6gmxbKEZ8/ Ny2U4jD1vqfRa/Xo+u+3oaLy/8MqbwEqYSZXm4I/8R8b26FbUdh9c4Q2uMy3stbBqMhzTr/B2jro IIQCALAltktVFrkLnay/JenKhtPrka8xfCNp81QEQVhROAQBaOeL0NSEbHiaTzybm53J8BL7f7xE W6NkF2G0D2uN5BgdoKIwCBLAwtKgYBECg7AQhk2XsQ8YMACBRGAAJZGFpUDAIgUHYCEMiy9yDiBw EQKIwABLIwtKgYBECg7AQgkGXvQcQPAiBQGAEIZARa31Ya8/uMno/OBmz2S+SPzydxDd3objT32Y utoV5UAQIgECYAgYwZFSGzhxjLs6RBlemsdo5RaRpX5CiOIiAAAhkJQCBTBLIWZYp7MaJu/0S79T SoM+zRGVubBT95/SLFvuyC/SQPvaOKQz6IOKG6d7a6SQM+RH11crI8SrgOc9yMgwaXgUBVCEAgYw VyeWIlPE1mh57Ffe3FGO+Ondcv8qIr3o+GxdqCz4XXlt6JzjT7QPlEioWaXN+vr+5sXpVBjvsEgb wEIJB5MkiebnfZHmfp90jsGcnu2oEkMp9fpHhJmi7j4QBDU+wsZ6rzjhCUA4EKE4BAZl2D9K7TNl 2zMR1rB9y4NcFMa5Ahv0hHIE8TXkUAgazwLxa3vlECEMhVBVIZLbDLNtuLyesOFrweOeD1SH7nQO YMMs0vUswk+sZLwhY8xR602ZdMtwGB3OhvBI1VmAAEMqLz/dt8wm43pqejvBK2V5/QoXrJnxjUuj 6SwYrF79F5b0uSX6RTyv/SL2pwDGzAKxmr2bba6qNemlXMlqIK/y5w6yCgCEAgMRBAAARAIIYABB JDAwRAAAQgkBgDIAACILAaAWSQq/HC1SAAAhUiAIGsUGfjVkEABFYjAIFcjReuBgEQqBABCGSFOh u3CgIgsBoBCORqvHA1CIBAhQhAIGM6+2LUpf7JuXLLkc3g47Nj4oMz6uN/bar+Y0avSHOjt6/pnK 9w3cRYNV/76t67a+Dhu5+MDJJiXsXvMnjiaG0s8FrataEse0UQyKgeFPOHaYvmyn1CTrXUaGIc/X OLZDprHVF/qJz+Qc75/PW6PiE/y7wVi/kvs7g1nDiUe9DVAfVci7Uc8SfFZ4PfpYjvtBU+PpoXI8 qVkwAEMku/xZjl5vV7XJZ7GnDu0ccUGx32fzxntyA+njgj6vNRwkv+24wF6aYpNmx89HB4QBOd4X KKS0M+G34sKa7EWtM+kca9eQ7k3vfLI5ReFhiRxcqxy+vAOXMRyJs6t3+t/xEJCaT/qGSD6+2x+C uzo7T41CUpfpcJju3uvTQ6HaJzZwYgfITd0mxJDEEOHTcm+e6I+Kjoud/9HVlkll/Gzl8DgczQxc m+jmEfRuf6Ho3ZRFdpFv+ga/063eoM0TctDYqSEpAJHfG57oePuRyf8RbfRxqIR+RcGWKIaE0OeN p/ytN+Ne9nQWoOaN8QgcQMMmSPFi7vYBHBnlJLnyF3USmBPJ3TPsck/3tMYuBB5GbA5pRclRE/y7 bfoSgtg8zid5nUL7UJ+2XyPxpRfpkqPn22nY09adTmGcLRU5qrf2G8u+R7X3pwZhgmuGQHCUAgkz pVZRET9no0zGuN6/P5PToZUptEWIMZpM6wXLExprfmtDMkQG7Wte8IqHySp9gBQYzzk1Rizc5FLJ A+6dAC6QrjeEzUdmOOybZdUXU1KE0gB8a9yDt+mjenAQEzOZrR6Qw0rnzUckBM/VHZ8w5qAG4pgQ AEMml4pBjRZlqDDPk9xv+wnWzLyMYKE0hJDl3RETH1Z58ekjSBFLs3dzo80RkkBBKCs0MEIJB36M w4gUzze4wq52VUmQQyyxSbp5HeO2y6xAbogUzQySL51Tb8tptwduZgSZ5iO9mgXs+jobeEkG2KHR 9fVr/LpCl2Ugbqiw9T7Dv8Ana/KAQyto9dX8ewH2TaNp8kv8fYbT78WGZ226LpHj88kJhky0xrqr weZUvNmCfltZNL/vMt1fuyhtaj677xoEGvt7m3I+uebXm4I3+QBxGB7x39Ey9JXuMMrDGaSILTTP PevXf1SD3GGmvQz9L3kEZXHhdfut8lL0u4jHx95/htykvWhJODMM4vM/yQph/8RwIPaXZf/TLcIQ QyAyTbLolag8wVY5Z32URs88nVlsWFLlhU+2pNeLmWiW0+FnfYBkODQG4Q9jqa8rmd59xc7s+Awx lyMM61CfI6AKypDpNj8CCAuw48Tngv0JrCQDWWE4BAWt5BCA8EQGB7BCCQ22OPlkEABCwnAIG0vI MQHgiAwPYIQCC3xx4tgwAIWE4AAml5ByE8EACB7RGAQG6PPVoGARCwnAAEMqKDfFtpzO+z+h0muM 3cdTys4pd417ZQHgSqTgACGTMCQmYKMWeMkwZQprPaOUagDX6JOcJGERAoHQEIZIpAytE1x3nHcI y5GFG3f+L4CVKDOsMenbG1WfCT1y9SjupddNt06DTATQz5IOKE6t7Z6hS/xNINQwQMAnYSgEDGCq QY07r6FPQKXLCN4H3txei8giHKfTrZRzLeL1KswaYtw2JN/BRrS29CZ5rNfofsExnld2jnUENUIF A+AhDIPBkkT7e7bI/jJXgNYs/IsD1/Pr9IMVK4obOE1y9kdbsp33BExCBgFwEIZNY1SO86cfnhbG 42pmNJ3/gTtyaYaQ0y5BfpCORpwjlgCKRdPyJEs7sEIJCrCqSywWKXbbYPk9cdLHg9csDrkbRCBp nmFxl8W9+Cp9iDNvuS6TYgkLv7g8Sd2UUAAhnRH/5tPmG3G9OzUJxgevUJv/SJaMjvkTm+7/pIBi t2/ArlUU6SX6RTyv/SK2pwDPodKul+if7XD9g13BANCJSLAASyXP2FaEEABDZIAAK5QdhoCgRAoF wEIJDl6i9ECwIgsEECEMgNwkZTIAAC5SIAgQz0197eHt3e3parFxEtCIBAIQQgkBDIQgYWKgWBXS AAgYRA7sI4xj2AQCEEIJAQyEIGFioFgV0gAIGEQO7COMY9gEAhBCCQEMhCBhYqBYFdIACBhEDuwj jGPYBAIQQgkBDIQgYWKgWBXSAAgYRA7sI4xj2AQCEEIJAQyEIGFioFgV0gAIGEQO7COMY9gEAhBC CQEMhCBhYqBYFdIPB/KxwkMLw3ux4AAAAASUVORK5CYII=)
IsEmpty() nutzt man recht selten; nur im Zusammenhang von Variablen vom Typ Variant.
|