VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Blattnamen in Zelle eingeben

Gruppe

Funktion

Bereich

ZELLE

Thema

Blattnamen in Zelle eingeben

Problem

Wie kann ich Pfad, Datei- und Blattnamen der aktiven Arbeitsmappe ermitteln?

Lösung

Ausgangsformel in B1: =ZELLE("Dateiname";B1), Pfad: =LINKS(B1;FINDEN("[";B1)-2), Datei: =TEIL(B1;FINDEN("[";B1)+1;FINDEN("]";B1)-FINDEN("[";B1)-1), Blatt: =TEIL(B1;FINDEN("]";B1)+1;LÄNGE(B1))




StandardModule: basMain

Sub cmdAusaehlen_Click()
   Worksheets(Tabelle2.lstWks.Value).Select
End Sub

Sub cmdKopieren_Click()
   Dim sName As String
   sName = InputBox("Blattname:", , "Muster1")
   If sName = "" Then Exit Sub
   Worksheets("Muster").Copy after:=Worksheets(Worksheets.Count)
   ActiveSheet.Name = sName
   Tabelle2.lstWks.AddItem sName
End Sub

ClassModule: DieseArbeitsmappe

Private Sub Workbook_Open()
   Dim wks As Worksheet
   Tabelle2.lstWks.Clear
   For Each wks In Worksheets
      If wks.Name <> "Test" And wks.Name <> "Muster" Then
         Tabelle2.lstWks.AddItem wks.Name
      End If
   Next wks
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Funktion und ZELLE