Spaltenverdopplung abstellen wenn unerwünscht

Sub Test() Dim wsh Dim c 'Z = Columns(13) 'd = Columns(10) 'e = Columns(7) 'f = Columns(4) For Each wsh In Sheets(Array("Tabelle1", "Tabelle2")) For Each c In Array(13, 10, 7, 4) If WorksheetFunction.CountIf(wsh.Columns(13), "Umrandung") = 0 Then 'wenn es nicht vorhanden ist wsh.Columns((13) + 1).Insert wsh.Cells(3, (13) + 1).Value = "Umrandung" Else If WorksheetFunction.CountIf(wsh.Columns(13), "Umrandung") 0 Then Exit Sub End If If WorksheetFunction.CountIf(wsh.Columns(10), "Umrandung") = 0 Then wsh.Columns((10) + 1).Insert wsh.Cells(3, (10) + 1).Value = "Umrandung" Else If WorksheetFunction.CountIf(wsh.Columns(10), "Umrandung") 0 Then Exit Sub End If If WorksheetFunction.CountIf(wsh.Columns(7), "Umrandung") = 0 Then wsh.Columns(7 + 1).Insert wsh.Cells(3, 7 + 1).Value = "Umrandung" Else If WorksheetFunction.CountIf(wsh.Columns(7), "Umrandung") 0 Then Exit Sub End If If WorksheetFunction.CountIf(wsh.Columns(4), "Umrandung") = 0 Then wsh.Columns(4 + 1).Insert wsh.Cells(3, 4 + 1).Value = "Umrandung" Else If WorksheetFunction.CountIf(wsh.Columns(4), "Umrandung") 0 Then Exit Sub _ End If If WorksheetFunction.CountIf(wsh.Columns(c), "Umrandung") = 0 Then wsh.Columns(c + 1).Insert wsh.Cells(3, c + 1).Value = "Umrandung" Else If WorksheetFunction.CountIf(wsh.Columns(c), "Umrandung") 0 Then Exit Sub End If Next Next End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Test() Dim wsh Dim c 'Z = Columns(13) 'd = Columns(10) 'e = Columns(7) 'f = Columns(4) For Each wsh In Sheets(Array("Tabelle1", "Tabelle2")) For Each c In Array(13, 10, 7, 4) If WorksheetFunction.CountIf(wsh.Columns(13), "Umrandung") = 0 Then 'wenn es nicht vorhanden ist wsh.Columns((13) + 1).Insert wsh.Cells(3, (13) + 1).Value = "Umrandung" Else If WorksheetFunction.CountIf(wsh.Columns(13), "Umrandung") 0 Then Exit Sub End If If WorksheetFunction.CountIf(wsh.Columns(10), "Umrandung") = 0 Then wsh.Columns((10) + 1).Insert wsh.Cells(3, (10) + 1).Value = "Umrandung" Else If WorksheetFunction.CountIf(wsh.Columns(10), "Umrandung") 0 Then Exit Sub End If If WorksheetFunction.CountIf(wsh.Columns(7), "Umrandung") = 0 Then wsh.Columns(7 + 1).Insert wsh.Cells(3, 7 + 1).Value = "Umrandung" Else If WorksheetFunction.CountIf(wsh.Columns(7), "Umrandung") 0 Then Exit Sub End If If WorksheetFunction.CountIf(wsh.Columns(4), "Umrandung") = 0 Then wsh.Columns(4 + 1).Insert wsh.Cells(3, 4 + 1).Value = "Umrandung" Else If WorksheetFunction.CountIf(wsh.Columns(4), "Umrandung") 0 Then Exit Sub _ _ End If If WorksheetFunction.CountIf(wsh.Columns(c), "Umrandung") = 0 Then wsh.Columns(c + 1).Insert wsh.Cells(3, c + 1).Value = "Umrandung" Else If WorksheetFunction.CountIf(wsh.Columns(c), "Umrandung") 0 Then Exit Sub End If Next Next End Sub

