Thema Datum  Von Nutzer Rating
Antwort
26.10.2016 12:05:35 AdiK
NotSolved
Blau how to set worksheet object variable?
 27.10.2016 11:02:06 Gast2690
NotSolved

Ansicht des Beitrags:
Von:
Gast2690		 Datum:
27.10.2016 11:02:06		 Views:
401		 Rating:
     
Antwort:
  Ja
Thema:
how to set worksheet object variable?

Hello,

....something like this:

Option Explicit

Public Sub WS_Var()
Dim wksSheet As Worksheet
Dim vntInput As Variant
Dim strDefault As String
strDefault = "Choose the right name..."
Do
    vntInput = InputBox(Prompt:="select the sheet", _
      Title:="Input Sheetname", Default:=strDefault)
    If StrPtr(vntInput) = 0 Then Exit Sub
    If Trim$(vntInput) = "" Or vntInput = strDefault Then
        Call MsgBox(strDefault)
    Else
        Exit Do
    End If
Loop
On Error Resume Next
If IsNumeric(vntInput) Then
  Set wksSheet = ThisWorkbook.Worksheets(CLng(vntInput))
Else
  Set wksSheet = ThisWorkbook.Worksheets(vntInput)
End If
On Error GoTo 0
If wksSheet Is Nothing Then
  Call MsgBox("This Workbook contains no sheet with this name...")
Else
  Call wksSheet.Activate
  Set wksSheet = Nothing
End If
End Sub

Cheers,

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
26.10.2016 12:05:35 AdiK
NotSolved
Blau how to set worksheet object variable?
 27.10.2016 11:02:06 Gast2690
NotSolved