Registername aus Zelle holen

Hallo zusammen,
hab das Makro hier erstellt:


Sub Registername_anpassen()
' Registername_anpassen Makro
' Schreibt den Inhalt der Zelle C2 in den Registernamen
' Tastenkombination: Strg+Umschalt+R
Sheets(1).Name = Range("C2").Value
Sheets(2).Name = Range("C2").Value
'Sheets(3).Name = Range("C2").Value
'Sheets(4).Name = Range("C2").Value
'Sheets(5).Name = Range("C2").Value
'Sheets(6).Name = Range("C2").Value
'Sheets(7).Name = Range("C2").Value
'Sheets(8).Name = Range("C2").Value
End Sub

Solange ich ich nur Blatt 1 nutze gehts, aber sobald das zweite Blatt mit dabei ist, ist Schluß.
Der Laufzeitfehler sagt ich benutze zwei gleiche Bezeichnungen. Quatsch Sheets(1) ist doch nicht gleich Sheets(2). Hab auch AllSheets probiert. Kennt VBA nicht, wahrscheinlich fehlt die Zuweisung, oder?
Auch gefällt mir die Beschränkung nicht, geht das nicht allgemeiner. Also beliebig viele neue Blätter ohne VBA Änderung?
Da ich oft auch mit großen Zahlen arbeite, wäre mir statt 1000000 lieber 1 Mio oder zumindest die Mio mit Punkten = 1.000.000.
Danke schon mal und hand
Jürgen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jürgen,
warum es nicht funzt Haben ja Hajo und Thorsten schon erläutert.
So sollte es gehn.
' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub NameSheets()
    Dim objWs As Worksheet
    Dim strSheet As String

    For Each objWs In ThisWorkbook.Worksheets
        strSheet = objWs.Range("C2").Text
        If IsNumeric(strSheet) Then
            If Clng(strSheet) < 10 ^ 6 Then
                strSheet = Format(strSheet, "#,#")
            Else
                strSheet = Format(Clng(strSheet), "#,,.0 Mio")
            End If
        End If
        If IsValidSheetName(strSheet) Then
            objWs.Name = strSheet
        End If
    Next
End Sub

Public Function IsValidSheetName(ByVal strName As String) As Boolean
    Dim objRegExp As Object

    Set objRegExp = CreateObject("vbscript.regexp")

    With objRegExp
        .Global = True
        .Pattern = "^[^\/\\:\*\?\[\]]{1,31}$"
        .IgnoreCase = True
        IsValidSheetName = .test(strName)
    End With

    Set objRegExp = Nothing

End Function

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Registername aus Zelle holen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread