Blattname in Zelle ausgeben klappt auf dem iPad nicht.

Lukasleon · 2024-05-24T16:56:48+00:00

Hallo, ich möchte den Tabellenblattnamen in einer Zelle ausgeben. Habe die folgenden Fomeln dafür gefunden die allesamt auf dem Windows PC und Excel standard 21 einwandfrei funktionieren. =TEIL(ZELLE( "dateiname";C4); FINDEN("]"; ZELLE("dateiname"; C4))+1; 255) =TEIL(@ZELLE( "dateiname";C4); FINDEN("]";@ ZELLE("dateiname"; C4))+1; 255) =TEIL(ZELLE("Dateiname";$C$4);FINDEN("]"; ZELLE("Dateiname";$C$4))+1;31) =TEIL(@ZELLE("Dateiname";$C$4);FINDEN("]";@ ZELLE("Dateiname";$C$4))+1;31) Öffne ich die Datei auf dem ipad (MS 365) funktioniert die Formel dann nicht mehr. > #WERT! Hat jemand vielleicht eine idee? Dank und Gruß

Möglicherweise geht es auch anders.

Ich habe aus einer Excel Liste mit folgendem Code neue Tabellenblätter erstellt.

Sub Anlegen()

Dim Wiederholungen As Long

Dim wksL As Worksheet 

Set wksL = Worksheets("urliste")

Application.ScreenUpdating = False

Worksheets("urliste").Activate



For Wiederholungen = 1 To Range("A65536").End(xlUp).Row



If Cells(Wiederholungen, 1) > "" Then

    Worksheets("Leer").Copy After:=Sheets(Sheets.Count)

    ActiveSheet.Name = wksL.Cells(Wiederholungen, 1).Text

    

Else

Exit Sub

End If

Worksheets("urliste").Activate

Next



Set wksL = Nothing



Application.ScreenUpdating = True

End Sub

Unter Umständen ist es an der Stelle durch erweiterung des Codes möglich Tabellenblätter zu erstellen die nicht nur so heißen sondern den Namen bereits in der Zelle C4 aufweisen. Ginge das vielleicht?

Nein. Wie sollten sie eingefügt werden?

Habe mittlerweile mit chgatgpt folgenden code erhalten:

Sub AddSheets()

    'Updateby Extendoffice

    Dim xRg As Excel.Range

    Dim wSh As Excel.Worksheet

    Dim wBk As Excel.Workbook

    Dim newSheet As Excel.Worksheet

    Dim sheetName As String

    

    Set wSh = ActiveSheet

    Set wBk = ActiveWorkbook

    Application.ScreenUpdating = False

    

    For Each xRg In wSh.Range("A2:A27")

        ' Kombination der Werte aus der ersten und zweiten Spalte

        sheetName = xRg.Value & " " & xRg.Offset(0, 1).Value

        

        With wBk

            Set newSheet = .Sheets.Add(After:=.Sheets(.Sheets.Count))

            On Error Resume Next

            newSheet.Name = sheetName

            If Err.Number = 1004 Then

                Debug.Print sheetName & " already used as a sheet name"

                ' Delete the sheet if the name already exists to avoid orphaned sheets

                Application.DisplayAlerts = False

                newSheet.Delete

                Application.DisplayAlerts = True

            Else

                ' Set cell C4 to the sheet name

                newSheet.Range("C4").Value = newSheet.Name

            End If

            On Error GoTo 0

        End With

    Next xRg

    

    Application.ScreenUpdating = True

End Sub

So habe ich das Problem mit der Formel auf dem iPad nicht mehr.
Interessieren würde es mich trotzdem warum es nicht geht.

Blattname in Zelle ausgeben klappt auf dem iPad nicht.

Forumthread: Blattname in Zelle ausgeben klappt auf dem iPad nicht.

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Blattname in Zelle ausgeben klappt auf dem iPad nicht.

Forumthread: Blattname in Zelle ausgeben klappt auf dem iPad nicht.

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread