Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
732to736
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
732to736
732to736
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter Nummern

Tabellenblätter Nummern
20.02.2006 10:39:06
AndreasB
Guten Tag und Hallo!
Ich habe mir ein Makro "zusammengebaut" und komme nicht mehr weiter.
Ich möchte, dass mir das Makro kontrolliert ob es Tabellenblätter
gibt die als Bezeichnung eine reine Zahl haben. Wenn solche Blätter
gefunden werden soll das Makro fortfahren, ansonsten beendet werden.
Kann mir bitte jemand einen Tipp geben.
Danke im Voraus und schöne Grüße
Andreas

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter Nummern
20.02.2006 11:15:53
Heiko
Hallo Andreas,
habe zwar nicht ganz verstanden was du suchst, aber vielleicht hilft dies.
Es prüft alle Blätter der aktiven Datei ob Blattname = Zahl oder Nicht.

Sub BlattNameaAlsZahl()
Dim wksSheets As Worksheet
For Each wksSheets In ActiveWorkbook.Worksheets
If IsNumeric(wksSheets.Name) = True Then
MsgBox "Blattname ist eine reine Zahl !", vbInformation, wksSheets.Name
Else
MsgBox "Blattname ist eine KEINE Zahl !", vbCritical, wksSheets.Name
End If
Next wksSheets
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett
AW: Tabellenblätter Nummern
20.02.2006 11:26:10
Ines
Hallo Andreas,
probier mal dieses Makro aus:

Sub Nummern()
Dim objRegister As Object
Dim objBlatt As Object
Dim i As Integer
Set objRegister = Sheets
i = 0
For Each objBlatt In objRegister
If IsNumeric(objBlatt.Name) Then
HIER MUSST DU EINTRAGEN WAS DAS MAKRO TUN SOLL
End If
i = i + 1
Next
End Sub

Ich hoffe, das es das ist, was Du brauchst.
Anzeige
DANKE AN BEIDE !!! o.T.
20.02.2006 11:35:15
AndreasB

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige