Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
380to384
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
380to384
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Blattname ermitteln

Blattname ermitteln
14.02.2004 19:35:29
Sabine
Hallo Excelspezialisten,
wie ermittle ich am effektivsten den Namen des Blattes in dessen Zelle A1 ein Suchbegriff, beispielsweise "1234" steht? Die Mappe hat ca. 70 Blätter.
Viele Grüße
Sabine

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blattname ermitteln
14.02.2004 19:54:03
Bert
Option Explicit

Sub Blattname()
Dim wsh As Worksheet, bolFound As Boolean
For Each wsh In Worksheets
If wsh.[a1] = 1234 Then
MsgBox "Gefunden in: " & wsh.Name
bolFound = True
'Wenn die Zahl in mehreren Blättern vorkommen kann
'dann das Exit For löschen
Exit For
End If
Next
If Not bolFound Then MsgBox "Nix gefunden!"
End Sub

Bert
AW: Blattname ermitteln
14.02.2004 20:04:31
NE
Abend Sabine,
Vorschlag:

Sub find_string()
dim i&
for i=1 to thisworkbook.sheets.count
if sheets(i).cells(1,1)="blabla" then msgbox sheet(i).Name
next
End Sub

Anzeige
AW: Blattname ermitteln
14.02.2004 20:17:31
NE
Hi,
silly me, hatte drauf los getippst, es muss nicht sheet(i).name heissen,
sondern sheets(i).name
sorry, Gruss
Nancy
AW: Blattname ermitteln
14.02.2004 20:19:58
NE
Hi,
silly me, hatte drauf los getippst, es muss nicht sheet(i).name heissen,
sondern sheets(i).name
sorry, Gruss
Nancy
Vielen Dank Euch beiden !
14.02.2004 21:09:00
Sabine

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige