Herbers Excel-Forum - das Archiv

blatt auswählen (aktivieren)

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox UserForm
Bild

Betrifft: blatt auswählen (aktivieren)
von: andi

Geschrieben am: 14.02.2005 18:04:44
Hi,
wie kann ich folgendem Makro sagen, dass es das gefundene Blatt auswählen soll?
Sub blatt_vorhanden_prüfen()
Dim Ws As Worksheet, wb As Workbook, strBook As Variant
Dim bolExist As Boolean, n As Integer, strWb As String
Dim strSheet As String
'On Error Resume Next
If UserForm2.TextBox1.Value = "A." Or UserForm2.TextBox1.Value = "" Then Exit Sub
strSheet = UserForm2.TextBox1.Value
strBook = Array(ThisWorkbook.Path & "\Prüfblätter1.xls", ThisWorkbook.Path & "\Prüfblätter2.xls", ThisWorkbook.Path & "\Prüfblätter3.xls")
For n = 1 To UBound(strBook)
Workbooks.Open strBook(n)
For Each Ws In ActiveWorkbook.Worksheets
If Ws.Name = strSheet Then
bolExist = True
strWb = ActiveWorkbook.Name
GoTo Ende
End If
Next Ws
'Workbooks(strBook(n)).Close
Next n
Ende:
If bolExist Then
MsgBox "Blatt " & strSheet & " gefunden in " & strWb, , "Treffer..."
'ActiveSheet.Select
'Call shutdown
Unload UserForm2
UserForm1.Show
'Workbooks(strBook(n)).Close
Else
MsgBox "Blatt " & strSheet & " nicht gefunden...", , "Fehlanzeige"
If MsgBox("Blattname existiert nicht. Neues Prüfblattlatt anlegen?", vbYesNo) = vbNo Then
UserForm2.Show
Exit Sub
Else
'Unload UserForm2
'    Call Makro_neues_Blatt_anlegen
'    UserForm4.Show
'    ActiveSheet.Visible = True
'    ActiveSheet.Name = Range("K2").Value
'    UserForm1.Show
End If
End If
End Sub

Brauche das, um mit dem Sheet arbeiten zu können.
Gruß Andi
Bild

Betrifft: AW: blatt auswählen (aktivieren)
von: Ute

Geschrieben am: 14.02.2005 18:07:39
If bolExist Then
MsgBox "Blatt " & strSheet & " gefunden in " & strWb, , "Treffer..."
'============================
Sheets(strSheet).select
'============================
'Call shutdown
Unload UserForm2
UserForm1.Show
'Workbooks(strBook(n)).Close
Else
MsgBox "Blatt " & strSheet & " nicht gefunden...", , "Fehlanzeige"
If MsgBox("Blattname existiert nicht. Neues Prüfblattlatt anlegen?", vbYesNo) = vbNo Then
UserForm2.Show
Exit Sub
Else
'Unload UserForm2
' Call Makro_neues_Blatt_anlegen
' UserForm4.Show
' ActiveSheet.Visible = True
' ActiveSheet.Name = Range("K2").Value
' UserForm1.Show
End If
End If
End Sub
mfg Ute
Bild

Betrifft: AW: blatt auswählen (aktivieren)
von: andi
Geschrieben am: 14.02.2005 18:31:24
Hi,
vielen Dank!!!
Gruß Andi
 Bild
Excel-Beispiele zum Thema "blatt auswählen (aktivieren)"
Beim Aktivieren einer CheckBox Häkchen in Zelle eintragen Menüpunkt SPEICHERN deaktivieren
10 UserForm-CheckBoxes als Serie aktivieren Beim Öffnen PowerPoint starten und danach Mappe aktivieren
Aktivieren mehrerer CheckBoxes unterbinden Deaktivieren und Aktivieren von Drag&Drop
Menüpunkt bei Aktivieren einer Mappe erstellen Menüpunkt "Zellen einfügen..." im Kontextmenü deaktivieren
Das Extras-Menü aktivieren/deaktivieren Bei Aktivieren eines Arbeitsblattes ComboBox neu einlesen