Sub Test() Dim wsh Dim c 'Z = Columns(13) 'd = Columns(10) 'e = Columns(7) 'f = Columns(4) For Each wsh In Sheets(Array("Tabelle1", "Tabelle2")) For Each c In Array(13, 10, 7, 4) If WorksheetFunction.CountIf(wsh.Columns(c), "Umrandung") = 0 Then wsh.Columns(c + 1).Insert wsh.Cells(3, c + 1).Value = "Umrandung" Else If WorksheetFunction.CountIf(wsh.Columns(c), "Umrandung") 0 Then Exit Sub End If Next c Next wsh End Sub

Hallo Robert,
kann man das nicht irgendwie verhindern, das alles sich verdoppelt oder an falschen Stellen Spalten eingelegt werden, wo sie gar nicht hinsollten, wenn man halt nicht alle Umrandungsspalten von vornherein in dem Sheet hat?
Folgendes passiert um es mal genauer zu beschreiben, vielleicht hilft das auch noch:
Wenn ich das Makro in der Datei ausführe die ich hochgeladen habe, legt er mir die Spalten E, I,M und Q an. Soweit richtig. Er prüft also nach den von Dir genannten Spalten (D, G, J und M) ab.
Zuerst hat die Spalte E das Dreieck. Klicke ich auf das Makro wird für die Spalte E die Umrandungsspalte eingefügt. Es ist also korrekt das Dreieck dann Viereck und zuletzt Sechseck kommen, dann die neue Spalte mit der Umrandung und danach wieder mit dem Dreieck in der Spalte F begonnen wird. Das macht er für alle 4 Fälle korrekt.
Wenn ich jetzt die Spalte E wieder lösche bekommt die Spalte E wieder das Dreieck und alle anderen Spalten stimmen auch noch, manche Vorlagen sind halt so wo nur drei von vier Umrandungsspalten vorliegen, jedoch und hier wirds verkehrt führe ich das Makro dann erneut aus wird für die Spalte E wieder die Umrandungsspalte generiert, aber bei den anderen Spalten stimmt es dann nicht mehr. Spalte I wird erkannt aber Spalten J danach ist nun plötzlich auch zu einer Umrandungsspalte geworden (J soll aber nicht als Umrandung angelegt werden, da sollte dann eigentlich das Dreieck wieder drin stehen).
Bei den Spalten M und Q verdoppelt er sie doch auch nicht, jedoch legt er nun noch in O und T eine neue Spalte Umrandung an, die ich aber nicht haben wollte. Sondern er sollte die gelöschte Spalte E nur wieder neu anlegen und erkennen das die Spalte I, M und Q vorhanden sind und diese belassen, wenn ich das Makro nach der Löschung von der Spalte E erneut ausführe.
Löscht man nun mal zwei Spalten also E und I (es sind also von den vier fällen schon zwei "Umrandungsspalten" vorhanden und zwei fehlen, so wird aus Spalte I dann erst mal H, die dann gelöscht werden mit dem Wort Umrandung. Das Makro wird ausgeführt, man hat dann Spalte E wieder korrekt, I korrekt, nun stimmt auch J wieder, M korrekt, aber danach auch noch die Spalten N von Spalte M aus verdoppelt und O. Spalte Q stimmt auch nicht mehr, da sollte eigentlich Sechseck stehen doch er hat richtig für die Spalte S eine Umrandungsspalte eingebaut.
Dadurch das ich durch meine Codeanpassung es für jeden Fall aufgeteilt hatte, wollte ich erreichen, das er erkennt, wenn ich eine neu generierte Spalte Umrandung lösche, er die anderen beibehält, daher hatte ich das aufschlüsseln wollen und den Code angepasst, damit er dies für alle vier neu generierten Spalten einzeln anpassen kann und diese separat für sich stehen und nicht irgendwie voneinander abhängig sind und diese falschen Ergebnisse herauskommen. Das also wenn man eine Spalte löscht (E), die anderen bestehen bleiben und nur für die Spalte E die Umrandung angelegt wird, nicht aber das sich dann bei den anderen Verdopplungen einstellen wie zum Beispiel bei den Spalten I und J direkt hintereinander, wenn man die nur die Spalte E löscht.
Hoffe konnte es jetzt besser beschreiben. Im Grunde funktioniert ja alles nur wenn man löscht dann verdoppelt er halt Spalten die er einfach nur prüfen und stehen lassen sollte oder aber er schreibt Umrandungsspalten mitten zwischen die Drei- Vier- und Sechsecke, was nicht sein soll, sondern die sollen immer dahinter angelegt werden, so wie er es richtig macht wenn man zum ersten Mal das Makro ausführt.
Das löschen ist aber notwendig da ich Fälle habe wo nur eine, zwei oder drei "Umrandungsspalten jeweils vorgegeben sind und dort soll er nur die fehlenden an den entsprechenden Stellen prüfen wie im Code angegeben und notfalls ergänzen, die anderen aber nicht überschreiben noch diese verdoppeln.
Hoffe Du oder wer anders noch kann mir da helfen und versteht mein Problem jetzt besser nachdem ich es versucht habe besser zu beschreiben.
Beste Grüße
Markus

Sub Makro() Dim wsh Dim c For Each wsh In Sheets(Array("Tabelle1", "Tabelle2")) For Each c In Array(5, 9, 13, 17) If WorksheetFunction.CountIf(wsh.Columns(c), "Umrandung") = 0 Then wsh.Columns(c).Insert wsh.Cells(3, c).Value = "Umrandung" End If Next Next End Sub

Ich glaub ich werd nicht wieder, das funktioniert bei mir im Test tadellos. :))) Genau so wie Du es beschreibst bzw. programmiert hast, sollte es mal funktionieren, tat es aber leider bisher nicht. :(
Mir ist aufgefallen Du hast das c+1 durch c ersetzt, in den Zeilen wsh.Columns(c + 1).Insert und wsh.Cells(4, c + 1)Value = "Umrandung", aber warum frage ich mich?
c+1 war doch dazu gedacht das er eine neue Spalte anhängt, das scheint aber auch ohne das +1 zu funktionieren.
Außerdem fiel mir auf weil Du es erwähnst, das bei meiner Anpassung irgendwie in der Tabelle 2 in die Spalten (E, I, M, Q) nichts reingeschrieben wird, warum auch immer, ich habe die For Each Schleife doch auch drin stehen lassen, aber dort greift es nicht mehr, mich würde interessieren warum das so ist bei meiner angepassten Lösung, also das in der"Alt-Spalten verdoppelt-Button" hinterlegte Makro Test_Spaltenanlegung() in der hochgeladenen Datei.
Zu Deiner Frage:
Weil es für mehrere Tabellenblätter gelten sollte, die man angibt, also die schon geöffnet sind und geprüft werden sollen. Dort soll er dann in den entsprechenden Tabellenblättern die fehlenden Spalten ergänzen bzw. diese dann nicht überschreiben, wenn schon vorhanden. Es gibt Fälle da fehlt eine Spalte Umrandung, es gibt aber auch Fälle da fehlen zwei oder drei. Wenn alle 4 Fehlen funktionierte es ja schon, das diese korrekt angelegt wurden und auch nicht verdoppelt, wenn man das Makro nochmals ausführt, also nicht überschrieben werden, was sehr wichtig ist. Nur bei den Varianten wo jeweils eine Umrandungsspalte nicht angegeben ist haute er halt alles bisher durcheinander, wie schon aufgezeigt. Daher also die verschiedenen Tabellenblätter in dem Array, das ist schon richtig so.  Also ja es soll in allen Tabellenblättern die man angibt bei dieser For Each Schleife funktionieren und nicht nur für die Tabelle 1, was es aber ja bei Deiner Lösung tut. :)
Trotzdem würde mich falls er es liest auch Jack_D's Lösung interessieren wie er es coden würde mit seiner Idee. Bisher komme ich da nämlich leider mit den Bedingungseinbau seiner Lösung/Idee auf keinen grünen Nenner.
Beste Grüße und Danke soweit erstmal:)
Markus

If WorksheetFunction.CountIf(wsh.Columns(c), "Umrandung") = 0 Then wsh.Columns(c + 1).Insert wsh.Cells(3, c + 1).Value = "Umrandung" Else If WorksheetFunction.CountIf(wsh.Columns(c), "Umrandung") 0 Then Exit Sub End If

Beliebteste Forumthreads (12 Monate)

Spaltenverdopplung abstellen wenn unerwünscht

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spaltenverdopplung abstellen wenn unerwünscht

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread