Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
508to512
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
508to512
508to512
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

mehrere Tabellen im Code angeben

mehrere Tabellen im Code angeben
29.10.2004 15:30:32
Armin
Hallo,
folgende Sache:
Unten steht ein Teil von einem Code, den ich regelmäßig nutze. Der Code sucht nach der Tabelle "Armin". Findet er diese Tabelle nicht, zeigt er mir das per MsgBox an.
Wie kann ich dass den so schreiben, dass ich da nicht nur "Armin" angeben kann, sondern mehrere Namen. Also, wenn "Armin" nicht da ist, soll z.B. nach "Melanie" gesucht werden usw. Also ich will mehrere Tabellen im Code angeben.
Wer kann helfen?
Danke im Voraus!
Gruß
Armin
On Error GoTo errorhandel
Sheets("Armin").Select
If errorhandel = True Then
errorhandel: MsgBox "Die gesucht Tabelle befindet sich in der Mappe 'send_bmann1.xls'."

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere Tabellen im Code angeben
29.10.2004 17:22:15
Rolf
Hallo Armin,
versuch's mal damit
FG
Rolf

Sub mehrNamen()
Dim A As Variant
Dim i As Integer, j As Integer, n As Integer
A = Array("Armin", "Melanie", "Stefan", "Peter")
n = UBound(A)
For i = 0 To n
For j = 1 To Sheets.Count
If Sheets(j).Name = A(i) Then
Sheets(A(i)).Select
End
End If
Next
Next
MsgBox "Die gesucht Tabelle befindet sich in der Mappe 'send_bmann1.xls'."
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige