Office: (Office 2013) VBA

Eine Frage habe ich hier noch. Ich möchte, dass der ganze Mechanismus nur läuft, wenn ein bestimmter Wert existiert. Diesen Wert frage ich in der Eingabemaske ab - falls das Feld dort leer gelassen wird, dann soll dieser ganze Schreibmechanismus nicht durchgeführt werden. Ich habe es folgendermaßen mit -- If Not WERT Is Nothing Then. Aber damit funktioniert es leider nicht; er schreibt die Zahlen trotzdem ein im Tabellenblatt. Wie könnte ich das einbauen?

Code:

 

Hi,

Aber genau das macht der Code doch - er ermittelt immer die 1. Zelle ab Spalte O in der gefundenen Zeile, die tatsächlich leer ist, also auch keine Formel enthält. Beispiel: Zellen O6:Q6 sind bereits mit Werten gefüllt - beim nächsten Durchlauf findet der Code Zelle R6 und trägt dort ein, das ist korrekt. S6 hat eine Formel - der Code findet deshalb im darauffolgenden Durchlauf T6, die keine Formel enthält und noch keinen Eintrag hat, trägt also in die nächste Spalte rechts von der Zelle mit Formel ein. Im Bereich T6:AA6 ist es genau so - dort werden Werte in T6:Z6 eingtragen, dann wird Zelle AA6 mit Formel ausgelassen und die nächsten Einträge beginnen in Zelle AB6.
Ich verstehe also nicht, was der Code nicht entsprechend deiner Vorgabe macht, immer nur die Zellen auszufüllen, die leer sind.

 

Ich hatte den Code am Anfang getestet und immer einen einzigen Eintrag pro Durchlauf in die gefundene Zelle geschrieben. Er hat pro Durchlauf in die erste freie Zelle einen Wert geschrieben. Beim nächsten Durchlauf dann in die Zelle rechts davon. Falls diese Zelle "rechts davon" allerdings eine Formel hatte, hat der Code gar nichts ausgeführt - also nicht in die nächste Zelle rechts von der Formel gesprungen und dort den Eintrag gemacht. Das meinte ich.

Wie du aber oben siehst in dem kopierten Code, schreibe ich immer "um die Formel herum". Die befindet sich in der vierten Zelle rechts von der gefundenen. Und .Range(strZelle).Offset(0, 4) lasse ich ja aus.

Daher ist der Code so wie er ist ganz wunderbar für mich.


Weißt du vielleicht noch, wie ich die WENN-Kondition noch reinbringen kann (siehe oben)?

 

Hi,

Dann hast du nicht meinen Code aus meinem Beitrag vom 28.01.2015 19:26 getestet, denn der macht so etwas nicht sondern das, was ich in meinem letzten Beitrag ganz konkret beschrieben habe und deine Anforderungen entsprechend deiner hochgeladenen Arbeitsmappe ausführt!


Was deine andere Frage betrifft:

Code:

 

Das mit den IF funktioniert. Danke!!

Vielleicht vertue ich mich bei dem anderen Thema auch. Kann gut sein, dass ich da was übersehen hatte. Wie es jetzt ist, funktioniert es jedenfalls *Smilie

 

Wie könnte ich denn vorher noch prüfen, ob in der gefundenen Zeile von rngZelle bis zur "letzten" Spalte alle Zellen belegt sind?

Im Moment sieht der Code so aus:
Code:

Was ich also genau prüfen möchte, ist, ob in der Zeile, in der rngZelle liegt, die letzte besetzte Zelle in der gleichen Spalte liegt wie die letzte besetzte Zelle in Zeile 5.

Ich würde das für die einzelnen Sheets dann jeweils separate vorher prüfen und - sollte die Prüfung positive ausfallen - die Sub verlassen, damit nicht "zu weit" geschrieben wird.

Vielen lieben Dank für die Hilfe.

 

Meinst du ob alle Zellen belegt sind und keine freie mehr vorhanden ist? Das hatte ich im Code aus meinem Beitrag von 28.01.2015, 19:26 bereits eingebaut:


Code:

 

Genau die gleiche Funktion.

Allerdings macht der den Schreibvorgang (der ganze obere Code) für mehrere Tabellenblätter. Und ich will vorher prüfen lassen, ob überall Platz ist. Sollte irgendwo kein Platz sein, dann soll er raus aus der Sub.
Wenn diese Bedingung in den einzelnen Loops für die versch. Tabellenblätter enthalten ist, dann könnte es sein, dass er ins erste und zweite schreibt und erst beim dritten merkt, dass dort kein Platz mehr ist - sollte das aber der Fall sein, hätte er in gar kein Tabellenblatt schreiben sollen.

Deswegen die Pfüfung vorher. Ginge das dann so (obwohl es komisch aussieht, weil das Ausführen der Commands nur im ELSE Teil steht):

Code:

 

Also ich kann in deinem Code nicht erkennen, wo da mehrere Tabellenblätter prüft werden - alles bezieht sich auf Tabelle Worksheets("Growth 2013").

 

Das war nur ein Ausschnitt. Der ganze Code beschreibt dann noch Growth 2013 - Growth 2017 (also 5 Tabellenblätter). Da habe ich jeweils den Code kopiert und angepasst.

Das ginge wahrscheinlich etwas eleganter, aber es erfüllt für mich ja seinen Zweck, daher bin ich zufrieden damit.

Jetzt möchte ich eben noch oben beschriebene Prüfung einbauen, bevor er beginnt in den 5 Tabellenblättern zu schreiben.

Ich hoffe, das ist verständlich ausgedrückt?

 

Code:

 

Ok, das probiere ich gleich aus. In der Excel Datei gibt es allerdings noch weitere Worksheets (anderes Format und Inhalt), für die das nicht geprüft warden soll. Müsste ich da die Ansprache in den Anfangszeilen ändern? Kann ich also irgendwie nur die 5 besagten Worksheets direkt ansprechen?

Danke dir!

 

Mit einer Select Case-Anweisung kann man sich auf die gewünschten Tabellen beschränken:

Code:

Es geht natürlich auch mit einer If-Anweisung verwenden, aber wenn es mehrere Vergleichswerte (Tabellennamen) sind, ist die Select Case-Anweisung übersichtlicher.