Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Worksheet wechseln | Herbers Excel-Forum


Betrifft: Worksheet wechseln von: Tina
Geschrieben am: 16.01.2012 19:06:36

Hallo,
ich klicke doppelt auf eine Zelle in der steht: zB. "allgemein" dann soll zu dem Tabellenblatt "allgemein" gewechselt werden, vorausgesetzt dass es das gibt.

Sieht so aus, geht aber nicht:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim ws As Worksheets
If ws.Name = ActiveCell.Text Then
    Worksheets(ActiveCell.Text).Select
Else: Exit Sub
End If
End Sub

was habe ich falsch gemacht? Danke für eure Antwort :o)

Gruß Tina

  

Betrifft: AW: Worksheet wechseln von: Josef Ehrensberger
Geschrieben am: 16.01.2012 19:08:48


Hallo Tina,

probiere es so.

' **********************************************************************
' Modul: Tabelle3 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If SheetExist(Target.Text) Then Sheets(Target.Text).Activate
End Sub


Private Function SheetExist(ByVal sheetName As String, Optional Wb As Workbook) As Boolean
  Dim wks As Worksheet
  On Error GoTo ERRORHANDLER
  If Wb Is Nothing Then Set Wb = ThisWorkbook
  For Each wks In Wb.Worksheets
    If LCase(wks.Name) = LCase(sheetName) Then SheetExist = True: Exit Function
  Next
  ERRORHANDLER:
  SheetExist = False
End Function






« Gruß Sepp »



  

Betrifft: Besser so von: Josef Ehrensberger
Geschrieben am: 16.01.2012 19:10:10

' **********************************************************************
' Modul: Tabelle3 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If SheetExist(Target.Text) Then Cancel = True: Sheets(Target.Text).Activate
End Sub


Private Function SheetExist(ByVal sheetName As String, Optional Wb As Workbook) As Boolean
  Dim wks As Worksheet
  On Error GoTo ERRORHANDLER
  If Wb Is Nothing Then Set Wb = ThisWorkbook
  For Each wks In Wb.Worksheets
    If LCase(wks.Name) = LCase(sheetName) Then SheetExist = True: Exit Function
  Next
  ERRORHANDLER:
  SheetExist = False
End Function



« Gruß Sepp »



  

Betrifft: AW: Besser so von: Tina
Geschrieben am: 16.01.2012 19:19:17

irgendwie ist mein Dankeschön weg,

also nochmal.

Es klappt super, vielen Dank :o)


  

Betrifft: AW: Worksheet wechseln von: Tina
Geschrieben am: 16.01.2012 19:15:53

na das ging ja schnell,
funktioniert bestens,

leider hatte ich einen ganz falschen Ansatz, naja Stück für Stück werde ich hoffentlich besser ;o)

Vielen Dank


Beiträge aus den Excel-Beispielen zum Thema "Worksheet wechseln"