• 09.07.2025, 10:24
  • Registrieren
  • Anmelden
  • Sie sind nicht angemeldet.

 

Lieber Besucher, herzlich willkommen bei: Aqua Computer Forum. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.

amok

Senior Member

Excel Makro "umbennen des Tabellenname"

Dienstag, 17. März 2009, 15:48

Hi zusammen & Excel Freaks,

ich bin auf der suche nach einem Makro was beim öffnen der Excel Datei das erste Tabellenblatt (Tabelle1) in den Namen der Datei (z.B. test. xls) umbennent?!
Hat da irgendjemand einen Tipp? Ich bekomme es einfach nicht hin.

Danke im vorraus!

Grüße
amok

amok

Senior Member

Dienstag, 17. März 2009, 16:42

Also einen Teil der Lösung habe ich hinbekommen:

Quellcode

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Workbook_open()

    Dim i As Long
    Dim cDir As String
    Dim sPath As String
    Dim sName As String
    
    sPath = "C:\TEMP\"
    cDir = Dir(sPath & "*.xls")
    
    Application.ScreenUpdating = True
    Do While cDir <> ""
        sName = cDir
        Worksheets(1).Name = sName
        cDir = Dir
    Loop
    Application.ScreenUpdating = True
End Sub


Jetzt stellt sich mir nur die Frage ob man die Pfadangabe völlig rausnehmen kann und er immer die aktive Exceldatei nimmt.?

Lev

God

Dienstag, 17. März 2009, 21:37

mit

ActiveWorkbook.name

sollte es gehen.

also einfach

Worksheets(1).name = ActiveWorkbook.name

den rest kannst dir eigentlich schenken ;)
"When mountains speak, wise men listen" - John Muir

amok

Senior Member

Mittwoch, 18. März 2009, 10:31

hehe suuuper!
Danke!

Eine Sache wäre jetzt noch, ich müsste noch das .xls wegbekommen? Gibt es da auch noch einen Tipp?!

Lev

God

Mittwoch, 18. März 2009, 11:05

Na gut, dann eben so

Quellcode

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()

Dim name As String
Dim length As Integer

name = ActiveWorkbook.name
length = Len(name)

name = Left(name, length - 4)

Worksheets(1).name = name


End Sub


ich hoffe das war was du wolltest ;)
"When mountains speak, wise men listen" - John Muir

amok

Senior Member

Mittwoch, 18. März 2009, 11:11

Woooohooooooo :thumbsup:

Vielen Dank!

Genau das wollte ich :thumbup:

Ähnliche Themen