Guten Tag !

Ist mir sehr peinlich, das ich mich heute hier vorstelle, und dann auch noch gleich mit einem Problem ankomme.
Ich bitte dies zu entschuldigen.

Ich habe folgendes Problem. Ich bekomme aus einer SQL Server Verbindung regelmäßig Exporte, die ich zur Visualisierung von Projektstati verwenden möchte.
Die Exporte sind eine Liste aller Projekte - je 8 Zeilen ist ein Projekt - genauer - jede Zahl (1-8) ist ein Projektstatus.

Sieht dann so aus :

ID Nummer / Field1 / Field2 /
Field3 /
Field4 / Field5 / Field6 / Notiz
1 Notiz
2 Notiz
3 Notiz
4 Notiz
5 Notiz
6 Notiz
7 Notiz
8 Notiz

Spalte L (hier die erste sichtbare) nummeriert immer von 1-8 durch) - und Spalte W sind die Notizen.
Nun möchte ich die "Notiz" hinten löschen - und zwar bei den Zeilen 2-8. Bei der ersten Zeile soll die Notiz drinn bleiben.

Diese Funktionalität wäre extrem Hilfreich für mich - denn ich bekomme als Export um die 1000 - 2000 Zeilen.

Kann mir wer helfen ? Idealerweise als VB Code für ein Makro ?

lg, Robert.

Könntest du vielleicht ein Beispiel anfügen wie es jetzt aussieht und wie es danach aussehen soll? Wäre sehr Hilfreich.... ggf sogar als Excel Screenshot?

Hi ! Ja - bitte sehr.

Im Anhang sind die beiden Screenshots !

Danke im Voraus !

Vielleicht noch zur Erklärung : Es kommen etliche Duzend dieser "8-er Blöcke" hintereinander. Händisch das zu lösen ginge nicht. In Summe sollte es dann so aussehen wie im 3. Screenshot ...




lg, Robert.

sind da leerzeilen dazwischen?
oder gehts nach Zeile acht direkt weiter?
falls direkt weiter geht...


so in der Art

Hi !

Da gehts immer in einer Wurst weiter ...
Ohne Leerzeichen ...

Die Spalte mit den Nummern von 1-8 ist die Spalte "L"
Die Spalte mit den Notizen ist "W"

lg, Robert

na dann passt das ja .... musste halt noch bissle anpassen... eventuell noch ne ausstiegsklausel fürs ende der daten und fertig...

Danke ! Ich werds versuchen.

In Deinem Code steht "DieSpalte:DieSpalte"

Ist das dann in meinem Fall "L:W" ?

LG und Danke nochmal !

Robert.


uiii. Das löscht aber alles zwischen L und W ... und dann hängt sich Excel auf ....

Long long Way Home ...

lg Robert

ich bin mir nicht sicher... "L:L" oder "W:W" die Spalte halt wo die Notizen stehen...

Hi !

Also es läuft ... aber es löscht ALLE Notizen. Es bleiben also die gewünschten je 8. Zeile Notizen nicht stehen - sondern es werden alle gelöscht.
Na dann beginnen wir mal mit dem Spielen ...

Beziehungsweise - wo wird den definiert welche Spalte die ist mit den laufenden nummern (1-8) ?

lg, Robert.

na das machst du selber....
das

sagt wo gesucht wird...
ggf brauchst du ein paar klammern in der Abfrage ob in der zeile gelöscht werden soll....

Tja ... ich muss es einsehen - ich bin doch ein wenig arg eingerostet.
Im Augenblick hadere ich ein wenig mit dem Code.
Ich verstehe ihn - Die Zeilen :


If Not rng.Row = 1 Or rng.Row Mod 9 = 0 Then
rng.Value = ""

Sind mir klar - wenn innerhalb der Range die Zeile gleich 1 - oder ein ganzes vielfaches von 9 ist, dann mach nix - in jedem anderen Fall setze die Zelle auf "". Soweit so gut.
Aber es funktioniert leider nicht. Er löscht einfach munter drauf los.
Ich mag VB - aber ich bin nicht mehr so schnell wie ich schon mal war ...

lg, Robert.

schau nochmal post 9.. da wo es um die klammern geht... denke das kriegste raus... es sollen ja beide bedingungn nicht sein

Reicht es da nicht, einfach alle Werte außer jedem 8. in ner For-Schleife rauszulöschen, statt da umständlich mit Modulo rumzurechnen?Statt 100 müsste da dann halt rein, wie viele Zeilen durchsucht werden sollen

Das Passt ! Vielen Dank !
Hat fast sofort funktioniert ... hab nur "for i=2 ..." auf "for i=3 ... umgestellt.

genial.

Vielen Dank !!!

Danke auch FloFuchs Für die Hilfe !!!

lg, Robert.