Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
14.10.2009 10:41:10 |
Jule |
|
|
|
14.10.2009 14:33:34 |
Holger |
|
|
|
14.10.2009 15:08:40 |
Jule |
|
|
Aw:Aw:Aw:A1 mit Tabellenblätter vergleichen |
15.10.2009 10:41:15 |
Holger |
|
|
Von:
Holger |
Datum:
15.10.2009 10:41:15 |
Views:
827 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:A1 mit Tabellenblätter vergleichen |
Hallo Jule,
versuche z.B.
Sub Tabellenblätter_löschen_wenn_nicht_in_A()
Set Wb = ActiveSheet
lz = Wb.Cells(Rows.Count, 1).End(xlUp).Row
For Each t In ActiveWorkbook.Worksheets
l = 1
For i = 1 To lz
If Wb.Cells(i, 1) = t.Name And Wb.Name <> t.Name Then l = 0: Exit For
Next i
If l = 1 Then t.Delete
Next
l = 1
For i = 1 To lz
If Wb.Cells(i, 1) = Wb.Name Then l = 0: Exit For
Next i
If l = 1 Then Wb.Delete
End Sub
Gruß
Holger
Jule schrieb am 14.10.2009 15:08:40:
Holger schrieb am 14.10.2009 14:33:34:
Hallo Jule,
sollen die Tabellenblätter die Zahlen beinhalten oder so heißen?
Gruß
Holger
Hallo Holger,
danke für deine Antwort!
In meiner Skizze habe ich es schon gezeigt,
einige Tabellenblätter heißen so wie die gefilterten daten.
Die Tabellenblätter, die NICHT vorhanden sind in A sollen gelöscht werden.
Skizze:
A
1
2
3 014
4 015
5 084
6 189
7 190
ToDo / 010 / 014 / 015 / 020 / 030 / 084 / 090 / 110 / 189 / 190
In diesem Beispiel sollten die Tblätter 010 / 020 / 030 / 090 / 110 sich löschen, da sie ja in der Spalte A bei den gefilterten Daten nicht vorhanden sind.
Hatte es vorhin etwas unverständlich geschrieben tut mir leid.
Ich hoffe du kannst mir jetzt weiterhelfen. |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
14.10.2009 10:41:10 |
Jule |
|
|
|
14.10.2009 14:33:34 |
Holger |
|
|
|
14.10.2009 15:08:40 |
Jule |
|
|
Aw:Aw:Aw:A1 mit Tabellenblätter vergleichen |
15.10.2009 10:41:15 |
Holger |
|
|