Office: (Office 2010) mehrere Tabellenblätter löschen

Guten Morgen zusammen,

ich hoffe ihr könnt mir ein weiteres Mal helfen!?
Und zwar geht es um folgendes:
Ich habe einen Projektplan (erstes Tabellenblatt) mit mehreren Zeitstrahlen, in der Spalt D steht der Projektleiter
Für jeden Zeitstrahl gibt es ein seperates Tabellenblatt (In B4 steht wiederum der Projektleiter)

Nachdem ich jetzt über ein Makro(Abfrage: Combobox->Projektleiter) diese Datei kopiert und geöffnet habe, sollen die Tabellenblätter mit dem Projektleiter sowie die Zeilen im Projektplan gelöscht werden.

Ich stehe aufem Schlauch *frown.gif* Die Google-Suche brachte bei mir leider keinen Erfolg

Mit freundlichem Gruß
Hauenkrieger

:)

 

Das Forum wird dir vermutlich auch keinen Erfolg bringen. Denn deine Beschreibung ist etwas sehr allgemein gehalten, keine Beispielmappe, kein Code, kein gar nichts. Mit mittlerweile 49 Beiträgen solltest du wissen, dass das in den meisten Fällen notwendig ist und auch verlangt wird.

 

Hallo MrBurns,

da muss ich dir natürlich recht geben, habe parallel an einer beispielmappe gearbeitet. Musste leider feststellen dass dies doch länger gedauert habe.
Tut mir leid, nächstes Mal lade ich die Datei sofort mit hoch.

Gruß
Hauenkrieger

 

Hi,

also wenn ich das richtig sehe, musst du außer dem Projektleiter noch die Projektnummer vorgeben, die zu löschen ist - oder sollen alle Daten zum betreffenden Projektleiter gelöscht werden? Wenn jeweils nur 1 Projekt gelöscht werden soll ist es doch besser, die Projektnummer anzugeben und nicht den Projektleiter, da die Nummer eindeutig, der Projektleiter mehrdeutig ist...

 

Hallo Beverly,
da habe ich mich mit meiner Beschreibung wohl vertan *upps

Es sollte eigentlich so heißen:
Alle anderen Projektleiter sollten gelöscht werden. Es soll ein reiner Projektleiterplan werden.
Man wählt den Projektleiter aus, für den der Plan erstellt wird

Gruß

 

Das war jetzt schon etwas verwirrend, aber jetzt ist es klar *Smilie

Code:

 

Hallo Mr.Burns,

habe es gerade ausprobiert, und bin begeistert. Funktioniert.

Vielen Dank dafür.

 

Na aber immer gerne!

 

Hallo nochmal,

ich hätte da nochmal eine Rückfrage,

ich habe jetzt mal deinen Code auf meine Originaldatei angewendet
und es funktioniert leider nicht. Allerdings konnte ich meinen Fehler finden.

Zur besseren Übersicht habe ich in meiner O-Datei zwischen den Projekten eine freie Zeile. Da liegt das Problem.

Gibt es eine Möglichkeit, das er nicht nur die Zeile mit dem Projektleiter sondern auch die Zeile darunter zu löschen.

Ich hoffe ihr könnt mir nochmals helfen *rolleyes.gif*

Gruß
Hauenkrieger

 

Ich schätze mal so?

Code:

 

Hey,
vielen Dank,

aber da hat er mir nen anderen Fehler ausgepuckt *entsetzt

Ich konnte aber ne andere Lösung finden. Und zwar:

For i = Cells(Rows.Count, "C").End(xlUp).Row To 2 Step -2

gehe ich jetzt doppelte Schritte. Somit überspringe ich jede leere Zeile

Leider stellt sich jetzt raus, dass zwischen den Zeilen (mit den Projekten)
mehrere Leerzeilen stehen. Da weiß ich gerade auch noch keine Lösung
*frown.gif*

Aber schonmal vielen Dank

 

Jetzt gib mal nicht so schnell auf. Lade doch eine Beispieldatei hoch, die genau so aussieht, wie dein Original.

Nur zur Info, Aussagen wie "einen anderen Fehler" sind nutzlos, wenn, musst du das schon präzisieren.

Die Lösung mit Step -2 wird vermutlich keine besonders gute Idee sein.
Ich rate dir aber schon mal, dass die Leerzeile an sich eher ungeschickt ist und du darauf verzichten solltest. Mag hübsch aussehen, bringt aber hauptsächlich Probleme mit sich. Mach doch eine optische Unterteilung mit dicken Linien, Farben oder wasweißich.

 

Guten Morgen,

Ja, da gebe ich Dir Recht. Werde die Mappe mal hochladen

Leider werde ich dieses Wochenende nicht mehr dazu kommen.
Montag oder Dienstag kann ich mich wieder um mein Projekt kümmern, ist zu viel auf der Arbeit los *frown.gif*

vielen Dank nochmal für Eure Hilfe.
Ich wünsche euch ein schönes Wochenende

Gruß
Hauenkrieger

 

Guten Morgen zusammen,

tut mir wirklich leid, aber ich habe vergessen euch mitzuteilen, dass mein Excel-Projekt erstmal wieder auf Eis liegt. Werde mich erst zu einem späteren Zeitpunkt wieder hoffentlich damit befassen können.

Jetzt habe ich einen schlechtes Gewissen*frown.gif* , dass ich mich jetzt erst melde

Aber trotzdem vielen Dank für Eure Mithilfe.

Vielen vielen Dank

Gruß
Hauenkrieger