Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1648to1652
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1648to1652
1648to1652
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenliste abfragen, ob alle Blätter vorhanden

Tabellenliste abfragen, ob alle Blätter vorhanden
29.09.2018 16:43:21
Bernd
Hallo zusammen,
ich glaube heut ist nicht mein Tag!
habe eine Tabelle "Daten", in der alle Blattnamen in Spalte 2 gelistet sind. Nun möchte ich per VBA prüfen ob alle in der Liste befindlichen Blattnamen in der Mappe vorhanden sind, wenn nicht, dann in der entsprechenden Zeile des Blattnamens in Spalte 8 ein "fehlt" eintragen.
Ich hoffe, das ich mich einigermaßen verständlich ausgrückt habe.
Danke schon mal im Voraus ;-)
Gruß
Bernd

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenliste abfragen, ob alle Blätter vorhanden
29.09.2018 17:00:31
Oberschlumpf
Hi Bernd
Spalte 2 = B
Spalte 8 = H
Startzeile Spalte 2 = ?
Ich rate mal, dass in Spalte 2 alles in Zeile 1 losgeht
(wenn nicht, dann Code im allgemeinen Modul anpassen)
Sub sbSheetsExist()
Dim liSh As Integer, lboExist As Boolean, lloRow As Long
With Sheets("Daten")
For lloRow = 1 To .Cells(Rows.Count, 2).End(xlUp).Row
For liSh = 1 To Sheets.Count
If LCase(Sheets(liSh).Name) = LCase(.Range("B" & lloRow).Value Then
lboExist = True
Exit For
End If
If lboExist = True Then
lboExist = False
Else
.Range("H" & lloRow).Value = "fehlt"
End If
Next
Next
End With
End Sub

Hilfts?
Ciao
Thorsten
Anzeige
AW: Tabellenliste abfragen, ob alle Blätter vorhanden
29.09.2018 17:11:30
Daniel
Hi
warum VBA?
es reicht die Formel in Spalte 8
=WENN(ISTFEHLER(INDIREKT("'"&B1&"'!A1"));"fehlt";"")
wenns VBA sein soll, dann so:
dim Zelle as Range
dim sh as worksheet
On Error Resume Next
for each Zelle in Sheets("Daten").Columns(2).SpecialCells(xlcelltypeconstants, 2)
err = 0
set sh = Sheets(Zelle.value)
Zelle.Offset(0, 6).value = IIF(err = 0, "", "fehlt")
next
on error goto 0
Gruß Daniel
AW: @Thorsten @Daniel ...
29.09.2018 17:27:57
Bernd
...
Danke euch Beiden. Alle eure Vorschläge funktionieren!!!
Sonnige Grüße aus Bremen und schönes Wochenende
Bernd
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige