Excel Tabellen umbenennen Länge begrenzen

Computer: Software & Programmierung Visual Basic
#1

Hallo,
ich möchte eine Excel Tabelle automatisch umbenennen.
Dies funktioniert mit dem Befehl:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range(„A13“) Then
ActiveSheet.Name = Range(„A13“).Text
End If
End Sub

schon sehr gut.
Jetzt möchte ich aber die Anzahl der Zeichen, die aus der Zelle übernommen werden, auf ca 10 begrenzen.
In der Zelle selbst sollen aber mehr Zeichen verwendet werden können.

Gruß

#2

Jetzt möchte ich aber die Anzahl der Zeichen, die aus der
Zelle übernommen werden, auf ca 10 begrenzen.

Hallo Mam,

Private Sub Worksheet\_Change(ByVal Target As Range)
On Error GoTo hell
If Target.Address(0, 0) "A13" Then Exit Sub
If Target.Value "" Then
 ActiveSheet.Name = Left(Range("A13").Text, 10)
End If
hell:
If Err.Number 0 Then
 MsgBox Err.Number & vbCr & Err.Description
End If
End Sub

Gruß
Reinhard

#3

Grüezi Mam

…ach - hier hast Du die Frage auch noch gestellt, nicht nur in der Experten-Anfrage… :frowning:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target = Range(„A13“) Then

ActiveSheet.Name = Range(„A13“).Text

End If

End Sub

schon sehr gut.

Jetzt möchte ich aber die Anzahl der Zeichen, die aus der
Zelle übernommen werden, auf ca 10 begrenzen.

Tausche die Zeile gegen folgende aus:

ActiveSheet.Name = Left(Range(„A13“).Text;10)

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -
#4

Vielen Dank für eure gute Hilfe!
Auch wenn ich wohl nicht Form gewahrt habe :wink:
Bin neu hier.
Gruß